Discussion :

[binouse18]

Bonjour tout le monde, j'aurai besoin d'un petit coup de pouce pour un code VBA s'il vous plait
Voila j'ai dans la feuille 1 la liste de prénom suivante:
Pierre, paul, jacque, paul, Adeline, pierre

Je souhaiterai que cette liste soit recopier en feuille 2 mais que chaque prénom ne soit présent qu'une seule fois. Soit: Pierre, paul, jacque, adeline.

Merci à tous ceux qui peuvent m'aider.

[tirex28]

Bonjour,

Réponse fourni par l'enregistreur de macro:

Code :

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

1
2
3
4
 
    Sheets("Feuil2").Select
    Sheets("Feuil1").Range("A2:A8").AdvancedFilter Action:=xlFilterCopy, _
        CopyToRange:=Range("A1"), Unique:=True

Adapter les plages sources et destination.

Cordialement,

Tirex28/

[binouse18]

Je te remercie pour ta réponse. Le problème c'est que j'ai quatre plage où se trouve les prénoms sur quatre feuilles différentes. Je voudrais que ces quatres listes soit résumé sur une cinquième et que chaque prénom n'apparaisse qu'une seul fois. Merci d'avance.

[jfontaine]

Je pense que c'est ce que tu cherches
Modifie le nom de feuille "Feuil3" avec le nom de ta feuille de destination.

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
19
20
21
22
23
24
25
26
Dim sh As Worksheet
Dim ish As Long
Dim iTri As Long
Dim bolTrouve As Boolean
 
For Each sh In ThisWorkbook.Sheets
    If sh.Name <> "Feuil3" Then 'Feuil3 a modifier avec destination
        ish = 1
        Do While sh.Range("A" & ish).Value <> ""
            bolTrouve = False
            iTri = 1
            With Sheets("feuil3") 'Feuil 3 a modifier avec la feuille destination
                Do While .Range("A" & iTri).Value <> ""
                    If .Range("A" & iTri).Value = sh.Range("A" & ish).Value Then
                        bolTrouve = True
                    End If
                    iTri = iTri + 1
                Loop
                If bolTrouve = False Then
                    .Range("A" & iTri).Value = sh.Range("A" & ish).Value
                End If
            End With
            ish = ish + 1
        Loop
    End If
Next sh

[binouse18]

ça marche bien je te remercie