Saisie impossible si le texte ne correspond pas à la combobox.list

**Mr l'Ashanti** · 11/09/2018, 12h34

bjr forum. je souhaiterais empecher toute saisie si le texte entrant dans la combobox ne correspond pas à la liste initiale du controle.
j'ai essayé d'écrire ce code mais "erreur d'incompatibilité"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Set lieu = T_lieu.List
 T_lieu.List = Range("ListeChoix_ville").value
 If lieu <> T_lieu.Text Then
 
T_lieu = ""
T_lieu.SetFocus
Else
Exit Sub
End If

merci pour votre soutien

**pijaku** · 12/09/2018, 11h46

Bonjour,

Voir la propriété Style des ComboBox.

Exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub UserForm_Activate()
   Me.ComboBox1.Style = fmStyleDropDownCombo '==> permet la saisie, et donc le remplissage de la Combo
   'remplir la combobox
   Me.ComboBox1.List = Array("pomme", "poire", "banane", "ananas", "raisin")
   Me.ComboBox1.Style = fmStyleDropDownList '==> empêche toute saisie non contenue dans la List
End Sub

**patricktoulon** · 13/09/2018, 00h56

re
le probleme avec cette methode pijaku c'est que le combobox selectionne quand meme l'item 0
en l'occurence ici "pomme" meme si aucun mot commence par la 1 ere lettre tapée

je fait comme ca

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub ComboBox1_Change()
With ComboBox1
If Not .List(0) Like .Value & "*" And .ListIndex <= 0 Then .Value = Left(.Value, Len(.Value) - 1)
End With
End Sub

autrement dit ca annule le caractere tapé et ca deselectionne meme l'item 0 si il ne correspond pas bien sur
et pour observer le phenomene on dropdown tu vois la selection changer ou la deselection se faire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub ComboBox1_Change()
    With ComboBox1
        If Not .List(0) Like .Value & "*" And .ListIndex <= 0 Then
            .Value = Left(.Value, Len(.Value) - 1)
        Else
            .DropDown
        End If
    End With
End Sub

**Mr l'Ashanti** · 13/09/2018, 01h11

Merci à vous pour la réponse.

**Mr l'Ashanti** · 13/09/2018, 01h27

dis ou je peux mettre le code car j'ai 4 pages qui contiennent toutes des combobox. donc pour ne pas à le repeter dans chaque combobox je voudrais faire une boucle

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
dim c as control
for each c as controls
select case typename(c)
case "combobox"
 With c
        If Not .List(0) Like .Value & "*" And .ListIndex <= 0 Then
            .Value = Left(.Value, Len(.Value) - 1)
        Else
            .DropDown
        End If
    End With

end select
next

**patricktoulon** · 13/09/2018, 10h45

ton idée de boucle est inutile et surtout compliquée
soit tu fait une toute petite classe pour gerer ce detail soit tu apelle une sub avec argument dans l'evenement de chaque combobox

exemple

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
Private Sub ComboBox1_Change()
mescombo_Change ComboBox1
End Sub
'
Private Sub ComboBox2_Change()
mescombo_Change ComboBox2
End Sub
'
Private Sub UserForm_Activate()
     Me.ComboBox1.List = Array("pomme", "poire", "banane", "ananas", "raisin")
   Me.ComboBox2.List = Array("pomme", "poire", "banane", "ananas", "raisin")
  End Sub
'
Private Sub mescombo_Change(combo As Object)
    With combo
        If Not .List(0) Like .Value & "*" And .ListIndex <= 0 Then
            .Value = Left(.Value, Len(.Value) - 1)
        Else
            .DropDown ' a enlever apres observation
        End If
    End With
End Sub

**pijaku** · 13/09/2018, 10h52

Bonjour,

Dans un module standard :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub ComboChange(C As MsForms.ComboBox)
    With C
        If Not .List(0) Like .Value & "*" And .ListIndex <= 0 Then
            .Value = Left(.Value, Len(.Value) - 1)
        Else
            .DropDown
        End If
    End With
End Sub

Et dans chaque événement change de tes ComboBox :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub ComboBox1_Change()
   ComboChange ComboBox1
End Sub

**patricktoulon** · 13/09/2018, 11h14

Bonjour pijaku
teste avec cet evenement j'ai l'impression que c'est meme mieux en ce qui concerne le left(.value.......... dans la sub generale
teste avec 4 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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
Private Sub ComboBox1_KeyUp(ByVal keycode As MSForms.ReturnInteger, ByVal Shift As Integer)
    mescombo_Change2 ComboBox1
End Sub
'
Private Sub ComboBox2_KeyUp(ByVal keycode As MSForms.ReturnInteger, ByVal Shift As Integer)
    mescombo_Change2 ComboBox2
End Sub
'
'
Private Sub mescombo_Change2(combo As Object)
    With combo
        If Not .List(0) Like .Value & "*" And .ListIndex <= 0 Then
            .Value = Left(.Value, Len(.Value) - 1)
        Else
            .DropDown    ' a enlever apres observation
        End If
    End With
