Ligne en plus

[Bulis]

Bonjour le forum

J'ai en tableau de 15 colonnes, ma ligne de départ et la ligne 6.

J'ai 10 lignes écrites et j'aimerai savoir si il est possible via un bouton d'ajouter une ligne en automatique avec le quadrillage.
Exemple la ligne 11.

Merci pour vos aides

Salutations

Bulis

 

[Robert]

Salut Bulis, salut le forum,

Parmi les nombreuses possibilités de faire ce que tu demandes voici un code qui te rajoute une ligne entière déjà formatée.
J'ai considéré que ton tableau commence à la colonne A. Si ce n'est pas le cas, remplace dans le code ci-dessous tous les A par la lettre de la première colonne de ton tableau.

Sub ligne()
Range("A65536").End(xlUp).EntireRow.Copy Destination:=Range("A65536").End(xlUp).Offset(1, 0)
Range("A65536").End(xlUp).EntireRow.ClearContents
End Sub

Utilise cette macro chaque fois que tu veux rajouter une ligne.

À plus,

Robert

 

[Bulis]

Salut robert

Merci cela fonction à merveille

A la prochaine