bloquer la saisie dans combobox si non occurence sans effacer la partie bonne de la chaine tapée

**patricktoulon** · 19/09/2018, 14h16

bonjours a tous

je cherche le moyen de gerer (bloquer )la saisie dans le . value d'une combobox sans pour autant effacer (et/ou) revenir la partie bonne de la saisie

pour ca j'ai reussi mais j'ai un autre soucis
quand bloquage est fait ou correction avec la touche BACK pour revenir a une partie valide il n'y a pas re selection

je ne sais pas si ca sera possible

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
Private Sub ComboBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    Static mem As Long
      With ComboBox1
        If KeyCode = 8 Then mem = mem - IIf(mem > 0, 1, 0): .Value = Left(.Value, mem) Else mem = mem + 1   'gestion de la touche back
        If KeyCode <> 8 And KeyCode <> 46 And .ListIndex = -1 Then
            mem = mem - IIf(mem > 0, 1, 0)
             .Value = Left(.Value, mem) 'gestion de la validité de la chaine tapée
             End If
        If KeyCode = 46 Then mem = 0: .Value = ""
        TextBox1 = Left(.Value, mem)
         .DropDown
    End With
End Sub
'
'
Private Sub UserForm_Activate()
    Me.ComboBox1.List = Array("pomme", "banane", "ananas", "poire", "raisin", "tomate", "jambon", "cerise")
End Sub

des idées ?

**Pierre Fauconnier** · 19/09/2018, 14h30

Salut.

Pourquoi ne pas se contenter de ce que les contrôles proposent comme ergonomie? Tenter de gérer la saisie à coup d'évènement KeyUp est pour moi une ineptie technique dans la majorité des cas.

**boisgontierjacques** · 20/09/2018, 20h44

Bonsoir,

-On affiche dans le ComboBox tous les items commençant par les caractères frappés.
-Si on frappe un caractère et qu'il n'y a plus d'items associés dans le ComboBox, le caractère frappé est effacé.

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
Option Compare Text
Dim Tbl()
Private Sub UserForm_Initialize()
  Set f = Sheets("BD")
  Tbl = f.Range("A2:A" & f.[A65000].End(xlUp).Row).Value
  Me.ComboBox1.List = Tbl
End Sub
 
Private Sub ComboBox1_Change()
  Set d1 = CreateObject("Scripting.Dictionary")
  tmp = UCase(Me.ComboBox1) & "*"
  For Each c In Tbl
    If c Like tmp Then d1(c) = ""
  Next c
  If d1.Count > 0 Then
     Me.ComboBox1.List = d1.keys
     Me.ComboBox1.DropDown
  Else
     beep
     Me.ComboBox1 = Left(Me.ComboBox1, Len(Me.ComboBox1) - 1)    ' efface le caractère frappé
  End If
End Sub
 
Private Sub ComboBox1_Click()
  ActiveCell = Me.ComboBox1
  Unload Me
End Sub
 
'MatchEntry : None

Boisgontier

**patricktoulon** · 20/09/2018, 21h06

re
oui pas mal sauf que si le dernier caractere n'est pas bon on revient pas a la liste complete
j'avais deja fouiller dans tes listes intuitives et en plus il n'y a pas re selection

je tape t tu tout les t
tu ajoute otu a tout les to
avec ces 2 lettres je n'ai deja pas d'autoselection
j'ajoute u il n'y en a pas je reviens a to toujours pas d'autoselection
cela dit ca me donne une idée
merci boisgontierjacques pour le retour

**boisgontierjacques** · 20/09/2018, 21h18

-En appuyant sur flèche bas, on a le premier
-En frappant TOG, il n'en reste qu'un et on obtient TOGO (auto-sélection)

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
 
Option Compare Text
Dim Tbl()
Private Sub UserForm_Initialize()
  Set f = Sheets("BD")
  Tbl = f.Range("A2:A" & f.[A65000].End(xlUp).Row).Value
  Me.ComboBox1.List = Tbl
End Sub
 
Private Sub ComboBox1_Change()
  Set d1 = CreateObject("Scripting.Dictionary")
  tmp = UCase(Me.ComboBox1) & "*"
  For Each c In Tbl
    If c Like tmp Then d1(c) = ""
  Next c
  If d1.Count = 1 Then
      ActiveCell = d1.keys    ' AUTO-SELECTION
      Unload Me
  Else
    If d1.Count > 0 Then
       Me.ComboBox1.List = d1.keys
       Me.ComboBox1.DropDown
    Else
       beep
       Me.ComboBox1 = Left(Me.ComboBox1, Len(Me.ComboBox1) - 1)
    End If
  End If
End Sub
 
Private Sub ComboBox1_Click()
  ActiveCell = Me.ComboBox1
  Unload Me
End Sub

Boisgontier

**pijaku** · 20/09/2018, 21h22

Bonsoir,

Ce sera ma seule intervention ici.
J'ai décrit, dans une discussion récente, les moyens de parvenir à ces fins.
J'ai également dit, dans cette même discussion, qu'il convenait d'utiliser le bon contrôle selon le résultat attendu. Je n'ai pas souhaité développer cet aspect parce que ça ne répondait pas directement à la question.
Savez-vous comment forcer l'utilisateur à faire, systématiquement, sans faille, sans code, sans aucun ajout, un choix dans une liste de données?
Simplement en utilisant un contrôle ListBox.
C'est le seul choix que déciderait un développeur.
Après, pour rejoindre Jacques, il est encore plus simple de coupler cette ListBox avec un TextBox pour obtenir une saisie intuitive.
Sur ce messieurs, a++

