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

 

[Bernard_XLD]

Mais faut pas remettre à True après fermeture de Combo1 ?

c'est ce que fait le Application.Interactive = True dans Combo1_Change dès que tu valides une ligne re

 

[Usine à gaz]

Ha ok, je ne l'avais pas vu ... c'est super !!
Merci Bernard

 

[Usine à gaz]

Re @Dudu2, bonjour @Softmama, le Forum

la solution de Bernard_XLD est géniale et très simple (juste une ligne de code) lol.
Mais vos solutions m'intéressent pour d'autres utilisations.
Je verrai dès que j'aurai un moment. Merci à vous deux,
lionel

 

[Dudu2]

Bonjour @Usine à gaz, @Dranreb, @Softmama,

Y a pas de souci. L'excellente solution de Bernard je l'apprends avec toi.
La solution que je t'ai envoyée, à mon avis, fait ce que tu veux (reprendre peut-être le dernier fichier), mais c'est sûr que c'est bien moins simple que l'Application.Interactive = False.
Bonne journée à tous

 

[job75]

Bonjour à tous,

Je ne connaissais pas non plus Application.Interactive.

J'aurais mis bêtement dans le code de la feuille :

Private Sub ComboBox1_LostFocus()
ComboBox1.Activate
End Sub

ou :

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

A+

 

[Usine à gaz]

Re-Gérard
OUI, on en apprend tous les jours ... surtout moi lol
Merci pour tes codes, je teste dès que j'ai un moment,
lionel,

 

[Bernard_XLD]

Bonjour Job75

Bonjour à tous,

Je ne connaissais pas non plus Application.Interactive.

J'aurais mis bêtement dans le code de la feuille :
VB:

Private Sub ComboBox1_LostFocus()
ComboBox1.Activate
End Sub

ou :
Code:

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

marchera pas sans référencer la cellule active à l'activation de la combobox pour appliquer les changements sur la bonne cellule car sinon la combobox reste affichée mais la cellule active a changé.

Bonne journée
Bien cordialement, @+

 

[job75]

marchera pas sans référencer la cellule active à l'activation de la combobox pour appliquer les changements sur la bonne cellule car sinon la combobox reste affichée mais la cellule active a changé.

On utilisera plutôt la propriété LinkedCell.

Mais surtout les macros du post #20 bouclent sans fin quand on essaie de fermer le fichier.

Il faut quitter Excel par le Gestionnaire des tâches...

 

[Usine à gaz]

On utilisera plutôt la propriété LinkedCell.

Mais surtout les macros du post #20 bouclent sans fin quand on essaie de fermer le fichier.

Il faut quitter Excel par le Gestionnaire des tâches...

OUI, j'ai ce souci

 

[job75]

@Lionel je ne pense pas que ce soit une bonne idée de bloquer la ComboBox.

Il faut que l'utilisateur puisse la quitter s'il en a envie, par exemple avec une LostFocus :

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

Le focus est donné à la ComboBox lors du double-clic, vois le fichier joint.

 

[Usine à gaz]

Merci Gérard
Effectivement, le code "Application.Interactive" bloque trop souvent le fichier et Il me faut quitter Excel par le Gestionnaire des tâches...
Je vais voire ton fichier.
Merci encore

 

[Dudu2]

 

[Bernard_XLD]

re,

le code "Application.Interactive" bloque trop souvent le fichier

ça bloque le fichier si tu bascules sur visual basic ouvert alors que la liste est affichée, car la liste se ferme alors sans déclencher le combo1_change et le application.interactive = true, pas vraiment ce que pourra faire un simple utilisateur du fichier.
et tu peux inclure une macro à lancer depuis VBE pour le rétablir quand cela t'arrive ce qui t'évitera de passer par le gestionnaire des taches

Sub app_inter_true()
Application.Interactive = True
End Sub

 

[Usine à gaz]

Re-bonjour Bernard_XLD
Merci pour tes explications.
Que veut dire (en langage profane lol) : si tu bascules sur visual basic ouvert alors que la liste est affichée.
Merci à toi,
lionel

 

[Usine à gaz]

@Lionel je ne pense pas que ce soit une bonne idée de bloquer la ComboBox.

Il faut que l'utilisateur puisse la quitter s'il en a envie, par exemple avec une LostFocus :

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

Le focus est donné à la ComboBox lors du double-clic, vois le fichier joint.

Re-Gérard : j'aime bien cette solution ... je vais voir,
Et encore MERCI