Detection de couleur sous excel via vba
Résolu/Fermé
A voir également:
- Couleur vba
- Somme si couleur - Guide
- Excel couleur conditionnelle - Guide
- La boite a couleur - Télécharger - Divers Photo & Graphisme
- Erreur 1004 vba ✓ - Forum VB / VBA
- Find vba - Astuces et Solutions
4 réponses
anocheda
Messages postés
54
Date d'inscription
jeudi 22 mai 2008
Statut
Membre
Dernière intervention
17 novembre 2008
3
28 juil. 2008 à 21:26
28 juil. 2008 à 21:26
Houhou!!!!1 mon premier code VBA
Sub CouleurRouge()
Dim i, j, n As Integer
n=0
For i = 1 To 10
For j = 1 To 10
If Cells(i, j).Interior.ColorIndex = 3 Then n = n + 1
Next j
Next i
Cells(1, 1) = n
End Sub
Ca compte le nombre des cellules rouges entre la ligne 10 et la colone 10
tu peux changer la taille de la recherche en augmentant i et j
ca donne le resultat en A1 tu peux le changer
si tu veux changer la couleur 3 c'est rouge, le reste je sais pas
Sub CouleurRouge()
Dim i, j, n As Integer
n=0
For i = 1 To 10
For j = 1 To 10
If Cells(i, j).Interior.ColorIndex = 3 Then n = n + 1
Next j
Next i
Cells(1, 1) = n
End Sub
Ca compte le nombre des cellules rouges entre la ligne 10 et la colone 10
tu peux changer la taille de la recherche en augmentant i et j
ca donne le resultat en A1 tu peux le changer
si tu veux changer la couleur 3 c'est rouge, le reste je sais pas
lermite222
Messages postés
8702
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 190
29 juil. 2008 à 00:21
29 juil. 2008 à 00:21
Bonjour,
pour avoir la liste des colorIndex tu tape F1 et dans recherche PatternColorIndex, propriété
Tu va avoir la page avec les couleurs et leurs numéros.
A+
pour avoir la liste des colorIndex tu tape F1 et dans recherche PatternColorIndex, propriété
Tu va avoir la page avec les couleurs et leurs numéros.
A+
lermite222
Messages postés
8702
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 190
29 juil. 2008 à 00:38
29 juil. 2008 à 00:38
Pour la macro...
A+
Sub ChercheCouleur()
Dim Coul As Integer
Dim Cel As Range
Dim Compteur As Integer
Coul = 3
Sheets("Feuil1").Select ' adapter au nom de la feuille
For Each Cel In Range("A1:J10") 'adapter la plage aux cellules à tester
If Cel.Interior.ColorIndex = Coul Then Compteur = Compteur + 1
Next
MsgBox "Il y a " & Compteur & " cellules avec la couleur N° " & Coul
End Sub
A+
