Liste intuitive 2 colonnes avec combobox

Bonjour

J'ai créé un agenda journalier pour les salariés. je note leurs horaires mais aussi le nom et la ville du client lorsqu'ils vont en déplacement.

Dans mon exemple :

dans l'onglet S1, lorsque je clic par exemple dans la cellule F7, j'ai la liste des clients qui s'ouvrent avec le nom et la ville mais comme la liste est longue, je voudrais pouvoir taper les 1ères lettres en haut pour que la sélection se fasse sur le nom uniquement.

par exemple si je saisis lac, tous les noms commençant par lac devraient s'afficher avec la ville correspondante car pour un même nom de client, je peux avoir plusieurs sites donc plusieurs villes différentes.

enfin, lorsque j'ai sélectionné le client, le nom doit s'inscrire dans la cellule F7 et la ville dans la cellule F8.

j'ai fait beaucoup de recherche sur internet, j'ai trouvé plusieurs exemples qui m'ont bien aidés jusque là mais à ce stade, je bloque complètement et comme je ne connais pas du tout VBA, j'ai besoin d'un coup de main svp . merci

ci-joint un extrait

Bonjour,

tu n'as pas eu de réponse sur d'autres forums ? (cross posting)

Bonjour

Non hélas pas eu de réponse pour l'instant.

A bientôt

Bonsoir,

Voir PJ

On peut frapper les lettres dans le menu.

Les noms apparaissent au fur et à mesure de la frappe.

Dim a()
Private Sub UserForm_Initialize()
  a = [CLIENTS].Value
  Me.ComboBox1.List = a
  SendKeys "{F4}"
End Sub
Private Sub ComboBox1_Change()
  If Me.ComboBox1.ListIndex = -1 Then
   Dim b()
   tmp = UCase(Me.ComboBox1) & "*"
   j = 0
   For i = LBound(a) To UBound(a)
    If UCase(a(i, 1)) Like tmp Then
      j = j + 1: ReDim Preserve b(1 To 2, 1 To j)
      b(1, j) = a(i, 1): b(2, j) = a(i, 2)
    End If
   Next i
   If j > 0 Then
      Me.ComboBox1.List = Application.Transpose(b)
      Me.ComboBox1.DropDown
   End If
  End If
End Sub

Private Sub CommandButton1_Click()
  ActiveCell = Me.ComboBox1.Column(0)
  ActiveCell.Offset(0, 1) = Me.ComboBox1.Column(1)
  Unload Me
End Sub

Ceuzin

Bonsoir

Vraiment merci pour cette aide précieuse et surtout très rapide ; c'est exactement ce que je souhaitais.

je ne voudrais pas abuser mais J'ai tout de même encore un petit souci avec la liste.

Lorsque je saisis en haut le début d'un nom qui existe dans la liste, il n'y a aucun problème comme par exemple ALI mais si je rajoute un T, il n'y a pas de mot qui commence par ALIT, ce qui provoque une erreur ; je ne vois pas comment la rectifier.

merci

Rebonsoir,

suite de mon mail précédent :

de plus, lorsque je clic sur le nom du client choisit, il n'y a que le nom qui s'affiche en haut, sans la ville. c'est un peu embêtant car je peux avoir un même nom de client avec une 20 de villes différentes.

comme je ne connais pas VBA ou très peu, ça devient compliqué pour moi tout cela.

merci

et à bientôt en espérant que je pourrai à mon tour rendre service

Voir PJ

Ceuzin

Bonjour

là c'est parfait ; rien à dire

mille merci à Ceuzin

Bonne journée