Discussion :

[jbsushi]

Bonjour,

J'ai voulu automatiser une extraction de données d'un tableur vers un nouveau en ayant définis un filtre.
Grace à un bouton, je fais apparaitre un Userfrom, dans lequel se trouve une combobox pour choisir l'information à filtrer et un bouton pour lancer la macro.
Voici le code lié à la macro.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub CommandButton1_Click()
Dim Client As String, DernièreLigne As Long, NomFichier As String, objShell  As Object
 
Client = ComboBox1.Text 'Valeur choisie dans la liste
DernièreLigne = Cells(Rows.Count, 5).End(xlUp).Row 'Détermine la dernière ligne en colonne E
NomFichier = "Fichier_" & Client & "_" & Date
 
Range("A6:T7").AutoFilter Field:=2, Criteria1:=Client 'On trie le tableau en fonction du nom du client.
Range("A6:T" & DernièreLigne).Copy
ActiveSheet.AutoFilterMode = False
Unload Me
 
Workbooks.Add
ActiveSheet.Paste
Application.CutCopyMode = False

J'utilise déja ce code pour un autre tableur mais je n'arrive pas à l'utiliser pour celui ci.
Pourriez vous jeter un oeil, merci d'avance.

Je reste à votre disposition pour toute questions !
New Liste Reserve.xls

[78chris]

Bonjour

Quand tu as un filtre, il ne faut pas copier la dernière ligne remplie mais les cellule visibles : voir SpecialCells

[jbsushi]

Mais cette fonction marche très bien pourtant.
Si tu regardes ce fichier, le code est similaire et je veux réaliser la même fonction.Données_Client (2).xls
Je ne comprends pas la logique qui fait que je ne peux pas ré-appliquer ce code

[78chris]

Bonjour

• Ce que tu fais n'est pas un tri mais un filtre : il est préférable d'utiliser les termes adéquats
• la ligne 6 ne peut servir de filtre il faut utiliser la ligne 7
• la colonne 2 de ton fichier joint ne contient pas les noms des clients mais des chiffres
• utilise le mode debug pour voir ce qui résulte du filtre