Somme des lignes colorées

Bonjour et encore merci pour votre aide précieuse.

J'aimerai savoir s'il existe une Macro capable de comptabiliser le nombre de lignes de la colonne "A" qui sont colorées d'une certaine couleur ou dans mon cas dont le remplissage a une certaine couleur.

Pour vous éclairer (dans mon exemple) la colonne "A" a été remplie avec la commande

Selection.Interior.ColorIndex = 46

J'espère avoir été assez clair sans avoir à vous adresser un fichier.

Merci encore

Novicevba45

Bonjour

novicevba45 a écrit :

J'espère avoir été assez clair

Et bien non, tu n'as pas dis si les cellules sont vides

Faut t-il compter que les cellules vides, les non vides, les deux ?

Un fichier aurait levé ces ambiguïtés

Bonjour Novicevba45

Si tu as qu'une seule colonne, où il y a des couleurs, cela sera d'autant plu simple pour le parcours.

    Dim Cpt As Integer ' compteur
    Dim Nbre As Integer ' si tu connais le nombre de cellules utilisé indique le
    Dim Som As Integer ' som pour ocmpter le nombre de cellules colorié vide et non vide
    Nbre = Cells(Rows.Count, 1).End(xlUp).Row  ' écrire sa si il existe une dernière valeur dans ton tableau sinon mettre le nombre de ligne
    Som = 0
    Cpt = 0
    For Cpt = 1 To Nbre    ' on commence sur la preligne c'est à dire A1
        If Cells(Cpt, 1).Interior.ColorIndex = 46 Then
            Som = Som + 1
        End If
    Next
    MsgBox Som

à tester

Encore Merci

C'est parfait

bonne fêtes à tous et toutes

Novicebva45