Pb vba colorier cellules
boou
-
lermite222 Messages postés 8724 Date d'inscription Statut Contributeur Dernière intervention -
lermite222 Messages postés 8724 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
Voila mon problème, j'ai un tableau qui permet de calculer un indice (somme de deux moyennes), et je voudrais que quand l'indice est inférieur à 65 la case se colore. J'ai trouvé un code mais malheureusement cela me colore toutes les cases et ne respecte pas les conditions
je vous mets ce que j'ai écrit:
If Not IsEmpty(Sheets("donnees").Range("N5")) And Sheets("donnees").[N5] < 65 Then Sheets("donnees").Range("N5").Interior.ColorIndex = 3
If Not IsEmpty(Sheets("donnees").Range("N6")) And Sheets("donnees").[N6] < 65 Then Sheets("donnees").Range("N6").Interior.ColorIndex = 3
et je dois répéter ces formules treize fois
help
Voila mon problème, j'ai un tableau qui permet de calculer un indice (somme de deux moyennes), et je voudrais que quand l'indice est inférieur à 65 la case se colore. J'ai trouvé un code mais malheureusement cela me colore toutes les cases et ne respecte pas les conditions
je vous mets ce que j'ai écrit:
If Not IsEmpty(Sheets("donnees").Range("N5")) And Sheets("donnees").[N5] < 65 Then Sheets("donnees").Range("N5").Interior.ColorIndex = 3
If Not IsEmpty(Sheets("donnees").Range("N6")) And Sheets("donnees").[N6] < 65 Then Sheets("donnees").Range("N6").Interior.ColorIndex = 3
et je dois répéter ces formules treize fois
help
A voir également:
- Pb vba colorier cellules
- Formule excel pour additionner plusieurs cellules - Guide
- Verrouiller cellules excel - Guide
- Excel compter cellule couleur sans vba - Guide
- Concatener deux cellules excel - Guide
- Afficher cellules masquées excel - Forum Excel
3 réponses
bonjour
- voila un code pour traiter la cellule A1
- si le code doit etre repete 10 fois sur la colonne A à partir de A1
faire une boucle sur le numéro de ligne
bonne suite
- voila un code pour traiter la cellule A1
With Sheets("donnees")
If .Range("A1") <> "" And .Range("A1") < 65 Then
.Range("A1").Interior.ColorIndex = 3
Else
.Range("A1").Interior.ColorIndex = 0
End If
End With
- si le code doit etre repete 10 fois sur la colonne A à partir de A1
faire une boucle sur le numéro de ligne
With Sheets("donnees")
For li = 1 To 10
cel = "A" & li
If .Range(cel) <> "" And .Range(cel) < 65 Then
.Range(cel).Interior.ColorIndex = 3
Else
.Range(cel).Interior.ColorIndex = 0
End If
Next li
End With
bonne suite
Bonjour,
Ce serait beaucoup plus simple avec une MFC, "Mise en forme conditionnelle" (Voir ton aide pour l'employer)
A+
Ce serait beaucoup plus simple avec une MFC, "Mise en forme conditionnelle" (Voir ton aide pour l'employer)
A+
Bonjour,
tu as le droit de répondre sur ce post...
https://forums.commentcamarche.net/forum/affich-20768891-vba-colorer-cellules#p20769613
eric
tu as le droit de répondre sur ce post...
https://forums.commentcamarche.net/forum/affich-20768891-vba-colorer-cellules#p20769613
eric
Merci beaucoup
Eric : Désolé, je n'avais pas vu ce topic.