inserer une ligne

[Alex]

Salut a tous

J'aurais aimer savoir si une personne savais comment faire pour inserer un ligne dans deux feuilles différentes par un code vba ?

Par exemple : j'insere une ligne entre 30 et 31 dans la feuille1 je veux que ca fasse la meme chose dans la feuille2 est ce possible?

Merci d'avance

 

[C@thy]

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

 

[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

 

[Alex]

merci c sympa cathy

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

 

[C@thy]

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