Insertion ligne automatique (avec formule) sur plusieurs feuilles
Eh bien manifestement, la méthode avec l'instruction "Select Case" marche super bien ! Pour ceux intéressés (merci beaucoup à Staple1600 et jpb388), voici l'instruction à suivre.
Dans mon exemple ci-après, le fichier Excel comporte quatre feuilles Feuil1, Feuil2, Feuil3, Feuil4 et le but est de copier une ligne avec formule correspondante dans les feuilles 1, 2 et 3 (pas de copie dans la 4) :
**************Ajout ligne & formule pour feuilles 1, 2 et 3 uniquement***************
Sub ajout_ligne_par_feuilles()
Dim s As Worksheet, ligne&
ligne = InputBox("A quelle position voulez-vous insérer une nouvelle ligne?", "N° Ligne")
For Each s In Worksheets
Select Case s.Name
Case "Feuil1", "Feuil2", "Feuil3"
s.Rows(ligne).Copy
s.Rows(ligne).Insert Shift:=xlDown
End Select
Next s
Application.CutCopyMode = False
End Sub
*****************************************************************
A présent, même chose mais pour supprimer une ligne dans chaque feuille :
**********Suppression ligne & formule pour feuilles 1, 2 et 3 uniquement**********
Sub suppression_ligne_par_feuilles()
Dim s As Worksheet, ligne&
ligne = InputBox("Quelle ligne voulez-vous supprimer ?", "N° Ligne")
For Each s In Worksheets
Select Case s.Name
Case "Feuil1", "Feuil2", "Feuil3"
s.Rows(ligne).Delete Shift:=xlUp
End Select
Next s
Application.CutCopyMode = False
End Sub
******************************************************************