ComboBox et tableau structuré

Version imprimable

16/07/2019, 17h26
Pabri

1 pièce(s) jointe(s)

ComboBox et tableau structuré
Bonjour

J'ai un petit problème dans un fichier assez simple :

Feuille1 : je créé un Combobox dans lequel je veux lister le contenu d'une colonne d'un tableau structuré se trouvant en feuil2. le tableau s'appel Lstclients il est créé au départ d'une requête sur un autre classeur Excel.
J'ai défini un nom ("recherche") pour identifier la colonne que je veux lister dans mon combobox la colonne s'appel Idunique.
Lorsque dans "Recherche" je spécifie quelques ligne de la colonne (Y2:Y55) tout est ok dans mon combobox. mais lorsque je mets =Lstcilents[Idunique], mon combobox reste vide.

Pièce jointe 491440
Le code du Combobox est :
Code:

1 2 3 4 Private Sub ComboBox1_Change() ComboBox1.ListFillRange = "recherche" Me.ComboBox1.DropDown End Sub
Merci d'avance pour votre aide
13/08/2019, 08h22
Pierre Fauconnier
Salut.

Il s'agit apparemment d'un combobox activex placé sur une feuille de calcul, vu la propriété ListFillRange. Cette propriété requiert une adresse de plage (A1:A10, par exemple).

Perso, j'utiliserais la propriété List
Code:

1 2 3 4 Private Sub ComboBox1_Change() ComboBox1.List = Range("recherche").Value Me.ComboBox1.DropDown End Sub
Cela dit, ce n'est pas pertinent de modifier la source du combobox à chaque Change.

Que cherches-tu à mettre en place?
13/08/2019, 08h31
Pabri

Bonjour,
Merci de votre réponse.
Ce que je veux mettre en place en fait c'est une proposition d'adresses pour un nom de client donné (encodé) un peu comme une recherche google et qui s'affine au fur et à mesure de l'encodage du nom.

Je vais déjà essayer votre proposition.

MErci

2 pièce(s) jointe(s)

Bonsoir,

Un exemple de combobox intuitif dans une feuille de calcul.
La liste du ComboBox se réduit au fur et à mesure de la frappe des caractères.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Option Compare Text
Dim choix()
Private Sub ComboBox1_GotFocus()
  Set f = Sheets("bd")
  a = f.Range("A2:A" & f.[A65000].End(xlUp).Row)
  Set d = CreateObject("scripting.dictionary")
  For Each c In a: d(c) = "": Next c
  choix = d.keys
  Me.ComboBox1.List = choix
End Sub
 
Private Sub ComboBox1_Change()
   [G2] = Me.ComboBox1
   If [G2] = "" Then [G2] = " "
   Set d = CreateObject("Scripting.Dictionary")
   tmp = Me.ComboBox1 & "*"
   For Each c In choix
      If c Like tmp Then d(c) = ""
   Next c
   Me.ComboBox1.List = d.keys
   Me.ComboBox1.DropDown
   Sheets("BD").Range("A1:J10000").AdvancedFilter Action:= _
        xlFilterCopy, CriteriaRange:=[G1:G2], CopyToRange:=[A5:J5]
End Sub

Pièce jointe 497654

Boisgontier