Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel police en rouge si plus petitque 2

police en rouge si plus petitque 2

20 réponses
Avatar
Daniel
Bonsoir à tous

Comment faire pour mettre la police en rouge (dans une macro)
si les nombres est 2 ou 1 .

merci
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
yaka de Mandé
Police est synonyme de "Gros" rouge et de plus ils sont
toujours au minimum 2 !!!

® © ¿
à-propos de stats ;o)))

L'AOC en quelques chiffres (source : Chambre Régionale
d'Agriculture) :
Vins : 2,1 millions d'hectolitres, 10 % de la production
nationale en AOC et 68 % de la production viticole de
Rhône-Alpes

34 AOC dont
13 Beaujolais (Beaujolais, Beaujolais supérieur,
Beaujolais Village, Brouilly, Chenas, Chiroubles, Côtes
de Brouilly, Fleurie, Juliénas, Morgon, Moulin à Vent,
Régnié, St Amour)

http://www.r3ap.com/aochiffres.htm

Le beaujolais nouveau 2004 sera distribué en canettes
métalliques :
du Rédacteur Suprême

A quelques semaines de la date de sortie du beaujolais
nouveau 2004, on apprend de source bien désinformée que
la boisson phare de l'esprit des terroirs français va
sacrifier aux obligations de la mondialisation et sera
distribuée en canettes métalliques. "Un tournant décisif
et nécessaire", commente Charles-Hubert Dubonchoix, porte-
parole des producteurs du beaujolais.
L'affaire vient d'être révélée par nos confrères de la
Guinguette du Lac : l'institution d'Etampes attire
l'attention depuis quelques mois déjà sur ce nouveau type
de conditionnement qui ne manque pas de choquer les
amoureux des traditions de nos terroirs. Pour Sandino,
représentant de la guinguette, la distribution à grande
échelle du beaujolais en canettes métalliques "signera
l'arrêt de mort de la bouteille en verre ou encore de la
bouteille en plastique chère à nos SDF". Plus grave, la
canette métallique marquera la disparition du bouchon de
liège et donc du noble art du tire-bouchon.

Nous avons interrogé Charles-Hubert Dubonchoix, pour
connaître et mieux comprendre l'attitude des producteurs
de Beaujolais : "les études de marché montrent le déclin
inquiétant de nos produits", souligne-t-il. Une étude U&A
(Usages et Attitudes) commandée à l'IDOF (Institut
Désinformation et Opinion Francophone) a qualifié les
attentes des consommateurs mondiaux de beaujolais nouveau
2003 et montré que, loin des préoccupations
organoleptiques propres aux autres vins, le beaujolais
nouveau attire un consommateur "pragmatiques", désireux
de gagner du temps dans la dégustation du nectar.
L'économie des étapes du débouchage et du remplissage du
verre sont les tendances marquantes.

http://www.desinformations.com/article.php?_a_idr0



-----Message d'origine-----
:-))))))))))))
ne manque que les stats du beaujolais dans ce truc trop
marrant, twinley

jps

"twinley" <twinleym(at)hotmail.com> a écrit dans le
message de

news:%23j$
mais non, jps, mais non

si tout le monde pouvait donner son avis... à ton
sujet, tu serais


(agréablement) surpris.

www.betavote.com

--
à+twinley
"jps" a écrit
dans le message de


news:
mais écoutez-moi cette horde de scudeurs qui me
traquent jusque dans mes



calculs les plus complexes...
jps

"Misange" a écrit dans le
message de



news:eu$
Si c'est un shadok, vaut mieux qu'il s'arrête là :
à 4 il pond un oeuf




!
Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta


on 05/11/2004 08:37:
c'est bien, tu sais compter jusqu'à 3 !
;-))
a+
rural thierry
"sabatier"
a écrit dans le





message
de news:

bonjour
bien que l'objet de ton post ne veuille pas dire
la même chose que






le

corps

de celui-ci, je te propose cela :

Sub zzzz()
If ActiveCell.Value = 2 Or ActiveCell.Value = 1
Then






ActiveCell.Font.ColorIndex = 3

End Sub

HTH
jps
PS le zzzz n'est pas de moi, le reste oui et ça
se voit....







"Daniel" a écrit dans le
message de






news:y7Aid.286$

Bonsoir à tous

Comment faire pour mettre la police en rouge
(dans une macro)







si les nombres est 2 ou 1 .

merci


















.









Avatar
Daniel
Merci pour la réponce
Peut t'on donner un format dans une colonne dans le même ordre d'idée.
Merci encore de votre expertise??

"sabatier" a écrit dans le message
de news:
bonjour
bien que l'objet de ton post ne veuille pas dire la même chose que le
corps
de celui-ci, je te propose cela :

