Discussion :

[MARIENO35]

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 il y a plusieurs clients identiques avec des 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

[boisgontierjacques]

Bonjour,

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
28
29
30
31
32
33
34
35
36
37
 
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
      If UBound(b, 2) > 1 Then
        Me.ComboBox1.List = Application.Transpose(b)
      Else
        Dim c(1 To 1, 1 To 2)
        c(1, 1) = b(1, 1): c(1, 2) = b(2, 1)
        Me.ComboBox1.List = c
      End If
      Me.ComboBox1.DropDown
   End If
  Else
    Me.TextBox1 = Me.ComboBox1.Column(1)
  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

Jacques Boisgontier