bordures par vba

Bonjour,

j'ai fait un classeur ou je rentre des produits dans une feuille du classeur, après en appuyant sur un bouton je copie le produit rentré dans une liste qui se trouve sur une autre feuille. cela marche très bien.

Ce que je voudrais faire c'est sur ma feuille avec la liste des produits c'est mettre les bordures automatiquement à la nouvelle ligne copiée.

Code:

---

1 2 3 4 5 6 7

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

---

Alors ce code marche très bien mais une fois que la cellule H25 est remplie ça ne marchera plus , alors je voudrais qu'il mette la bordure a chaque fois qu'il y a une nouvelle cellule remplie.

je ne sais pas comment faire.

merci pour votre aide

salut,

pour obtenir le numéro de la dernière ligne remplie, tu peux passer par :

Code:

---

Range("A65536").End(xlup).Row

---

tu pourras alors avoir une plage de cellules étendue dynamiquement :)

merci mais je suis débutant en vba alors suite à la réponse, j'ai fait ceci mais ca marche pas.

Code:

---

1 2 3 4 5

Dim cellule As Range For Each cellule In Range("A65536").End(xlUp).Row If cellule <> "" Then cellule.Borders.Weight = xlThin Next

---

une solution, merci

Presque :)

Code:

---

1 2 3 4

Dim cellule As Range For Each cellule In Range("B2:H" & Range("A65536").End(xlUp).Row) If cellule <> "" Then cellule.Borders.Weight = xlThin Next

---

la boucle for each étant un peu plus longue à tourner :)

merci