Bordure de cellule sous VBA

Résolu/Fermé
Grobibi34 Messages postés 83 Date d'inscription lundi 3 mars 2008 Statut Membre Dernière intervention 29 mai 2008 - 17 mars 2008 à 09:28
 seb - 10 mars 2012 à 13:20
Bonjour, à tous.

Je suis en train de développer un petit outil de planning automatique, mes lignes et mes colonnes sont donc variables.

J'aimerai que toutes les cellules que j'ai édité aient une bordure.

J'imagine donc que le problème serait de sonder toute les cellules ligne par ligne ou colonne par colonnes pour voir si il y a quelque chose d'écrit dedans si c'est le cas on encadre la cellule en question.

Est-ce que j'ai raison sur le principe ? Si oui comment y parvenir, sinon comment faire ?

Cordialement,

Grobibi34

7 réponses

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
23 avril 2010 à 14:03
bonjour

ton tableau est dans la zone B2:H25 par exemple

Sub encadrer_si()
Dim cellule As Range
For Each cellule In Range("B2:H25")
   If cellule <> "" Then cellule.Borders.Weight = xlThin
Next
End Sub


37
Merci bcp !
0