Discussion :

[mandrake57]

Bonjour à tous,

Après plusieurs jours de recherches (google et ici même), je me résouds à poser ma question.

Je possède un classeur avec deux feuilles et je souhaite imposer un filtre sur la première. Suite à ce filtre j'aimerais obtenir la liste sans doublons des noms qui se trouvent en colonne B et l'importer sur la feuille 2.

Autrement dit je cherche à faire une extraction sans doublon avec exportation sur une autre feuille. J'ai fouillé les sujets de ce forum qui pouvaient ressembler à cette demande mais je n'ai rien trouvé de concluant.

Quelqu'un sait-il le faire ou quelqu'un a t-il une idée pour arriver au même résultats?

Merci pour votre aide à tous!

[jfontaine]

Bonjour,

Penses a utiliser l'enregistreur de macro, ça peut rendre de grand service

Ici on filtre la plage A2 à A27, on copie les données sans doublons dans la colonne F puis on fait un couper/coller de la colonne F en colonne A dans l'onglet Feuil3

Code :

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

1
2
3
Range("A2:A27").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _
        "F1"), Unique:=True
Range("F:F").Cut Sheets("Feuil3").Range("A:A")

[mandrake57]

Bonjour, tout d'abord merci d'avoir pris le temps de me répondre, j'ai malheureusement eu moins de temps dispo ces derniers jours pour regarder de près mon problème.

J'utilise l'éditeur de macro pour m'inspirer quand je suis en panne, c'est pas mal mais le codze n'est pas toujours optimun

En ce qui concerne la solution proposée, je la connais mais j'aimerais aller plus loin, c'est à dire sans passer par une étape de collage et couper coller de cette même zone.

En résumé ne pas passer par une zone intermédiaire, cela est-il possible?

[jfontaine]

Essai cette 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
16
17
18
 
Sub filtre()
Dim iSource As Long
Dim iDest As Long
Dim rg As Range
 
iDest = 1
For iSource = 1 To Range("A:A").End(xlDown).Row
    'Recherche dans la feuil3
    Set rg = Sheets("Feuil3").Range("A:A").Find(Range("A" & iSource).Value, LookIn:=xlValues)
    If rg Is Nothing Then
        Sheets("Feuil3").Range("A" & iDest).Value = Range("A" & iSource).Value
        iDest = iDest + 1
    End If
 
Next iSource
 
End Sub

[mandrake57]

Bonjour, mercipour cette petite macro qui marche vraiment bien!

J'ai juste encore quelques questions afin de bien comprendre et de pouvoir la réutiliser sur d'autres fichiers

1. Que représente les variables iDest et iSources?

2. A quoi sert la variable rg?

3. Est-il possible d'avoir une brève description des deux ou trios étapes importantes de la macro (pour vérifier si j'ai bien compris la philosophie de la macro... )

4. Dernier point si je veux coller la sélection sur la feuille 3 mais que à partir de A8 comment le noter dans la macro, j'ai essayé mais j'ai du me tromper dans mon écriture...

Merci beaucoup!

[jfontaine]

J'ai légèrement amélioré

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
16
17
Sub filtre()
Dim iSource As Long 'Ligne feuille Source
Dim iDest As Long ' ligne feuille destination
 
iDest = 8 'ligne de démarrage de l'ajout dans la feuille destination
'Boucle sur les lignes de la feuille source
For iSource = 1 To Range("A:A").End(xlDown).Row
    'Recherche dans la feuil3
    If Sheets("Feuil3").Range("A:A").Find(Range("A" & iSource).Value, LookIn:=xlValues) Is Nothing Then
        'Si pas trouvé ajoute la données dans la feuille Cible
        Sheets("Feuil3").Range("A" & iDest).Value = Range("A" & iSource).Value
        iDest = iDest + 1
    End If
 
Next iSource
 
End Sub