Discussion :

[fafa44]

Bonjour à tous !

je galère un peu... beaucoup sur un problème de combobox.
Voilà ce que j'ai : une feuille avec dans une colonne des noms, une autre colonne des prénoms, une autre avec l'adresse, etc...

Voilà ce que je veux faire :
Dans un combo, lors de la saisie d'une lettre, afficher automatiquement la liste déroulante avec UNIQUEMENT les noms qui correspondent à la première lettre tapée. (saisie semi-automatique quoi !)
Je suis peut-être maso, mais j'ai réussi à le faire avec un peu de code.
Si ça se trouve c'est possible de faire ça juste avec les propriétés existantes du combo mais je ne sais pas comment.
Là où je bloque, c'est au moment de la sélection de l'item dans la liste. Vu le code utilisé, l'événement Change est appelé avant le click et le ListIndex est toujours égal à 0.

Si quelqu'un pouvait m'aider, ce serait génial !!!!
SVP.

[casefayere]

Bonjour,
ces codes correspondent'ils à ta demande ?

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
Option Explicit
'à ne pas oublier, ci-dessous
Option Compare Text 'mettre en haut du module, après "option explicit"
Private Sub UserForm_Initialize()
Dim i As Integer
With ComboBox1
   For i = 1 To 6
      .AddItem Range("B" & i)
      .List(.ListCount - 1, 1) = Range("C" & i)
      .List(.ListCount - 1, 2) = Range("D" & i)
   Next i
   .SetFocus
End With
End Sub
'_____________________________________________________________
Private Sub ComboBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Dim trouve As String, i As Integer
trouve = ComboBox1
With ComboBox1
   .Clear
   For i = 1 To 6
      If Range("b" & i) Like trouve & "*" Then
         .AddItem Range("B" & i)
         .List(.ListCount - 1, 1) = Range("C" & i)
         .List(.ListCount - 1, 2) = Range("D" & i)
      End If
   Next i
   .listindex = 0
End With
 
End Sub

[Didier Gonard]

Si ça se trouve c'est possible de faire ça juste avec les propriétés existantes du combo mais je ne sais pas comment.

SVP.

Exact , vois du côté de la propriété MatchEntry (et de l'exemple de l'aide VBA) et aussi ICI.

cordialement,

Didier

[casefayere]

Bonsoir,
j'avais mis un message pour MatchEntry à mettre sur 1 mais l'ai supprimé afin d'éviter un bug avec le code que je propose, comme je ne connais pas le but exact de la question. Ayant regardé le fichier de fafa44, beaucoup d'erreurs étaient présentes, j'espère donc que mon code servira au moins à fafa44 pour mieux gérer le VBA.

Bonne soirée