XL 2016 index des valeurs de plusieurs sheet

[pinko1974]

Bonjour

j'aimerais avoir sur une page séparée d'un fichier avoir la liste des valeurs ( sans doublons) présente dans la colonne B de tous les feuilles.

Est ce possible ?

en annexe un fichier reprenant l'idée et le résultat désirés

merci d'avance de votre aide

 

[Jacky67]

Bonjour,
Une proposition par VBA avec ce code en Pj

Sub rassemble()
    Dim Sh As Worksheet, Derlg&
    Feuil1.Range("c2:c" & Rows.Count).Clear
    For Each Sh In ThisWorkbook.Worksheets
        Derlg = Feuil1.Cells(Feuil1.Rows.Count, "C").End(xlUp).Row + 1
        If Sh.Name <> "INDEX" Then
            With Sh
                .Range("b2:b" & .Cells(.Rows.Count, "B").End(xlUp).Row).Copy Feuil1.Range("c" & Derlg)
            End With
        End If
    Next
    Feuil1.Columns(3).RemoveDuplicates 1, Header:=xlYes
End Sub

 

[pinko1974]

super ça marche

Un grand merci

 

[Jacky67]

super ça marche je dois juste trouver comment supprimer les doublons

Un grand merci

Re...
Heu!!
Y a t'il des doublons dans mon exemple ???