liste en cascade vba

[mmcg]

bonjour, je construis un programme et j'ai besoin d'un petit coup de main😛

dans une combobox j'aimerai avoir une liste déroulante qui s'ouvre toute seul en fonction du résultat proposé.

explication:

j'ai une liste de nom (environ 30'000) dans la colonne A de la feuill1.
avec une combobox qui se trouve dans une userform, j'aimerai que quand je rentre la première lettre d'un nom il m'affiche tout les noms correspondants et plus je rentre de lettres plus la liste des noms diminuent.

exemple:
dans ma combobox je tappe "M" et il m'affiche: Marie, Manon,Marc, Médor, etc...
Puis je continue, dans la même combo "Ma" et il m'affiche plus que: Marie, Manon, Marc
etc..

Merci de votre aide😕

 

[mth]

Re : liste en cascade vba

Bonjour mmcg

Pour t'aider tu peux consulter le site de J Boisgontier ici, et plus particulièrement peut-être cette page.

Bien à toi,

mth

 

[mmcg]

Re : liste en cascade vba

Merci, mais c'est pas vraiment se que je cherche,
je cherche un exemple
mais merci quand même!
d'autre propositions sont les bienvenues ;-)

 

[mmcg]

Re : liste en cascade vba

voici le point de départ, voir fichier joint

 

[Compte Supprimé 979]

Re : liste en cascade vba

Salut mmcg,

Pour ce que tu souhaites avoir, il faut remplir ta combobox

Option Explicit
Private Sub ComboBox1_Change()
  Dim DLig As Long, Lig As Long, MemVal As String
  Dim MaCol As New Collection ' Pour éviter les doublons
  ' Mémoriser la valeur du Cb
  MemVal = Me.ComboBox1
  ' Effacer la liste du combobox
  Me.ComboBox1.Clear
  ' Récupérer la dernière ligne du tableau
  DLig = Range("A" & Rows.Count).End(xlUp).Row
  ' Pour chaque ligne
  For Lig = 4 To DLig
    ' En cas d'erreur on continue
    On Error Resume Next
    ' Si le nom commence pas la/les première(s) lettre(s)
    If Range("A" & Lig) Like MemVal & "*" Then
      ' Ajouter le nom de la ligne à la collection
      MaCol.Add Range("A" & Lig), Range("A" & Lig)
      ' Si aucune erreur, ce n'est pas un doublon, on ajoute le nom dans la liste
      If Err.Number = 0 Then
        Me.ComboBox1.AddItem Range("A" & Lig)
      End If
    End If
    On Error GoTo 0
  Next Lig
End Sub

Ne pas oublier de mettre la propriété "MatchEntry" de ta ComboBox
sur : 2 - fmMatchEntryNone

A+

 

[mmcg]

Re : liste en cascade vba

Merci pour le programme c'est cool sa fonctionne.😉

il reste un petit détail, chez moi l'ouverture automatique de la liste de choix ne souvre pas, c'est normal?

merci pour ce dernier petit détail.

 

[Compte Supprimé 979]

Re : liste en cascade vba

Salut mmcg,

Je pense que c'est normal, je n'ai rien changé, à part le code à ton exemple de départ !

A+