Pb vba colorier cellules
Fermé
boou
-
6 févr. 2011 à 10:40
lermite222 Messages postés 8724 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 - 6 févr. 2011 à 13:32
lermite222 Messages postés 8724 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 - 6 févr. 2011 à 13:32
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
- Excel compter cellule couleur sans vba - Guide
- Verrouiller cellules excel - Guide
- Concatener deux cellules excel - Guide
- Vba ouvrir un fichier excel avec chemin ✓ - Forum VB / VBA
3 réponses
ccm81
Messages postés
10907
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
24 janvier 2025
2 430
Modifié par ccm81 le 6/02/2011 à 11:57
Modifié par ccm81 le 6/02/2011 à 11:57
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
lermite222
Messages postés
8724
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 191
6 févr. 2011 à 12:56
6 févr. 2011 à 12:56
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+
eriiic
Messages postés
24603
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
15 décembre 2024
7 257
6 févr. 2011 à 12:57
6 févr. 2011 à 12:57
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
6 févr. 2011 à 13:07
Merci beaucoup
6 févr. 2011 à 13:32
Eric : Désolé, je n'avais pas vu ce topic.