Discussion :

[CC25]

Bonjour,

J'ai un petit souci que je me permets de soumettre au forum:
J'ai créé un formulaire avec une ListBox que je constitue à partir de la valeur de chaque cellule d'une plage ; jusque là pas de souci, là ou ça se complique c'est que je souhaite utiliser la propriété MatchEntry avec la valeur Complete, à savoir recherche des valeurs dans la liste, sur chaque caractère saisi au clavier, et que les données qui constitue la liste sont des chiffres et non pas des lettres...
en gros je commence à 1 pour aller jusqu'à 200 ; si je veux atteindre 63 par exemple, l'appui sur la touche 6 me positionne sur le 6, puis l'appui sur le 3 m'emmène sur le 3 et non pas le 63...
J'ai bien recherché dans l'aide, mais je n'ai rien trouvé sur une éventuelle restriction à des données de type string. J'ai également essayé de convertir, au moment de l'ajout des items à ma liste, mes données en string (cstr), mais rien n'y fait...

Je suis donc preneur de toute piste...

Merci,

Chris du 25

[defluc]

Bonjour,

Je ne suis pas sûr que cela convienne mais à défaut d'autre chose et pour relancer la discussion

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
Option Explicit
Dim InString As String
Private Sub ListBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Dim i As Integer
  If KeyCode < 48 Or KeyCode > 57 Then Exit Sub
  If Len(InString) < 2 Then
    InString = Chr(KeyCode)
                       Else
    InString = InString & Chr(KeyCode)
  End If
  For i = 0 To ListBox1.ListCount
    If InStr(ListBox1.List(i), "36") > 0 Then
      ListBox1.ListIndex = i
      Exit For
    End If
  Next
End Sub