créer et supprimer des lignes

[Vanhelsing]

re bonsoir

je voudrais créer deux macro distingue pour ajouter ou supprimer des lignes dans un tableau qui est sur plusieur feuilles à partir d'un cellule active. ces macro sont activé par deux boutons distincts.

j'explique par l'exemle :

j'ai ma cellule active en A3 et je voudrais insérer ou supprimer une ligne à partir de cet endroit et ce dans 3 classeur ( appelons les clas1, clas2 et cla3)

merci de votre aide, mais connaissances en VBA sont encore modestes.

a bientot
VanHelsing

 

[Vanhelsing]

Re : créer et supprimer des lignes

pardon

mon tableau est le meme sur trois classeur.

 

[Vanhelsing]

Re : créer et supprimer des lignes

pardon c est des feuilles ( excusez moi j ai du mal ce soir lol)

 

[Staple1600]

Re : créer et supprimer des lignes

Re

Pour insérer une ligne (en dessous de la cellule active)
sur tous les feuilles du classeur.

Sub insertligne()
l = ActiveCell.Row
nbf = Sheets.Count
For i = 1 To nbf
Worksheets(i).Cells(l, 1).Offset(1, 0).EntireRow.insert
Next
End Sub

Pour supprimer une ligne

Sub supprimerligne()
l = ActiveCell.Row
nbf = Sheets.Count
For i = 1 To nbf
Worksheets(i).Cells(l, 1).Delete Shift:=xlUp
Next
End Sub

 

[Vanhelsing]

Re : créer et supprimer des lignes

re staple1600

c'est presque ça sauf que mes feuilles sont déja nommées ( admettons que les nomment feuille1, 2 et 3

merci