Comparaison puis coloriation

[charrynsasi]

Bonjours a tous,

Quelqu'un peut il m'aider a colorier chaque cellule d'une colonne de type Number, en vert si le nombre
est superieur a 6 et en rouge si le nombre est inferieur ou egale a 6 en VBA

J'ai joint le fichier modele.

Merci pour vos reponses.

 

[JBARBE]

Re : Comparaison puis coloriation

Bonjour,

Un exemple parmi tant d'autre !

Sub macro1()
For Each c In Range("Quantité")
 If c <= 6 Then c.Interior.ColorIndex = 3
 If c > 6 Then c.Interior.ColorIndex = 43
Next
End Sub

 

[charrynsasi]

Re : Comparaison puis coloriation

Merci pour ton aide JBARBE mais est-il possible de charger ce macro au demarrage du fichier sans pour autant cliquer sur le bouton?

Merci encore.

 

[JBARBE]

Re : Comparaison puis coloriation

Oui il suffit de changer macro1 par Autpen où Workbook_Open

Sub macro1()
For Each c In Range("Quantité")
 If c <= 6 Then c.Interior.ColorIndex = 3
 If c > 6 Then c.Interior.ColorIndex = 43
Next
End Sub

Sub Auto_Open()
For Each c In Range("Quantité")
 If c <= 6 Then c.Interior.ColorIndex = 3
 If c > 6 Then c.Interior.ColorIndex = 43
Next
End Sub

A noter que Quantité a été nommé pour les cellules concernées !

A+

 

[charrynsasi]

Re : Comparaison puis coloriation

Oui Merci JBARBE mais en ajoutant des nouveaux nombres et en executant le macro, une erreur apparait comme decrit dans l'image jointe.

 

[JBARBE]

Re : Comparaison puis coloriation

Ne pas supprimer SVP la référence des cellules Range("Quantité")mais la modifier dans le cas d'ajout de cellules !

Sinon envoi moi ton fichier qui pose problème !

 

[JBARBE]

Re : Comparaison puis coloriation

Sans nommer les cellules concernées mais en faisant référence à la colonne B :

Sub Auto_Open()
For Each c In Range("B:B")
 If c = "" Then Exit Sub
 If IsNumeric(c) And c <= 6 Then c.Interior.ColorIndex = 3
 If IsNumeric(c) And c > 6 Then c.Interior.ColorIndex = 43
Next
End Sub

 

[charrynsasi]

Re : Comparaison puis coloriation

Oui mon fichier est la. Comme vous pouvez le voir, quand j'ajoute des nouveaux elements, il colorie les tout en rouge donc ne respecte plus la condition.

 

[JBARBE]

Re : Comparaison puis coloriation

Pour moi les cellules ajoutées ne se colorient pas du tout et ne peuvent être ainsi coloriées car elles ne sont pas nommées comme référence!

Néanmoins j'ai fait en sorte que la colonne B avec des chiffres se colorient sans passer par nommer les cellules !

A+

 

[charrynsasi]

Re : Comparaison puis coloriation

Merci beaucoup JBARBE pour le temps consacre pour moi, cava deja avec cette methode.
A+