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]

Bonsoir @Usine à gaz,

Quand il est ouvert, est-il possible de bloquer la feuille comme pour "Mon_UserForm.Show" = modal ?

Ça me parait impossible.
Mais que veux-tu bloquer au juste ?
Quand on clique dans la ComboBox, que ce soit dans la zone de valeur ou le bouton de DropDown tu veux qu'on ne puisse en sortir que quand une valeur a été choisie ?

 

[Usine à gaz]

Bonsoir Dudu2
Je voudrais bloquer tout clic dans la feuille tant que la ComboBox est affichée

 

[Softmama]

Bonsoir,

Un essai en PJ.

dans le module de la feuille concernée :

Private Sub CheckBox1_Change()
  ComboBox1.Visible = CheckBox1.Value
  If ComboBox1.Visible Then ComboBox1.Activate
End Sub


Private Sub ComboBox1_LostFocus()
  If ComboBox1.Visible Then ComboBox1.Activate
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If ComboBox1.Visible Then Exit Sub
 
  'mettre ici l'event lié à la sélection d'une cellule
  MsgBox "feuille sélectionnée"
End Sub

La première macro affiche ou pas la liste déroulante selon case à cocher.
La deuxième redonne le focus à la liste déroulante tant qu'elle est visible.
La troisième interrompt le déclenchement d'un event SelectionChange tant que la liste déroulante est affichée.

 

[Usine à gaz]

Bonsoir Softmama

Merci pour ton code.
Un peu tard pour moi maintenant de tester pour bien comprendre.
Mon lit m'appelle.
Bonne nuit,
lionel

 

[Dudu2]

Bonjour,

Je voudrais bloquer tout clic dans la feuille tant que la ComboBox est affichée

La ComboBox, c'est un contrôle de formulaire ou un contrôle Active X ?
C'est quoi une ComboBox affichée ? Visible ou pas (comme dans le code de @Softmama) ou Liste (dropdown list) affichée ou pas ?

 

[Dudu2]

Si c'est sur la dropdown liste affichée, c'est difficile car si l'évènement ComboBox1_DropButtonClick() permet à coup sûr de gérer le status affiché ou non de la liste, cet évènement est généré avant toute autre action sur la ComboBox, la feuille ou le classeur.

Donc sur un évènement ComboBox1_LostFocus() ou Worksheet_SelectionChange() on ne peut pas savoir si la liste était affichée ou non car elle aura été systématiquement préalablement rétractée.

Par contre avec une bidouille qui consiste à placer le ComboBox1.ListIndex à -1 lorsque la liste est affichée pour forcer un choix, on peut, si ce choix n'a pas été fait, sur un ComboBox1_LostFocus() ou un Workbook_BeforeClose() imposer le retour sur la ComboBox en générant un clic souris sur le dropdown bouton dont la position a été mémorisé à l'affichage de la dropdown liste.

Cela impose d'inclure dans le projet VBA un petit module que j'ai fait (Module_PositionCurseur) qui gère curseur et clic souris.

Edit: C'est vraiment une (petite) usine à gaz !

 

[Usine à gaz]

Bonjour @Dudu2, bonjour Softmama, le Foerum

Voici le fichier test :
Au double clic de F6 à F15 Combo1 s'ouvre ou s'affiche

Je voudrais que tant que Combo1 est affiché, qu'il ne soit pas possible de travailler sur la feuille (comme un l'UserForm modal).
lionel

 

[Bernard_XLD]

Bonjour Lionel, softmama, dudu2, le forum

un simple Application.Interactive devrait faire le boulot
https://docs.microsoft.com/fr-fr/office/vba/api/excel.application.interactive

"Si vous définissez cette propriété sur False, Excel bloque toutes les entrées du clavier et de la souris (à l’exception des entrées dans les boîtes de dialogue affichées par votre code). Boolean (en lecture/écriture)."

Cordialement, @+

 

[Usine à gaz]

Bonjour @Dudu2
Merci pour le fichier qui fonctionne bien mais ce n'est pas ce que je souhaite.
Je Voudrais tout simplement ne pas pouvoir cliquer dans la feuille dans que la sélection dans Combo1 n'est pas faites ... mais peut-être qu'il me faudra passer par un UserForm ?
lionel

 

[Bernard_XLD]

Re, Lionel

Testes le fichier du post 9, peut être à adapter selon comment tu veux l'utiliser.

Cordialement, @+

 

[Usine à gaz]

Bonjour Lionel, softmama, dudu2, le forum

un simple application.interactive devrait faire le boulot
https://docs.microsoft.com/fr-fr/office/vba/api/excel.application.interactive

"Si vous définissez cette propriété sur False, Excel bloque toutes les entrées du clavier et de la souris (à l’exception des entrées dans les boîtes de dialogue affichées par votre code). Boolean (en lecture/écriture)."

Cordialement, @+

Bonjour Bernard
ça a l'air génial ton code et ton fichier ..... je continue à tester

 

[Usine à gaz]

Re @Bernard
Mais il est où le code ? lol

 

[Bernard_XLD]

re,

dans le code de ta feuille
j'ai juste ajouté des Application.Interactive, rien modifié d'autre.

Cordialement, @+

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   If Not Application.Intersect(Target, Range("F6:F15")) Is Nothing Then
      Cancel = True
      Application.Interactive = False
      With Me.Combo1
         .List = Array("Metropole 33", "988 Nouvelle-Calédonie  687", "987 Polynésie française 689", _
            "974 La Réunion  262", "973 Guyane 594", "972 Martinique 596", "971 Guadeloupe 590")
         .Left = Target.Offset(, 1).Left   '<-- position horizontale
         .Top = Target.Top '<-- position verticale
         .Width = 202 '<-- largeur
         .Height = 1 '<-- hauteur '= Target.Height
         .Visible = True
         .DropDown
         End With
      End If
   End Sub
Private Sub Combo1_Change()
   Application.Interactive = True
   If Combo1.MatchFound Then
      Combo1.Visible = False
      ActiveCell.Value = Right$(Combo1.Text, 3) & Right$(ActiveCell.Value, 9)
      Combo1.Text = ""
      [a1].Select
      End If
   End Sub

 

[Usine à gaz]

OK, je vois lol
Mais faut pas remettre à True après fermeture de Combo1 ?