Discussion :

[Theboobasparks]

Bonjour,

J'ai une Combobox qui me liste les choix sur deux colonnes.

Lorsque j'active la fonction MatchEntry sur 1- fmMatchEntryComplete, la recherche intuitive ne fonctionne pas alors que sur mes autres Combobox mais, avec une colonne, cela fonctionne.

Y-a-t-il une particularité à faire?

D'avance merci et excellente journée.

Michael.

[Franc]

Bonjour, c'est parce que si votre combobox a deux colonnes, le comportement par défaut de la combobox est de faire correspondre l'entrée de l'utilisateur avec la première colonne de la liste déroulante. Si vous voulez que la fonctionnalité de recherche intuitive fonctionne sur la deuxième colonne, vous pouvez utiliser une astuce consistant à concaténer les deux colonnes dans une seule chaîne de caractères. Par exemple, si votre liste déroulante a deux colonnes "Nom" et "Prénom", vous pouvez définir la propriété RowSource de la combobox pour qu'elle concatène les deux colonnes en une seule chaîne de caractères, séparée par un espace ou un autre caractère de votre choix.

[Theboobasparks]

Bonjour Franc,

Merci pour ta réponse.

Je souhaite que la recherche se fasse sur la première colonne uniquement.

J'essaie de mettre en place ton idée en passant par la propriété RowSource et en concatenant mais je n'y arrive pas.

Si je créer un nouveau tableau qui concatène mais deux autres tableaux et que je l'utilise comme source ca fonctionne.

Comment est-ce que je fais pour ne pas passer par un autre tableau?

Excellente journée.

Michael.

[Theboobasparks]

Re-bonjour,

Je me suis également basé sur une autre ComboBox (à une colonne) dont la saisie intuitive fonctionne mais pas sur celle à deux colonnes.

Voici mon code :

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
25
26
27
Private Sub ComboBox_aeroportdepart_Change()
If Me.EnableEvents = False Then
            Exit Sub
        End If
         If Me.ComboBox_aeroportdepart <> "" Then
   Set d1 = CreateObject("Scripting.Dictionary")
   tmp = UCase(Me.ComboBox_aeroportdepart) & "*"
   For Each c In Sheets("DATAS").Range("AG6:AH956").Value
     If UCase(c) Like tmp Then d1(c) = ""
   Next c
   Me.ComboBox_aeroportdepart.List = d1.Keys
   Me.ComboBox_aeroportdepart.DropDown
   Else
   ComboBox_aeroportdepart.Value = ""
   Me.ComboBox_aeroportdepart.List = Sheets("DATAS").Range("AG6:AH956").Value
   End If
End Sub

	

	
Code  :
	
Sélectionner tout -
	Visualiser dans une fenêtre à part
	
 
Private Sub ComboBox_aeroportdepart_Click()
Me.ComboBox_aeroportdepart.List = Sheets("DATAS").Range("AG6:AH956").Value
End Sub

D'avance merci pour votre précieuse aide.

Michael.

[Philippe Tulliez]

Bonjour Franc,

Si vous voulez que la fonctionnalité de recherche intuitive fonctionne sur la deuxième colonne, vous pouvez utiliser une astuce consistant à concaténer les deux colonnes dans une seule chaîne de caractères.

Pour effectuer une recherche sur une autre colonne, il y a lieu de donner comme valeur à la propriété TextColumn, le numéro de la colonne.

Illustration

[Theboobasparks]

Bonjour,

Merci pour la réponse.

Personnellement, je ne souhaite pas rechercher sur la deuxième colonne mais uniquement la première colonne.

Illustré sur l'image ci-dessous, je souhaite pouvoir faire la recherche sur le nom de la ville qui correspond à ma première colonne.



Malheureusement, plusieurs solutions proposées ne fonctionnent pas.

Quelqu'un aurait une idée?

Excellente journée.

Michael.