Trouver les cellules ayant une bordure

Aguwar · 8 Août 2005

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 · 8 Août 2005

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 · 8 Août 2005

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 · 9 Août 2005

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 · 9 Août 2005

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.

Trouver les cellules ayant une bordure

Aguwar

Guest

_Thierry

XLDnaute Barbatruc

Aguwar

Guest

_Thierry

XLDnaute Barbatruc

Aguwar

Guest

Discussions similaires