VBA Excel - Recherche intuitive Combobox 2 colonnes

Version imprimable

15/05/2023, 13h42
Theboobasparks

VBA Excel - Recherche intuitive Combobox 2 colonnes

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.
15/05/2023, 13h50
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.
16/05/2023, 08h08
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.

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:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
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
<div class="bbcode_container">
	<div class="bbcode_description">Code:</div>
	<hr /><code class="bbcode_code"> </code><hr />
</div>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.

16/05/2023, 09h34
Philippe Tulliez

1 pièce(s) jointe(s)

Bonjour Franc,

Citation:

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

Pièce jointe 638745
16/05/2023, 10h13
Theboobasparks

1 pièce(s) jointe(s)

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.

Pièce jointe 638747

Malheureusement, plusieurs solutions proposées ne fonctionnent pas.

Quelqu'un aurait une idée?

Excellente journée.

Michael.

Exemple de code à adapter en fonction des besoins:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 ' Remplir la liste déroulante avec les données Dim donnees(1 To 3, 1 To 2) As String donnees(1, 1) = "John" donnees(1, 2) = "Doe" donnees(2, 1) = "Jane" donnees(2, 2) = "Smith" donnees(3, 1) = "Bob" donnees(3, 2) = "Johnson" ' Concaténer les deux colonnes en une seule chaîne de caractères Dim i As Long Dim liste As String For i = 1 To UBound(donnees, 1) liste = liste & donnees(i, 1) & " " & donnees(i, 2) & ";" Next i ' Définir la liste comme source de la combobox ComboBox1.RowSource = liste
Ensuite, vous pouvez utiliser la propriété MatchEntry avec la valeur fmMatchEntryComplete pour que la combobox fasse correspondre l'entrée de l'utilisateur avec la liste complète des noms et prénoms concaténés:

Code:

ComboBox1.MatchEntry = fmMatchEntryComplete

16/05/2023, 12h48
Theboobasparks

2 pièce(s) jointe(s)

Bonjour Franc,

Merci pour ta réponse.

Je vais voir pour adapter ta proposition.

Par contre, contrairement à ce que je disais et à titre informatif, aurais-tu une idée de pourquoi cela ne fonctionne pas si je passe par la concaténation via un tableau dans une de mes feuilles.

Sur ma Combobox 1 colonne cela fonctionne :

Pièce jointe 638761

Par contre, sur la Combobox avec les données concaténées, cela ne fonctionne pas :

Pièce jointe 638762

Il faut savoir que ma liste sur cette seconde Combobox propose 900 choix de villes différentes. Cela peut-il provenir de la?

D'avance merci pour le retour.

Michael.
16/05/2023, 21h00
Theboobasparks

Bonsoir,

Je ne comprends pas ce qui se passe avec cette Combobox.

J’ai essayé de copier-coller une autre Combobox (en changeant la liste source bien sur), d’en créer une nouvelle et d’indiquer les meme paramètre.

Je ne comprends pas pour quelle(s) raison(s) cette Combobox avec un certain nombre de choix important (environ 900) ne fonctionne pas.

Quelqu’un aurait-il une idée?

D’avance merci.

Michael.
16/05/2023, 21h47
Franc

Salut, pour tester j'ai créé un userform avec un combobox dont la source provient de 2 colonnes concaténées avec 1200 noms, et tout se passe bien.
Donc sans ton fichier pour tester, moi je ne peux pas faire beaucoup plus.
19/05/2023, 07h39
Theboobasparks

Bonjour Franc,

Merci pour ton retour.

Je te joins mon fichier, aurais-tu m'amabilité d'y jeter un coup d'oeil car je suis vraiment perdu là.

D'avance merci beaucoup.

Michael

Salut, j'ai un peu galéré mais j'ai fini par comprendre d'où vient le problème. Les noms dans ta ListeVille contiennent un espace et un caractère de contrôle 160, invisibles bien entendu.
Et donc quand tu les concatènes ils sont toujours là, d'où la différence de comportement avec ta première Combobox qui n'a pas ce problème.
Insère la macro ci-dessous dans le code de ta feuille DATAS et exécute-là, tu verras qu'ensuite ta combobox fonctionnera normalement.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub RemoveSpacesAndNonBreakingSpaces()
    Dim lastRow As Long
    Dim i As Long
    Dim cellValue As String
 
    lastRow = Cells(Rows.Count, "AG").End(xlUp).Row ' Trouver la dernière ligne de la colonne AG
 
    For i = 5 To lastRow ' Parcourir toutes les lignes de la colonne AG à partir de la ligne 5
        If Cells(i, "AG").Value <> "" Then ' Vérifier que la cellule de la colonne AG n'est pas vide
            cellValue = Cells(i, "AG").Value
            cellValue = Replace(cellValue, Chr(160), " ") ' Remplacer les caractères "espace insécable" par des espaces réguliers dans la cellule de la colonne AG
            cellValue = LTrim(cellValue) ' Supprimer tous les espaces à gauche pour la valeur de la cellule de la colonne AG
            Cells(i, "AG").Value = cellValue ' Assigner la valeur modifiée à la cellule de la colonne AG
        End If
    Next i
    MsgBox "Terminé!"
 
End Sub

19/05/2023, 15h23
Theboobasparks

Franc,

Je m'incline et je ne peux que te remercier de tout mon coeur !

Cela fonctionne parfaitement.

Des heures que j'essayais de comprendre ce qui se passe en changeant tout le code et en faisant de multiples recherche sur internet.

Merci infiniment encore une fois et excellent weekend.

Michael.