Bonjour à tous,
Je cherche à additionner des cellules dont l'intérieur est rempli (jaune). A partir du code ci-dessous récupérer sur ce site comment puis-je indiquer une couleur précise et une recherche par colonne avec une réponse par colonne en tête de chaque colonne
Sub Test()
For Each o In Selection
If o.Interior.ColorIndex <> xlNone Then i = i + 1
Next
MsgBox i
End Sub
Merci pour vos propositions
a+
Je cherche à additionner des cellules dont l'intérieur est rempli (jaune). A partir du code ci-dessous récupérer sur ce site comment puis-je indiquer une couleur précise et une recherche par colonne avec une réponse par colonne en tête de chaque colonne
Sub Test()
For Each o In Selection
If o.Interior.ColorIndex <> xlNone Then i = i + 1
Next
MsgBox i
End Sub
Merci pour vos propositions
a+