Compter le nombre de ligne colorées
Résolu
Romain
-
Romain -
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
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
A voir également:
- Compter le nombre de ligne colorées
- Partage de photos en ligne - Guide
- Nombre de jours entre deux dates excel - Guide
- Mètre en ligne - Guide
- Aller à la ligne excel - Guide
- Formulaire en ligne de meta - Guide
1 réponse
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
Bon week end