Discussion :

[guigui71]

Bonjour à tous;


J'ai crée un programme qui à l'aide de filtre automatique me sélectionne les données qui m'intéressent.

J'aimerai maintenant copier ces données dans une nouvelle feuille

Code :

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

1
2
 
Sheets("Feuil1").Range("A1:AZxx").Copy Sheets("Feuil2").Range("A1")

je recontre 2 pb

pour les xx (qui est un nombre) j'aimerai que ce nombre corresponde au nombre de lignes totales de ma feuille.

2eme pb, ce pg me copie la totalié de ma feuille, et non pas ma sélection

[mayekeul]

bonjour,

tu devrais faire un peu comme ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Dim sh As Worksheet
Dim shdest As Worksheet
Dim I, J
 
Set sh = Sheets("Feuill1")
Set shdest = Sheets.Add(after:=Sheets(Sheets.Count))
 
sh.Range(Range("A1"), Range("AZ1").End(xlDown)).Copy
shdest.Range("A1").PasteSpecial xlPasteAll

[guigui71]

Merci,

il marche très bien;

Mais pour le copier dans une feuille précise j'y indique ou ?

[Theze]

Bonsoir,

Tu remplace :

Code :

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

Set shdest = Sheets.Add(after:=Sheets(Sheets.Count))

par :

Code :

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

Set shdest = Worksheets("Ici le nom de ta Feuille")

Attention avec l'emploi de "Sheets" car cette collection englobe aussi les feuilles graphiques ce qui peut parfois poser des problèmes tandis Worksheets est seulement la collection des feuilles de calcul.

Hervé.

[guigui71]

merci de ta réponse, mon problème est résolu

[guigui71]

j'ai parlé trop vite,

Une fois mon filtre effectué, je souhaite le copier mais le programme pour le copier me copie toutes les données et n'ont pas les données filtrées..

Avez vous une solution ?

quand j'ai fait des test avec 20 données, sa marche très bien ( sa copie ma sélection filtrée)

mais quand je travaille avec ma base ( 58000 données) , la sélection se filtre mais lors du copie, le programme me copie tout et non pas ma sélection filtrée..