End Sub
'
Private Sub UserForm_Activate()
    Me.ComboBox1.List = Array("pomme", "poire", "banane", "ananas", "raisin")
    Me.ComboBox2.List = Array("pomme", "poire", "banane", "ananas", "raisin")
    Me.ComboBox3.List = Array("pomme", "poire", "banane", "ananas", "raisin")
    Me.ComboBox3.List = Array("pomme", "poire", "banane", "ananas", "raisin")
End Sub
'--------------------------------------------------------------------------------------------
' comparer les effet sur le texte avec l'utilisation de l'evenement change
'--------------------------------------------------------------------------------------------
Private Sub ComboBox3_Change()
    mescombo_Change ComboBox3
End Sub
'
Private Sub ComboBox4_Change()
    mescombo_Change ComboBox4
End Sub
Private Sub mescombo_Change(combo As Object)
    With combo
        If Not .List(0) Like .Value & "*" And .ListIndex <= 0 Then
            .Value = Left(.Value, Len(.Value) - 1)
        Else
            .DropDown    ' a enlever apres observation
        End If
    End With
End Sub

il semblerait que le keyUp fonctionne pieux en ce qui concerne le left(.value......) dans la sub generale

**pijaku** · 13/09/2018, 11h19

Patrick,

A titre personnel, je préfères utiliser la propriété Style.

**patricktoulon** · 13/09/2018, 11h23

re
et donc avoir l'item 0 selectionné d'office si non occurence

**Pierre Fauconnier** · 13/09/2018, 12h12

Salut.

Une solution pour empêcher la saisie hors liste et éviter de garder un item sélectionné, ajouter une ligne vide en début de liste. A l'utilisation, on teste que l'item sélectionné n'est pas d'index 0 (il faut mettre le style du combo à 2)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub UserForm_Initialize()
  ComboBox1.List = Range("a1:a3").Value
  ComboBox1.AddItem , 0
End Sub

**Mr l'Ashanti** · 13/09/2018, 12h20

Merci à vous pour vos réponses. Mais la méthode de Patrick est très rentable étant donné que je n'utilise pas d'array mais plutôt un list.

**Mr l'Ashanti** · 13/09/2018, 12h25

Une question élémentaire :
Pourquoi pour un appel de procédure vous n'utilisez pas de call? Car c'est ce que moi j'ai fait

**Pierre Fauconnier** · 13/09/2018, 12h28

Envoyé par patricktoulon

re
et donc avoir l'item 0 selectionné d'office si non occurence

Je préfère cela (Il suffit d'ajouter une ligne vide en première ligne et de tester le listindex) à du bricolage en vba

@Niamke: je serais curieux de savoir pourquoi tu as tant de combobox identiques. Ça sent le défaut de conception...

**Mr l'Ashanti** · 13/09/2018, 12h38

Envoyé par Pierre Fauconnier

Je préfère cela (Il suffit d'ajouter une ligne vide en première ligne et de tester le listindex) à du bricolage en vba

@Niamke: je serais curieux de savoir pourquoi tu as tant de combobox identiques. Ça sent le défaut de conception...

Mes combobox ne sont pas identiques. Pour plus de clarté je vais devoir me permettre de vous envoyer mon fichier.
Sinon j'adhère à votre méthode d'appel de procédure comme je l'avais fait dans mon fichier.

**patricktoulon** · 13/09/2018, 12h46

re
@pierre
pour que ta solution fasse ce que le demandeur veut ,il faut parametrer le matchentry a complete(1) sinon tu peux rien taper
et si tu commence par une letre qui existe ok ca selectionne et si la 2d lettre tapée n'est pas bonne on revient pas a index zero

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub ComboBox1_Change()
    ComboBox1.DropDown 'juste pour le visuel
End Sub
'
Private Sub UserForm_Initialize()
    With Me.ComboBox1
        .List = Array("pomme", "poire", "banane", "ananas", "ananos", "raisin")
        .AddItem , 0
        .Style = 2
        .MatchEntry = 1
    End With
End Sub

**Mr l'Ashanti** · 13/09/2018, 12h51

Bjr Patrick.
Ta première solution est la meilleure. Je l'ai adapté et c'est nickel

**patricktoulon** · 13/09/2018, 13h05

re
c'est pas la meilleure elle fait exactement ce que tu a demandé
a savoir garder ce qui est bon et empecher ce qui ne l'ai pas d'etre taper et retour a index -1 quand c'est pas bon donc .value vide
mais l'idée de pierre sur le point d'ajouter un item vide en position zero n'est pas mauvaise mais le rete ne fonctionne pas comme tu le souhaiterais d'apres ce que j'ai compris

**Mr l'Ashanti** · 13/09/2018, 13h14

Patrick
Je voudrais savoir si c'était possible de vider mes textbox et combobox après validation par une boucle? Car j ai deux pages sur lesquelles je voudrais l'utiliser . Le formulaire ( userform_enreg).J'en ai tellement que je serai obligé de procéder par textbox=""
Tu pourrais ouvrir mon fichier posté pour voir. Merci.