Compter nombre de ligne avec bordure dans une colonne

Résolu/Fermé
Tozinho64 Messages postés 43 Date d'inscription vendredi 9 juin 2017 Statut Membre Dernière intervention 23 novembre 2023 - 28 oct. 2021 à 14:10
Tozinho64 Messages postés 43 Date d'inscription vendredi 9 juin 2017 Statut Membre Dernière intervention 23 novembre 2023 - 28 oct. 2021 à 14:45
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 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
28 oct. 2021 à 14:24
0
Tozinho64 Messages postés 43 Date d'inscription vendredi 9 juin 2017 Statut Membre Dernière intervention 23 novembre 2023
28 oct. 2021 à 14:45
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 Date d'inscription vendredi 9 juin 2017 Statut Membre Dernière intervention 23 novembre 2023
28 oct. 2021 à 14:31
Ouch,
merci pour ce retour mais pas trop compliqué ?
0