Discussion :

[chito79000]

Bonjour à tous,

Je suis bloqué sur mon code ci dessous :

Code :

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

1
2
3
4
5
6
7
8
Sub testtt()
' ------------Mise à jour------------
ActiveWorkbook.Names.Add Name:="MaBase", RefersTo:=Range("A1").CurrentRegion
 
' ------------Extraction------------
Range("MaBase").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("E1"), Unique:=False
 
End Sub

J'ai trois colonnes comme ceci

CODE1     CODE2     CODE3
1515	  E400	    125
1516	  E410	    126
1516	  E456	    124
1518	  E488	    8555

Lorsque je lance ma macro cela me recopie tout le tableau alors que je voudrais que cela me recopie seulement la colonne A(CODE1) avec l'ensemble des données mais en supprimant les doublons comme ceci
CODE1
1515
1516
1518

[joe.levrai]

Bonjour,

il faut que :

- en E1 figure le titre de la colonne A ... seul, aucun autre titre ne doit être écrit à côté
=> si tu ne mets pas le titre des colonnes que tu veux récupérer, tu vas récupérer l'ensemble des colonnes existantes

- tu spécifies l'argument "Unique" à True : c'est lui qui fait l'extraction sans doublon

Code :

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

Range("MaBase").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("E1"), Unique:=True

[chito79000]

En effet, cela fonctionne merci beaucoup (erreur de débutant )