inserer une ligne

Bonjour Alex et le forum,

2 possibilités (pour les puristes seulement la 2ème)

via l'enregistreur de macros :
1 tu te mets en groupe de travail en sélectionnant tes 2 feuilles
2 tu insères ta ligne
3 tu arrêtes l'enregistreur et tu vas voir le code :

Sub Macro2()
'
' Macro2 Macro
' Macro enregistrée le 20/04/2004 par BANCILLON catherine
'
Sheets(Array("Feuil1", "Feuil2")).Select
' Sheets("Fil").Activate
Rows("31:318").Select
Selection.Insert Shift:=xlDown
End Sub

2ème possibilité :

For i = 1 To 2
Sheets(i).Select
Rows("31:31").Insert Shift:=xlDown
Next
C@thy

Y'a ma souris ka dérapé lire :

Sub Macro2()

Sheets(Array("Feuil1", "Feuil2")).Select
Rows("31:31").Select
Selection.Insert Shift:=xlDown
End Sub

2ème possibilité :

Sub Macro2()

For i = 1 To 2
Sheets(i).Select
Rows("31:31").Insert Shift:=xlDown
Next
End Sub

C@thy

merci c sympa cathy

mais comment faire si je ne veux pas que toutes les feuilles de mon classeur soit affectées?

Eh bien je t'ai donné la réponse :

via l'enregistreur de macros :
1 tu te mets en groupe de travail en sélectionnant tes 2 feuilles

...
[/b]
For i = 1 To 2 pour les feuilles 1 et 2

C@thy