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

Dudu2

XLDnaute Barbatruc

• 18 Avril 2022

• #2

Bonsoir @Usine à gaz,

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

Cliquez pour agrandir...

Ç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 ?

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 18 Avril 2022

• #3

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

 

Vote positif 0 Vote négatif

S

Softmama

XLDnaute Accro

• 18 Avril 2022

• #4

Bonsoir,

Un essai en PJ.

dans le module de la feuille concernée :

VB:

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.

 

Pièces jointes

• UsineàGaz.xlsm

  22.2 KB · Affichages: 7

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 18 Avril 2022

• #5

Bonsoir Softmama

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

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 19 Avril 2022

• #6

Bonjour,

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

Cliquez pour agrandir...

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 ?

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 19 Avril 2022

• #7

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 !

 

Pièces jointes

• ComboBox Active X Modale.xlsm

  26.5 KB · Affichages: 3

Dernière édition: 19 Avril 2022

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 19 Avril 2022

• #8

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

 

Pièces jointes

• Test.xlsm

  35 KB · Affichages: 3

Vote positif 0 Vote négatif

Bernard_XLD

XLDnaute Barbatruc

Membre du Staff

• 19 Avril 2022

• #9

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, @+

 

Pièces jointes

• Test-2.xlsm

  30 KB · Affichages: 10

Vote positif 1 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 19 Avril 2022

• #10

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

 

Vote positif 0 Vote négatif

Bernard_XLD

XLDnaute Barbatruc

Membre du Staff

• 19 Avril 2022

• #11

Re, Lionel

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

Cordialement, @+

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 19 Avril 2022

• #12

Bernard_XLD à dit:

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, @+

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 19 Avril 2022

• #13

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

 

Vote positif 0 Vote négatif

Bernard_XLD

XLDnaute Barbatruc

Membre du Staff

• 19 Avril 2022

• #14

re,

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

Cordialement, @+

VB:

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

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 19 Avril 2022

• #15

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

 

Vote positif 0 Vote négatif