Mettre des bordures dans une plage de cellule

Signaler
Messages postés
61
Date d'inscription
jeudi 19 mai 2005
Statut
Membre
Dernière intervention
1 juin 2014
-
Messages postés
1835
Date d'inscription
vendredi 13 mai 2005
Statut
Membre
Dernière intervention
20 novembre 2013
-
Bonsoir,
Je voudrais mettre une bordure dans chaque cellules d'une plage. J'ai
écrit pour celà une boucle do while.
Malgré qu'il n'y ait pas d'incidents, rien ne se passe dans les
cellules.
Voici mon bout de code :

Do While Sheets("My B400").Cells(y2, 1).Value <> "" ' la boucle s'arrete quand la cellule est vide
Sheets("My B400").Range("A" & y2 & ":D" & y2).Select
With Selection.Borders
.LineStyle = xlContinuous
End With
y2 = y2 + 1
Loop

Une ame charitable peut elle m'expliquer pourquoi rien ne se passe.

Merci infiniment

1 réponse

Messages postés
1835
Date d'inscription
vendredi 13 mai 2005
Statut
Membre
Dernière intervention
20 novembre 2013
9
Salut,

j'ai testé et de mon coté pas de probleme... mais pour que cela marche comme ecrit dans ton code, il faut pas qu'une des cellules soit vide sinon tous s'arrete ! et si la premiere cellule est vide alors il ne ce passera rien.

A+