Microsoft 365 ComboBox ne pas sortir si clic hors sélection dans la list

[Usine à gaz]

Bonsoir à toutes et à tous

Quand on "lance " un UserForm" le choix modal ou non modal est possible :
Mon_UserForm.Show
modal :
Par défaut, un UserForm est "modal" ce qui implique que vous ne pouvez pas travailler sur une feuille tant que l'UserForm est ouvert.
Mon_UserForm.Show 0
non modal :
En mode "non modal", vous pouvez travailler sur une feuille tout en ayant un UserForm ouvert. Pour cela, ajoutez un "0" à l'ouverture.

Voici ma question
Dans mon fichier, j'ai un ComboBox mais sans UserForm :
Quand il est ouvert, est-il possible de bloquer la feuille comme pour "Mon_UserForm.Show" = modal ?

Jusqu'à maintenant, je n'ai pas trouvé.
Auriez-vous une solution ?
Merci à tous,
lionel

 

[Dudu2]

C'est vrai que Application.Interactive simplifie drastiquement le code...

Private ComboBox1_DropDown As Boolean

Private Sub ComboBox1_DropButtonClick()
    If Not ComboBox1_DropDown Then
        Application.Interactive = False
    Else
        If Me.ComboBox1.ListIndex <> -1 Then Application.Interactive = True
    End If
 
    ComboBox1_DropDown = Not ComboBox1_DropDown
End Sub

Edit: Cet évènement est très pratique. Contrairement à son nom, il ne se limite pas au clic sur le DropDown Button.
Il est activé aussi lors de la fermeture de la liste dans TOUS les cas (choix d'un item, perte de focus de la ComboBox pour quelque raison que ce soit).
Il permet de gérer un flag d'état affiché/masqué de la liste sûr à 100%.

 

[Dudu2]

On peut même réduire le code à ça car la seule façon de fermer la liste en Application.Interactive = False c'est de choisir un Item.

Private ComboBox1_DropDown As Boolean

Private Sub ComboBox1_DropButtonClick()
    Application.Interactive = ComboBox1_DropDown
    ComboBox1_DropDown = Not ComboBox1_DropDown
End Sub

 

[Dudu2]

Par contre, rien n'empêche de rentrer dans la ComboBox, d'effacer la valeur puis de sortir de la ComboBox sans avoir affiché la liste.
Il faut donc protéger ce cas si on veut absolument une valeur dans le ComboBox.

Private ComboBox1_DropDown As Boolean

Private Sub ComboBox1_DropButtonClick()
    Application.Interactive = ComboBox1_DropDown
    ComboBox1_DropDown = Not ComboBox1_DropDown
End Sub

Private Sub ComboBox1_LostFocus()
    With Me.ComboBox1
        If .ListIndex = -1 Then .Activate
    End With
End Sub

 

[Bernard_XLD]

Re,

Que veut dire (en langage profane lol) : si tu bascules sur visual basic ouvert alors que la liste est affichée.

cela veut dire ce qu'une fois qu'application.interactive est sur false, tu ne peux plus lancer l'éditeur VB, mais s'il est déjà ouvert, tu peux l'activer par la barre des taches. Si tu fais cela alors que la liste est affichée, la liste se ferme sans exécuter change et, effectivement, si tu rebascules sur excel, l'application est bloquée. Maintenant, rien n'empêche d'avoir une macro pour le réactiver à partir de VBE, comme au post 28.
Si tu trouves un autre cas provoquant ce blocage, qui soit possible pour un utilisateur normal du fichier, je suis curieux de le connaitre.

Cordialement, @+

 

[Usine à gaz]

Re,

cela veut dire ce qu'une fois qu'application.interactive est sur false, tu ne peux plus lancer l'éditeur VB, mais s'il est déjà ouvert, tu peux l'activer par la barre des taches. Si tu fais cela alors que la liste est affichée, la liste se ferme sans exécuter change et, effectivement, si tu rebascules sur excel, l'application est bloquée. Maintenant, rien n'empêche d'avoir une macro pour le réactiver à partir de VBE, comme au post 28.
Si tu trouves un autre cas provoquant ce blocage, qui soit possible pour un utilisateur normal du fichier, je suis curieux de le connaitre.

Cordialement, @+

Merci à toi : je testerai "dans tous les sens" dès je j'aurai du temps

 

[Usine à gaz]

Re à tous,

Je mets le fichier test avec toutes les solutions proposées en espérant ne pas en oublier lol
lionel,

 

[Usine à gaz]

Re-Bonjour à tous,

J'aime beaucoup la solution de Gérard
Elle ne présente aucun inconvénient et permet de sortir de la ComBo1 soit au clic :

Ou au clic ailleurs dans la feuille, laissant "plus clairement" le choix à l'utilisateur d'affecter ou non.
J'aurais bien aimé mettre une couleur à : "Fermer = clic ICI ou ailleurs"
Mais je ne sais pas le faire lol,
Un p'tit coup de "main" ?
Je joins le fichier.
Merci par avance,
lionel

 

[job75]

J'aurais bien aimé mettre une couleur à : "Fermer = clic ICI ou ailleurs"

Tu as tord d'alourdir avec des trucs sans intérêt.

Et de prendre les utilisateurs pour des neuneux.

 

[Usine à gaz]

Re-Gérard
C'est vrai que j'aime bien mettre les "choses" en évidences.
"Et de prendre les utilisateurs pour des neuneux"
Je ne prend pas les utilisateurs pour des neuneux ... quoique tu ne sais pas avec qui je travaille lol
lionel

 

[job75]

En plus tu as bricolé le code que j'ai donné au post #25.

Tu fais souvent ça, ne sois pas surpris ensuite que ça n'aille pas.

Tu passes ton temps à mettre des Select à tout bout de champ alors que tout le monde sait qu'en VBA il faut les éviter.

 

[Usine à gaz]

Mais je n'y ai "à peine touché", j'ai juste ajouté une condition
Et comment faire pour me passer du .Select ?

 If Combo1 = "Fermer = clic ICI ou ailleurs" Then
        Combo1.Visible = False
        [a1].Select
        Exit Sub
        End If

 

[job75]

Private Sub Combo1_Change()
    If Combo1.MatchFound Then
        If Combo1.ListIndex Then ActiveCell.Value = Right$(Combo1.Text, 3) & Right$(ActiveCell.Value, 9)
        Combo1.Text = ""
        ActiveCell.Select
    End If
End Sub

Private Sub Combo1_LostFocus()
Combo1.Visible = False
End Sub

 

[Usine à gaz]

Merci Gérard

 

[job75]

Pour que le 1er élément de la liste soit en surbrillance utilise le fichier joint.

 

[Usine à gaz]

Merci Gérard,
C'est plus sympa comme ça.
Merci aussi pour ta patience,
lionel