Discussion :

[Pabri]

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.


Le code du Combobox est :

Code :

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

1
2
3
4
Private Sub ComboBox1_Change()
ComboBox1.ListFillRange = "recherche"
Me.ComboBox1.DropDown
End Sub

Merci d'avance pour votre aide

[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 :

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

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?

[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

[boisgontierjacques]

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 :

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
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

Boisgontier