VBA - Compter le nombre de cellules colorées

Problème

Je cherche le code VBA sous lequel nous pouvons déterminer l'index de la dernière cellule (couleur prédéfinie) dans une colonne colonnes.

Exemple: La colonne contenant des cellules colorées jusqu’à la ligne 650, comment obtenir ce 650?

Solution

Voici un petit code, à cet effet:

 Subcolor_count () 'pour le test, nous allons utiliser un fond jaune = 6 sur 20 ligne', la dernière ligne est non 30 a = Range ("A1"). Interior.ColorIndex col = CountColor_bacgroung (Range ("A1: A120"), 6) s = MsgBox ("la dernière cellule est:" & col, vbInformation, "ligne de couleur") End Sub Function CountColor_bacgroung (Index As Range, Color As Long) As Long Dim C As Variant Dim XX = 0 pour chaque C Dans Plage Si C.Interior.ColorIndex = Couleur Alors X = Fin du C.Row Si Suivant CountColor_bacgroung = X End Function 

Merci à Bidouilleu_R pour cette astuce.