Compter le nombre de ligne colorées Résolu

Question

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

Bidouilleu_R · Answer

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

Compter le nombre de ligne colorées

1 réponse

Discussions similaires

Newsletters