Compter le nombre de ligne colorées
Résolu/Fermé
A voir également:
- Compter le nombre de ligne colorées
- Site de vente en ligne particulier - Guide
- Partage de photos en ligne - Guide
- Aller à la ligne excel - Guide
- Hors ligne instagram - Guide
- En ligne sur messenger alors que non ✓ - Forum Facebook
1 réponse
Bidouilleu_R
Messages postés
1181
Date d'inscription
mardi 27 mai 2008
Statut
Membre
Dernière intervention
12 juillet 2012
289
15 juil. 2010 à 07:42
15 juil. 2010 à 07:42
un exemple de petit code
A+
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
16 juil. 2010 à 23:31
Bon week end