Sub compte_couleur()
'declaration des variables integer signifie que la variable accepte des entiers de -32768 à +32768
Dim cel_bleu As Integer, cel_rouge As Integer, cel_rien As Integer
'inutile toute variable non initialisé est = à 0
cel_bleu = cel_rouge = cel_rien = 0
'Range('A1').Select'inutile
'pour i=1 jusqu'a la derniere cellule non vide de la colonne A
For i = 1 To Range('A65536').End(xlUp).Row
'si la cellule (cells(ligne, colonne)) i,1 à comme couleur de police 5 alors
If Cells(i, 1).Font.ColorIndex = 5 Then
'on incremente la variable cel_bleu de + 1
cel_bleu = cel_bleu + 1
'si la cellule (cells(ligne, colonne)) i,1 à comme couleur de police 3 alors
ElseIf Cells(i, 1).Font.ColorIndex = 3 Then
'on incremente la variable cel_rouge de + 1
cel_rouge = cel_rouge + 1
Else
'sinon (si la cellule n'est par rouge ou bleu)
'on incremente la variable cel_rien de + 1
cel_rien = cel_rien + 1
'fin de condition
End If
'prochain i, donc ici ton i va devenir 2 i=i+1, puis3, etc...
Next i
'on renvoi le message
MsgBox 'Il y a ' & cel_bleu & ' cellules bleues, ' & cel_rouge & ' cellules rouges et ' & cel_rien & ' cellules vides'
'cells(ligne, colonne) permet de trouver une cellule par sa ligne et sa colonne
'une autre syntaxe possible : range('a' & i)
End Sub
)
