1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
| Sub comptagesurcouleur()
Dim a As Byte, j As Byte, i As Byte, compteur As Byte, colonnedebut As Byte, colonnefin As Byte, lignedebut As Byte, lignefin As Byte
MsgBox "Macro qui va compter le nombre de cellules de la couleur de votre choix dans les plages que vous allez déterminer!"
colonnedebut = InputBox("Entrez le numéro de la première colonne à sonder, exemple :" & Chr(13) & "A=1" & Chr(13) & "B=2" & Chr(13) & "...", "Choix de la colonne de début")
colonnefin = InputBox("Entrez le numéro de la dernière colonne à sonder, exemple :" & Chr(13) & "A=1" & Chr(13) & "B=2" & Chr(13) & "...", "Choix de la colonne de fin")
lignedebut = InputBox("Entrez le numéro de la première ligne à sonder", "Choix de la ligne de début")
lignefin = InputBox("Entrez le numéro de la dernière ligne à sonder", "Choix de la ligne de fin")
a = InputBox("1=Noir" & Chr(13) & "2=Blanc" & Chr(13) & "3=Rouge" & Chr(13) & "4=Vert brillant" & Chr(13) & "5= Bleu" & Chr(13) & "6=Jaune" & Chr(13) & "7=Rose" & Chr(13) & "8=Turquoise", "Choix de la couleur")
compteur = 0
For j = lignedebut To lignefin
For i = colonnedebut To colonnefin
If Cells(j, i).Interior.ColorIndex = a Then
compteur = compteur + 1
End If
Next
Next
MsgBox compteur, vbOKOnly, "Résultat"
End Sub |
Partager