**patricktoulon** · 20/09/2018, 21h31

re

J'ai décrit, dans une discussion récente, les moyens de parvenir à ces fins.

non pijaku tu a simplement decrit une procedure visant a bloquer la saisie tout court
avec ta version la touche esc est requise et efface donc la saisie complete ca n'est donc pas la meme chose
ca n'enleve rien a ton travail mais ca n'est pas ce que je veux si tant est que cela soit possible

**pijaku** · 20/09/2018, 21h54

Patrick,
J'avais pourtant bien dit une seule intervention, mais...

Réagit, en VBA, comme dans la vraie vie...
On te dit que, pour construire telle chose, tu peux utiliser tel outil, en le modifiant de telle façon...
Tu connais ton métier, et tu sais qu' un autre outil sera adapté parfaitement à la demande de ton client.
En tant que professionnel, quel est ton rôle?
Informer ton client qu'il dispose d'une solution simple, efficace, ou de lui dire que tu vas tout chambouler pour trouver un truc qui lui correspond mais n'est pas top...

**boisgontierjacques** · 20/09/2018, 22h07

Cf PJ

Quand il n'en reste qu'un dans la liste du ComboBox, il est automatiquement sélectionné.

-FR sélectionne FRANCE
-TOG sélectionne TOGO

Boisgontier

**patricktoulon** · 20/09/2018, 22h47

re
ca me parait bon cette fois ci ,c'est pas tout a fait ce que je voulais mais on est tres proche
je vais voir si il y a bien selection (en bleu) la je vois pas ,le userform se ferme a occurence trouvée et injecte dans cellule
ce que je voulais
je tape t j'ai le premier t SELECTIONNE
je tape to jai le premier to SELECTIONNE
si je tape tou j'en ai pas je reviens a to et le premier to SELECTIONNE
mais je pense que ce que je veux n'est pas possible
obligé de passer par un textbox de substitution qui est en dehors du combobox

merci pour le retour

**boisgontierjacques** · 21/09/2018, 03h49

Je ne vois pas la différence fonctionnelle entre les versions TextBox/ListBox et ComboBox.

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
Option Compare Text
Dim Tbl()
Private Sub UserForm_Initialize()
  Set f = Sheets("BD")
  Tbl = f.Range("A2:A" & f.[A65000].End(xlUp).Row).Value
  Me.ListBox1.List = Tbl
End Sub
 
Private Sub TextBox1_Change()
  Set d1 = CreateObject("Scripting.Dictionary")
  tmp = UCase(Me.TextBox1) & "*"
  For Each c In Tbl
    If c Like tmp Then d1(c) = ""
  Next c
  If d1.Count > 0 Then
     Me.ListBox1.List = d1.keys
   Else
     beep
     Me.TextBox1 = Left(Me.TextBox1, Len(Me.TextBox1) - 1)
   End If
End Sub
 
Private Sub ListBox1_Click()
  ActiveCell = Me.ListBox1
  Unload Me
End Sub

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
Option Compare Text
Dim Tbl()
Private Sub UserForm_Initialize()
  Set f = Sheets("BD")
  Tbl = f.Range("A2:A" & f.[A65000].End(xlUp).Row).Value
  Me.ComboBox1.List = Tbl
End Sub
 
Private Sub ComboBox1_Change()
  Set d1 = CreateObject("Scripting.Dictionary")
  tmp = UCase(Me.ComboBox1) & "*"
  For Each c In Tbl
    If c Like tmp Then d1(c) = ""
  Next c
  If d1.Count > 0 Then
     Me.ComboBox1.List = d1.keys
     Me.ComboBox1.DropDown
   Else
     beep
     Me.ComboBox1 = Left(Me.ComboBox1, Len(Me.ComboBox1) - 1)
   End If
End Sub
 
Private Sub ComboBox1_Click()
  ActiveCell = Me.ComboBox1
  Unload Me
End Sub

Boisgontier

**patricktoulon** · 21/09/2018, 09h47

Bonjour boisgontierjacques

oui j'ai essayé quelque chose de simple ce matin et je crois vraiment que c'est pas possible
meme le retour a index -1 par le textbox ne fonctionne pas correctement (testé)

**patricktoulon** · 21/09/2018, 10h05

re
pour etre precis voila le comportement ideal que je voudrais que la combobx ai

de cette maniere le textbox fait exactement ce que je souhaiterais faire avec la combobox toute seule

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
Private Sub TextBox1_Change()
    With ComboBox1
        i = -1
        If TextBox1 = "" Then
            i = -1
        Else
            i = -1
re:
            Do: i = i + 1: Loop Until .List(i) Like TextBox1.Text & "*" Or i = .ListCount - 1
            If i = .ListCount - 1 And Not .List(i) Like TextBox1 & "*" Then i = -1: TextBox1 = Left(TextBox1, Len(TextBox1) - 1): GoTo re
        End If
        .ListIndex = i
        .DropDown
    End With
End Sub
'
'
Private Sub UserForm_Activate()
    ComboBox1.List = Array("pomme", "cerise", "melon", "orange", "citrouile", "poire", "mangue", "fraise", "celleri", "citron", "bannane")
End Sub

c'est le goto re qui refait la selection apres correction pas le choix

bloquer la saisie dans combobox si non occurence sans effacer la partie bonne de la chaine tapée

Macros et VBA Excel

Discussions similaires

Partager

Partager