Message d erreur qd je suis pas sur la bonne feuille

**johndeuf** · 07/12/2006, 17h44

Salut a tous

un petit probleme de debutant

j ai ecris la ma cro suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub Zusammen()
Dim i As Integer
 
i = Worksheets("Feuil1").UsedRange.Rows.Count
Worksheets("Feuil1").Range(Cells(1, 1), Cells(i, 6)).Copy Sheets("Feuil3").Range("A1")
End Sub

ce qui m empeche de dormir c est que ma macro ne fonctionne correctement que quand je la lance depuis la Feuil1
si j essaie alors que je suis en Feuil2 ou en Feuil3 :
erreur 1004
le debogage me surligne en jaune la 2eme ligne de ma macro

pourquoi diable ?
je sais pas trop si ca peut avoir une influence mais
- je l ai pas enregistrer sur une feuille particuliere je l ai écrite dans un module
et j ai specifier vouloir l applilquer dans tout les classeurs ouvert, dans mon classeur ,...(j ai essayé les differentes possibilités) mais sans succès

pourquoi ca fait ca
et comment faire pour pouvoir la lancer depuis n importequ elle Feuil ?

Merci du coup de main

**SilkyRoad** · 07/12/2006, 18h03

bonsoir

tu peux tester

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Dim i As Integer
Dim Ws As Worksheet
 
Set Ws = Worksheets("Feuil1")
 
i = Ws.UsedRange.Rows.Count
Ws.Range(Ws.Cells(1, 1), Ws.Cells(i, 6)).Copy Sheets("Feuil3").Range("A1")