Compter le nombre de ligne colorées [Résolu/Fermé]

Signaler
-
 Romain -
Bonjour á tous,

Je cherche le code sous VBA qui permette de savoir quelle est la valeur de la dernière cellule colorée d'une meme colomne.

Ex: la colomne A contient des cellules colorées jusqu'á la ligne 650, comment obtenir ce 650?

Merci d'avance

Romain

1 réponse

Messages postés
1181
Date d'inscription
mardi 27 mai 2008
Statut
Membre
Dernière intervention
12 juillet 2012
256
un exemple de petit code
A+

Sub compte_couleur()
'pour le test j'ai mis un fond jaune = 6 sur 20 ligne
' la derniere ligne est la n°30

     a = Range("A1").Interior.ColorIndex
     coul = CompteCouleur_fond(Range("A1:A120"), 6)
     s = MsgBox("la derniere cellule est : " & coul, vbInformation, " la ligne de la couleur")

End Sub

Function CompteCouleur_fond(Plage As Range, Couleur As Long) As Long
Dim C As Variant

Dim X
X = 0
For Each C In Plage
    If C.Interior.ColorIndex = Couleur Then
    X = C.Row  
    End If
Next
CompteCouleur_fond = X
End Function
1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 63550 internautes nous ont dit merci ce mois-ci

Merci beaucoup! J'ai pu finir ma macro.

Bon week end