CommentRécupérer 1 liste de valeur sous excel

bonjour
un essai
- mettre un bouton sur la feuille (boite a outils controles)
- lui affecter ce code
- selectionner la plage a traiter
- clic

Private Sub CommandButton1_Click() 
Dim c As Range 
Dim liste As String 
liste = "" 
For Each c In Selection 
  If Not (InStr(1, liste, c.Value) > 0) Then 
    liste = liste & "," & c.Value 
  End If 
Next c 
liste = Right(liste, Len(liste) - 1) 
MsgBox (liste) 
End Sub

bonne suite

En fait ma plage est fixe du type A1:E3, comment dois-je adapter ton code de ce fait ?

Merci pour ton aide

en fait ta fonction me retourne une liste vide

Grace à un collègue j'ai trouvé la solution :

Private Function InCollection(col As Collection, sKey As String) As Boolean

Dim bTest As Boolean

On Error Resume Next

bTest = IsObject(col(sKey))
If (Err = 0) Then
InCollection = True
Else
Err.Clear
End If

End Function

Function uniquevalues(thecells As Range) As Collection
Dim values As New Collection

For Each thecell In thecells

If Not InCollection(values, thecell.Text) Then
values.Add Item:=thecell.Value, key:=thecell.Text
End If
Next

Set uniquevalues = values

End Function

Sub test()

Set col = uniquevalues(Range("K54: N84"))

End Sub

Bonjour

à essayer

Const lig As Byte = 1 'coordonnées de départ  
Const col As Byte = 1  
Const nbre_lig As Byte = 3 'surface du tableau  
Const nbre_col As Byte = 5  
Const adresse As String = "$B$10" 'restitution cellule B10  

Sub liste_()  
Dim dico As Object  
Dim cptr_lig As Byte, cptr_col As Byte  
  
Set dico = CreateObject("scripting.dictionary")  

For cptr_lig = lig To nbre_lig + lig  
    For cptr_col = col To nbre_col + col  
        ref = Cells(cptr_lig, cptr_col)  
        If Not IsEmpty(ref) And Not dico.exists(ref) Then  
            dico.Add ref, ref  
        End If  
    Next  
      
Next  
  
Range(adresse) = Join(dico.items, ", ")  
End Sub

si tu veux une réponse avec tri dans l'ordre tu dis...
Michel