Discussion :

[marie33000]

Bonjour tous le monde,

J'aurais besoin d'un petit coup de pouce.
J'importe mes données dans la Feuil1 et j'aimerais dupliquer cette feuille, ou copier les données de Feuil1 dans Feuil2 pour que je puisse filtrer certaine donnée (dans Feuil2) tout en conservant mes donnée d'origine (Feuil1).

J'ai bien ceci:

Code :

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

1
2
Sheets("Feuil1").Copy Before:=Sheets(1)
Sheets("Feuil1 (1)").Select

mais ça ne fais pas exactement ce que je souhaite.

A chaque filtrage il m'ajoute une nouvelle feuille, c'est pas très pratique.

Merci par avance

[Minick]

Salut,

Code :

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

1
2
3
4
Sub CopyFeuil1SurFeuil2()
    Feuil1.Cells.Copy Feuil2.Cells
    Feuil2.Select
End sub

Mais pourquoi passer par une macro.
Un simple copier coller suffirait.

++
Minick

[marie33000]

Euh je dois passer par une macro car ce serait trop long à faire si je reprenais à chaque fois un copier coller.

Aussi bizarre que ça puisse paraitre, lorsque j'utilise ton code je retrouve mes données dans Feuil2 mais ça a vidé Feuil1.

Je ne comprend pas

Merci de m'avoir répondu

Problème réglé, j'avais oublier de mettre une ligne en commentaire.
Ça fonctionne merci beaucoup

[Krovax]

Code :

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

1
2
Sheets("Feuil1").Copy after:=Sheets(sheets.count)
Sheets(sheets.count).Select

Par principe je le mettrais a la fin car la feuil1 ne sera as forcément la première, surtout que tu rajoute des feuille devant