Sub zzzz()
If ActiveCell.Value = 2 Or ActiveCell.Value = 1 Then
ActiveCell.Font.ColorIndex = 3

End Sub

HTH
jps
PS le zzzz n'est pas de moi, le reste oui et ça se voit....

"Daniel" a écrit dans le message de
news:y7Aid.286$
Bonsoir à tous

Comment faire pour mettre la police en rouge (dans une macro)
si les nombres est 2 ou 1 .

merci








Avatar
sabatier
je ne suis pas fort en format (en quoi suis-je fort d'ailleurs?) mais que
veux-tu dire par donner un format dans une colonne, daniel?
pour l'instant, je vais me coucher mais ton compatriote denis assure la
relève...
jps

"Daniel" a écrit dans le message de
news:fiVid.55554$
Merci pour la réponce
Peut t'on donner un format dans une colonne dans le même ordre d'idée.
Merci encore de votre expertise??

"sabatier" a écrit dans le
message

de news:
bonjour
bien que l'objet de ton post ne veuille pas dire la même chose que le
corps
de celui-ci, je te propose cela :

Sub zzzz()
If ActiveCell.Value = 2 Or ActiveCell.Value = 1 Then
ActiveCell.Font.ColorIndex = 3

End Sub

HTH
jps
PS le zzzz n'est pas de moi, le reste oui et ça se voit....

"Daniel" a écrit dans le message de
news:y7Aid.286$
Bonsoir à tous

Comment faire pour mettre la police en rouge (dans une macro)
si les nombres est 2 ou 1 .

merci












Avatar
Daniel
Bonsoir JPS

Je veut dire que si le chifre est ¨plus peti que 2 mais plus grand que zéro
la police devien rouge.
avec "Validation des Donné" est t'il possible d'incorporer une fonction.??



"sabatier" a écrit dans le message
de news:
je ne suis pas fort en format (en quoi suis-je fort d'ailleurs?) mais que
veux-tu dire par donner un format dans une colonne, daniel?
pour l'instant, je vais me coucher mais ton compatriote denis assure la
relève...
jps

"Daniel" a écrit dans le message de
news:fiVid.55554$
Merci pour la réponce
Peut t'on donner un format dans une colonne dans le même ordre d'idée.
Merci encore de votre expertise??

"sabatier" a écrit dans le
message

de news:
bonjour
bien que l'objet de ton post ne veuille pas dire la même chose que le
corps
de celui-ci, je te propose cela :

Sub zzzz()
If ActiveCell.Value = 2 Or ActiveCell.Value = 1 Then
ActiveCell.Font.ColorIndex = 3

End Sub

HTH
jps
PS le zzzz n'est pas de moi, le reste oui et ça se voit....

"Daniel" a écrit dans le message de
news:y7Aid.286$
Bonsoir à tous

Comment faire pour mettre la police en rouge (dans une macro)
si les nombres est 2 ou 1 .

merci
















Avatar
AV
Je veut dire que si le chifre est ¨plus peti que 2 mais plus grand que zéro
la police devien rouge.
avec "Validation des Donné" est t'il possible d'incorporer une fonction.??


Utilise la mise en forme conditionnelle :
Exemple avec la plage A1:A10
Sélection A1:A10 > Format > mise en forme conditionnelle > la formule est :
=ET(A1<2;A1>0)
format > ok


AV

Avatar
sabatier
si j'ai bien compris ce que tu souhaites (obtenir que tes chiffres plus
petits que 2 et plus grands que 0 se mettent en police rouge à la saisie),
regarde la réponse que t'as faite papou le 5/11 à 08.49....
pascal t'y susurrait :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Value > 0 And Target.Value <= 2 Then
Target.Font.ColorIndex = 3
Else: Target.Font.ColorIndex = 0
End If
End Sub

il persiflait même : Code à placer dans la feuille

ce code fera que chaque fois que tu taperas un chiffre <= 2 et >0 dans la
ta feuillle, la police deviendra rouge

si j'ai toujours bien compris, tu sembles vouloir limiter cette action à une
colonne bien précise :
s'il s'agit de la colonne C par exemple, il te faudra ajouter sur une seule
ligne juste au début de
ta proc :

If Target.Cells.Count <> 3 Then Exit Sub

j'espère que c'est bien ce que tu voulais
à suivre
jps


"Daniel" a écrit dans le message de
news:mHWid.57837$
Bonsoir JPS

Je veut dire que si le chifre est ¨plus peti que 2 mais plus grand que
zéro

la police devien rouge.
avec "Validation des Donné" est t'il possible d'incorporer une fonction.??



"sabatier" a écrit dans le
message

de news:
je ne suis pas fort en format (en quoi suis-je fort d'ailleurs?) mais
que


veux-tu dire par donner un format dans une colonne, daniel?
pour l'instant, je vais me coucher mais ton compatriote denis assure la
relève...
jps

"Daniel" a écrit dans le message de
news:fiVid.55554$
Merci pour la réponce
Peut t'on donner un format dans une colonne dans le même ordre d'idée.
Merci encore de votre expertise??

"sabatier" a écrit dans le
message

de news:
bonjour
bien que l'objet de ton post ne veuille pas dire la même chose que le
corps
de celui-ci, je te propose cela :

Sub zzzz()
If ActiveCell.Value = 2 Or ActiveCell.Value = 1 Then
ActiveCell.Font.ColorIndex = 3

End Sub

HTH
jps
PS le zzzz n'est pas de moi, le reste oui et ça se voit....

"Daniel" a écrit dans le message de
news:y7Aid.286$
Bonsoir à tous

Comment faire pour mettre la police en rouge (dans une macro)
si les nombres est 2 ou 1 .

merci




















Avatar
sabatier
oups, pardon, je me trompe en te disant d'ajouter :
If Target.Cells.Count <> 3 Then Exit Sub
Je crois qu'il faut dire :
If target.Columns.Count <> 3 Then Exit Sub
mais AV me corrigera sûrement
jps

"sabatier" a écrit dans le message
de news:
si j'ai bien compris ce que tu souhaites (obtenir que tes chiffres plus
petits que 2 et plus grands que 0 se mettent en police rouge à la saisie),
regarde la réponse que t'as faite papou le 5/11 à 08.49....
pascal t'y susurrait :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Value > 0 And Target.Value <= 2 Then
Target.Font.ColorIndex = 3
Else: Target.Font.ColorIndex = 0
End If
End Sub

il persiflait même : Code à placer dans la feuille

ce code fera que chaque fois que tu taperas un chiffre <= 2 et >0 dans la
ta feuillle, la police deviendra rouge

si j'ai toujours bien compris, tu sembles vouloir limiter cette action à
une

colonne bien précise :
s'il s'agit de la colonne C par exemple, il te faudra ajouter sur une
seule

ligne juste au début de
ta proc :

If Target.Cells.Count <> 3 Then Exit Sub

j'espère que c'est bien ce que tu voulais
à suivre
jps


"Daniel" a écrit dans le message de
news:mHWid.57837$
Bonsoir JPS

Je veut dire que si le chifre est ¨plus peti que 2 mais plus grand que
zéro

la police devien rouge.
avec "Validation des Donné" est t'il possible d'incorporer une
fonction.??





"sabatier" a écrit dans le
message

de news:
je ne suis pas fort en format (en quoi suis-je fort d'ailleurs?) mais
que


veux-tu dire par donner un format dans une colonne, daniel?
pour l'instant, je vais me coucher mais ton compatriote denis assure
la



relève...
jps

"Daniel" a écrit dans le message de
news:fiVid.55554$
Merci pour la réponce
Peut t'on donner un format dans une colonne dans le même ordre
d'idée.




Merci encore de votre expertise??

"sabatier" a écrit dans le
message

de news:
bonjour
bien que l'objet de ton post ne veuille pas dire la même chose que
le





corps
de celui-ci, je te propose cela :

Sub zzzz()
If ActiveCell.Value = 2 Or ActiveCell.Value = 1 Then
ActiveCell.Font.ColorIndex = 3

End Sub

HTH
jps
PS le zzzz n'est pas de moi, le reste oui et ça se voit....

"Daniel" a écrit dans le message de
news:y7Aid.286$
Bonsoir à tous

Comment faire pour mettre la police en rouge (dans une macro)
si les nombres est 2 ou 1 .

merci
























Avatar
AV
mais AV me corrigera sûrement


Puisque tu le demandes...
If Target.Column <> 3 Then Exit Sub

AV

Avatar
jps
gracias, alain
jps

"AV" a écrit dans le message de
news:
mais AV me corrigera sûrement


Puisque tu le demandes...
If Target.Column <> 3 Then Exit Sub

AV





Avatar
Daniel
Gros merci ca va
J'ai utiliser forme conditionnelle (inférieur ou = 2 ).
cela est une fonction que je ne connaissais pas :-)).

"AV" a écrit dans le message de news:

Je veut dire que si le chifre est ¨plus peti que 2 mais plus grand que
zéro
la police devien rouge.
avec "Validation des Donné" est t'il possible d'incorporer une
fonction.??


Utilise la mise en forme conditionnelle :
Exemple avec la plage A1:A10
Sélection A1:A10 > Format > mise en forme conditionnelle > la formule est
:
=ET(A1<2;A1>0)
format > ok


AV





1 2