Discussion :

[teen6517]

Bonjour tous le monde


Je cherche a a encadrer chaque cellule grace a une macro

Mon tableau est fixe sur le nombre de colonne (de A a H) mais le nombre de ligne varie

C'est possible un petit boue de code pour encadrer selement les ligne utiliser??

Merci de votre aide

[mercatog]

Code :

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

1
2
3
With Sheets("Feuil1")   'à adapter
    .Range("A1:H" & .Cells(Rows.Count, 1).End(xlUp).Row).Borders.LineStyle = xlContinuous
End With

[teen6517]

merci c'est absolument sa



PS :

Pour éviter de modifier le nom a chaque foi on pe utilisé ceci :

Code :

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

1
2
3
4
5
 
       nom_feuille = ActiveSheet.Name
	With Sheets(nom_feuille)   
		.Range("A1:H" & .Cells(Rows.Count, 1).End(xlUp).Row).Borders.LineStyle = xlContinuous
	End With

bonne continuation