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