Discussion :

[ph_anrys]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Jean-Philippe André]

salut,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

tu pourras alors avoir une plage de cellules étendue dynamiquement

[ph_anrys]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Jean-Philippe André]

Presque

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ph_anrys]

merci