[Excel] Colorer des cellules sur conditions VoirIl existe dans Excel des fonctions très pratiques mais peu connues et peu utilisées.
Exemple : vous souhaitez qu'une cellule se colore automatiquement en rouge (ou autre mise en forme de police, de bordure, de trame) selon une condition : un...
Sub compter()
Dim compteur
Dim lig=0 <--déclaration de tes varaiables
Dim col=0
For lig = 1 To 1000 <-- les numéros de ligne de ton tableau
For col = 1 To 1000 <-- les numéros de colonne de ton tableau
If cells(lig,col).interior.colorindex<>0 Then <-- si la couleur de remplissage est différente de blanc
compteur=compteur+1
End If
Next col
Next lig
Range("D24" ).Value = compteur <-- mettre à la place de D24 le numéro de la case qui doit afficher le résultat
End Sub
Je n'ai pas testé cette macro, mais j'espère que ca t'aidera