Discussion :

[modus57]

Bonjour,

Il me semble qu'il est impossible de masquer les doublons dans un tableau structuré.

J'ai trouvé une solution sur le blog de Philippe TULLIEZ avec cet excellent billet "EXCEL Comment renvoyer dynamiquement les valeurs uniques de la colonne d'un tableau (ListObject)" que j'essaye d'utiliser avec une colonne au format date ("jj-mm-aa") dans le tableau.

Comment récupérer les dates avec le même format dans un ComboBox.

Merci d'avance pour vos réponses.

[BENNASR]

bonjour
la demande n'est pas claire au moins pour moi
si tu cherche à remplir ton combo avec la colonne B avec des date et sans doublons teste :

Code :

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

1
2
3
4
5
6
7
8
Private Sub UserForm_Initialize()
Dim i As Integer
For i = 2 To Sheets("feuil1").Range("B65536").End(xlUp).Row
  ComboBox1 = Sheets("feuil1").Range("B" & i)
  If ComboBox1.ListIndex = -1 Then ComboBox1.AddItem Sheets("feuil1").Range("B" & i)
Next i
ComboBox1.Value = Format(ComboBox1.Value, "dd-mm-yy")
End Sub

[modus57]

Bonjour

Merci pour votre réponse dans ce cas aucun soucis de fonctionnement.

Mais je souhaite utiliser la solution de Philippe TULLIEZ "EXCEL Comment renvoyer dynamiquement les valeurs uniques de la colonne d'un tableau (ListObject)" https://www.developpez.net/forums/bl...ject/#comments

Par exemple si la colonne date du tableau est 19-11-19 c'est 43788 qui est renvoyer dans la ComboBox ?

Je ne trouve pas la solution pour corriger.

[Valtrase]

Salut,
Tu dois formater au format Date donc :

Code :

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

ComboBox1.List = Evaluate("TEXT(UNIQUE(C3:C12),""dd/mm/yyyy"")")

[modus57]

Bonjour Valtrase,

Merci pour votre réponse.

Je résume ce que je souhaite obtenir comme résultat :
Voici le tableau



La procédure de P. TULLIEZ adaptée



La fonction de P. TULLIEZ



Mon Userform



Comment et où utiliser votre format Date ?

@+

[Valtrase]

Bonjour,
Tu dois modifier la fonction de P. Tulliez comme suit:

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
Function GetUniqueValue(TableName As String, LabelName As String)
  ' Renvoie la liste des éléments unique présents dans la colonne du tableau passé par arguments
  ' Philippe Tulliez (https://magicoffice.be)
  ' Arguments
  '   TableName  Nom du tableau
  '   LabelName  Etiquette de la colonne
  ' Déclaration
  Const FormulaPattern As String = "TEXT(UNIQUE(<Table>[<Label>]),""dd-mm-yyyy"")" ' Modèle de la formule
  Dim f As String
  ' Remplacement des balises <Table> et <Label> par les arguments passés
  f = Replace(FormulaPattern, "<Table>", TableName)
  f = Replace(f, "<Label>", LabelName)
  ' Renvoi des éléments uniques
  GetUniqueValue = Evaluate(f)
End Function

Pour l'appel cela ne change pas.

Code :

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

ComboBox1.List = GetUniqueValue("Tableau2", "Facture")

Normalement selon version tu n'en aura pas besoin. Mais si la liste déroulante se remplie sur une seule ligne et plusieurs colonnes, alors change la dernière ligne de la fonction par :

Code :

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

GetUniqueValue = Application.Transpose(Evaluate(f))