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

Usine à gaz · 18 Avril 2022

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

job75 · 30 Avril 2022

Bonjour Lionel, le forum,

Ton problème c'est que tu bricoles les codes qu'on te donne et après ils ne tiennent plus la route.

Ton test avec la cellule P1 est bien maladroit alors qu'il suffit de tester "MaCell".

Les macros Worksheet_Activate en Feuil1 et Feuil2 sont totalement inutiles puisque la macro "Affiche" renvoie toujours sur la feuille "Gérard".

Et la macro "désactive_alphabet' est vraiment sans intérêt puisqu'on peut entrer des chiffres ou d'autres caractères, il vaut mieux protéger la feuille, je l'ai fait avec le mot de passe toto.

Utilise donc ce fichier (6).

A+

Bernard_XLD · 19 Avril 2022

Usine à gaz à dit:
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 · 19 Avril 2022

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

Usine à gaz · 19 Avril 2022

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 · 19 Avril 2022

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 · 19 Avril 2022

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

A+

Usine à gaz · 19 Avril 2022

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 · 19 Avril 2022

Bonjour Job75

job75 à dit:
Bonjour à tous,

Je ne connaissais pas non plus Application.Interactive.

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

VB:

Private Sub ComboBox1_LostFocus() ComboBox1.Activate End Sub

ou :
Code:

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 · 19 Avril 2022

Bernard_XLD à dit:
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 · 19 Avril 2022

job75 à dit:
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 · 19 Avril 2022

@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 :

VB:

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 · 19 Avril 2022

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 · 19 Avril 2022

Bernard_XLD · 19 Avril 2022

re,

Usine à gaz à dit:
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

VB:

Sub app_inter_true()
Application.Interactive = True
End Sub

Usine à gaz · 19 Avril 2022

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 · 19 Avril 2022

job75 à dit:
@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 :

VB:

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

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

Usine à gaz

XLDnaute Barbatruc

job75

Bernard_XLD

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Dudu2

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Bernard_XLD

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Pièces jointes

Usine à gaz

XLDnaute Barbatruc

Dudu2

XLDnaute Barbatruc

Bernard_XLD

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Discussions similaires