Trouver les cellules ayant une bordure

[Aguwar]

Bonjours à tous,

Je cherche a compter les cellules qui ont une bordure en bas.
Ces cellules sont dans une seule colonne mais, mélangées à d'autres sans bordure. J'ai touvé des codes pour afficher la bordure et je pourrais m'en servir mais ce que je n'arrive pas a faire c'est ma boucle conditionnelle IF.

Je pensais faire, en gros :
compteur=0
ligne=1
For
Si bordure en bas Then
compteur=compteur+1
ligne=ligne+1
Else
ligne=ligne+1
Next

Je bloque sur le pavé 'IF', je n'arrive pas a faire entrer les instructions sur la présence d'une bordure entre le If et le Then.

Quelqu'un peut-t'il m'aider?

 

[_Thierry]

Bonjour Aguwar, le Forum

Rapidos avant de filer au turbin...

Option Explicit

Sub BottomBorderTRacker()
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


MsgBox Compteur
End Sub


Bonne Journée et semaine à tous et toutes
[ol]@+Thierry[/ol]

 

[Aguwar]

Merci pour ta réponse.
Un copié-collé et celà marche du premier coup, c'est vraiment génial;

Je ne comprends pas tous les termes, il faudra que je les étudient car, malgré mon faible niveau, j'essaie toujours de comprendre ce que fait le programme.
Je ne suis pas aussi passionné que toi qui va sur le forum avant d'aller au travail.
Si je n'avais pas 'erré' pendant deux jours, je dirais que c'est le prog le plus propre et le plus rapide que je n'ai jamais eu.
Encore merci.

 

[_Thierry]

Bonjour Aguwar

Merci de ce gentil petit mot.

Pour ta compréhension :

Option Explicit 'En haut de module, oblige à déclarer les variables

Sub BottomBorderTRacker()
Dim Cell As Range ' Déclaration de Variable Objet de Type Range (Cellule ou plage de Cellules)
Dim Compteur As Integer ' Déclaration de Variable de Type Numérique Entier (entre -32 768 et 32 767)

    'Ici démarrage Boucle pour Chaque Cellule dans la Plage Définie)
    For Each Cell In Range('A1:A1000')
   
        'Ici Condition Si NON REMPLIE => Le Format Border 'bordure en bas' = 'Rien'
        If Not Cell.Borders(xlEdgeBottom).LineStyle = xlNone Then
       
            'Ici incrémentation du Compteur
            Compteur = Compteur + 1
           
        'Ici Fin de Condition
        End If
       
    'Ici Passage à la Cellule Suivante dans le Boucle sur la Plage Définie.
    Next Cell


MsgBox Compteur
End Sub

Bonne Journée
@+Thierry

 

[Aguwar]

Un nouveau merci à Thierry pour ce complément d'explication.

Ha! si tout VBA était expliqué comme celà la vie serait belle pour les 'petits' de la programmation.