Vba colorer cellules

Fermé

mariiiie - 5 févr. 2011 à 18:28
eriiic Messages postés 24603 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 15 décembre 2024 - 5 févr. 2011 à 19:30

Bonjour,
je voudrais colorer mes cellules en fonction d'une condition voila le code que j'ai utilisé:

If Not IsEmpty(Sheets("donnees").Range("N5")) And Sheets("donnees").[N5] < 65 Then Sheets("donnees").Range("N5").Interior.ColorIndex = 3

mais cela me colore les cellules malgré que les données soient supérieures à 65
help

A voir également:

Vba colorer cellules
Formule excel pour additionner plusieurs cellules - Guide
Excel colorer une cellule si - Guide
Excel compter cellule couleur sans vba - Guide
Verrouiller cellules excel - Guide
Concatener deux cellules excel - Guide

1 réponse

Réponse 1 / 1

eriiic Messages postés 24603 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 15 décembre 2024 7 257
Modifié par eriiic le 5/02/2011 à 18:44

Bonjour,

Il faudrait peut-être ajouter le traitement à faire si la condition n'est pas respectée que la cellule reprenne sa couleur d'origine.

Et plus simplement tu peux utiliser un format conditionnel...

eric

mariiiie
5 févr. 2011 à 18:48

Oki mais je sais pas comment faire je débute et j'ai deja bien galeré pour écrire cette formule

eriiic Messages postés 24603 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 15 décembre 2024 7 257
Modifié par eriiic le 5/02/2011 à 18:58

If tests Then   
     'traitement si test positif  
else  
    'traitement si test négatif  
endif

ce qui donne dans ton cas :

Private Sub Worksheet_Change(ByVal Target As Range) 
    If Not IsEmpty(Range("N5")) And [N5] < 65 Then 
        Range("N5").Interior.ColorIndex = 3 
    Else 
        Range("N5").Interior.ColorIndex = xlNone 
    End If 
End Sub

Mais si tu ne connais pas les formats conditionnels penche toi dessus...
menu 'format / mise en forme conditionnelle...' sur excel 2003

eric

mariiiie
5 févr. 2011 à 18:59

Si j'ai bien compris
If tests then Sheets("donnees").Range("N5")) And Sheets("donnees").[N5] < 65
else
Sheets("donnees").Range("N5")) And Sheets("donnees").[N5] > 65
endif

est ce que je me trompe?

mariiiie
5 févr. 2011 à 19:12

J'ai essaye la mise en forme conventionnelle c'est vrai que c'est plus simple!!
Mais je dois le faire avec vba quand je rentre la formule cela me met un message d'alerte

eriiic Messages postés 24603 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 15 décembre 2024 7 257
5 févr. 2011 à 19:30

relis le message de 18h52

Discussions similaires

Excel : colorer une cellule sous condition d'une autre ?

additionner nombres dans cellules avec texte

"L'indice n'appartient à la sélection" + VBA

VBA Excel : sélection d'une plage variable

Erreur d'exécution 13 Incompatibilité de type