Compter nombre de ligne avec bordure dans une colonne

Résolu
Tozinho64 Messages postés 43 Statut Membre -  
Tozinho64 Messages postés 43 Statut Membre -
Bonjour,
J'ai des cellules avec bordures dans la colonne A (de A11 à A30 par exemple).
Je voudrais connaitre en vba, comment compter le nombre de ligne avec bordure et donc avoir le résultat dans une variable type nb=20 ou nb est le nombre de ligne.

Merci pour votre aide
A voir également:

2 réponses

cs_Le Pivert Messages postés 8437 Statut Contributeur 729
 
0
Tozinho64 Messages postés 43 Statut Membre
 
Je viens de trouver ceci et cela fonctionne :
Sub compteurbordure()
Dim Cell As Range
Dim Compteur As Integer


For Each Cell In Range("A1:A1000")
If Not Cell.Borders(xlEdgeBottom).LineStyle = xlNone Then
Compteur = Compteur + 1
End If
Next Cell


nb = Compteur - 1
End Sub


Merci et bonne journée
0
Tozinho64 Messages postés 43 Statut Membre
 
Ouch,
merci pour ce retour mais pas trop compliqué ?
0