Discussion :

[Choca]

Bonjour,

J'ai crée un combo box drop down list qui fonctionne correctement.

Cependant, le box s'affiche sur tous les fichiers/classeurs ouvert et c'est très genant.

Quelqu'un auait une idée pour fixer le box uniquement sur un classeur ? s'il y a une option je l'ai pas trouvé...

Cordialement,
choca

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Dim SheetWithComboBox As Worksheet: Set SheetWithComboBox = ThisWorkbook.Sheets(1)
 
    If ThisWorkbook.ActiveSheet.Name <> SheetWithComboBox.Name Then
        ComboBox1.Visible = False
    Else: ComboBox1.Visible = True
    End If
End Sub

[Choca]

quelqu'un a une idée pour fixer le combo box ?

[pijaku]

Bonjour,

Peut-être un code comme celui-ci placé dans le module ThisWorkbook ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Option Explicit
 
Private EvenementsActifs As Boolean
 
Private Sub Workbook_Activate()
   EvenementsActifs = True
End Sub
 
Private Sub Workbook_Deactivate()
   EvenementsActifs = False
End Sub
 
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
   If EvenementsActifs Then
      Dim SheetWithComboBox As Worksheet: Set SheetWithComboBox = ThisWorkbook.Sheets(1)
      If ThisWorkbook.ActiveSheet.Name <> SheetWithComboBox.Name Then
         ComboBox1.Visible = False
      Else: ComboBox1.Visible = True
      End If
   Else: ComboBox1.Visible = False
   End If
End Sub

[Choca]

Bonjour Pijaku,

Merci pour la réponse !

C'est mieux qu'avant mais j'ai toujours un blue box qui s'affiche quand je double click dans une cellule sur un autre sheet ou autre fichier ouvert avec la meme session excel ouverte.

[pijaku]

Tu ne nous as pas donné tout le code?

[Choca]

Le code que j'ai pour la combo box est le suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim SheetWithComboBox As Worksheet: Set SheetWithComboBox = ThisWorkbook.Sheets(1)
 
If ThisWorkbook.ActiveSheet.Name <> SheetWithComboBox.Name Then
ComboBox1.Visible = False
Else: ComboBox1.Visible = True
End If
End Sub

La recherche dans le box est faite sur des formules excel

Cordialement,

[pijaku]

Si tu n'as que ce code dans le classeur concerné, je ne peux expliquer ce comportement.

Passe nous donc le classeur...

[Choca]

Voici le fichier attaché

[pijaku]

Je ne comprends pas comment une Combobox posée sur une feuille serait visible d'une autre feuille...
C'est, pour moi, impossible.
Essaye en enlevant partout dans tes modules de feuilles les événement BeforeDoubleClick...

[Choca]

J'ai essayé beaucoup de chose mais je commence a croire que c'est un bug :/
toutes les personnes qui utilisent ce fichier ont exactement le même probleme.

le box se trouve même sur un autre fichier excel ouvert dans la meme instance excel.

[Arkham46]

Bonjour,

Comment a été créé ce ComboBox1 ?
Il est peut-être dans une feuille modèle ?
Dans le code, un clic droit => définition permet de voir où est déclaré l'objet.

[Choca]

- Il a été crée a partir de d'un tutoriel venant de trumpexcel.com
Je mets le lien mais je sais pas si peux...
https://trumpexcel.com/excel-drop-do...h-suggestions/

- il est bien déclaré dans : Sheet11 du fichier (members of 'Sheet11')
si besoin d'un printscreen, je l'attacherai.