Combobox grisée

[Lex O'Mil]

Bonjour à tous,

Petit souci technique, j'ai une liste déroulante qui tire sa source du nom de mes onglets.
Le souci est que lorsque cette liste est sélectionnée elle apparaît en grisée.

Je suis obligé d'aller dans les propriétes et ShowDropDownWhen et mettre à Whenfocus.
Le problème est que l'utilisateur ne comprend pas forcément qu'il faut d'abord cliquer dans la combo, pour la voir apparaître.

Quelqu'un aurait il une explication

Merci d'avance
Lex

 

[mutzik]

Re : Combobox grisée

Bonjour à toutes et tous,

on peut voir ton code (fichier joint stp)

 

[Lex O'Mil]

Re : Combobox grisée

Merci dèjà pour ta réponse ci joint les codes liées à la combo

Private Sub ComboBox1_Click()
Dim OngletBassin As String
Dim NomduBassin As String
Dim PlageSource As Range
OngletBassin = ComboBox1.Value
With Sheets(OngletBassin)
    Set PlageSource = .Range(.Range("A5"), .Range("A1000").End(xlUp))
End With
        ComboBox2.ListFillRange = OngletBassin & "!" & PlageSource.Address(0, 0)
TextBox1.Value = ComboBox1.Value


End Sub

Private Sub ComboBox1_GotFocus()
Sheets(" ").ComboBox1.Clear
ComboBox2.Value = ""
ComboBox3.Value = ""
ComboBox4.Value = ""

Dim vFEuille As Worksheet

   For Each vFEuille In ActiveWorkbook.Sheets
    If Not vFEuille.Name = ActiveSheet.Name And Not vFEuille.Name = "Guide" And Not vFEuille.Name = "CarteBassinA" And Not vFEuille.Name = "CarteBassinB" And Not vFEuille.Name = "SaintongeCognacBDPAE" And Not vFEuille.Name = "SaintongeCognacBDPAEE" _
    And Not vFEuille.Name = "AngoulemeDPAE" And Not vFEuille.Name = "AngoulemeDPAEE" And Not vFEuille.Name = "ConfolensDPAE" And Not vFEuille.Name = "ConfolensDPAEE" And Not vFEuille.Name = "SaintongeCognacADPAE" And Not vFEuille.Name = "SaintongeCognacADPAEE" _
    And Not vFEuille.Name = "SaintongeMaritimeDPAE" _
    And Not vFEuille.Name = "SaintongeMaritimeDPAEE" _
    And Not vFEuille.Name = "LaRochelleDPAE" _
    And Not vFEuille.Name = "LaRochelleDPAEE" _
    And Not vFEuille.Name = "MontmorillonDPAE" _
    And Not vFEuille.Name = "MontmorillonDPAEE" _
    And Not vFEuille.Name = "PoitiersDPAE" _
    And Not vFEuille.Name = "PoitiersDPAEE" _
    And Not vFEuille.Name = "ChatelleraultDPAE" _
    And Not vFEuille.Name = "ChatelleraultDPAEE" _
    And Not vFEuille.Name = "BressuireDPAE" _
    And Not vFEuille.Name = "BressuireDPAEE" _
    And Not vFEuille.Name = "NiortDPAE" _
    And Not vFEuille.Name = "NiortDPAEE" _
    And Not vFEuille.Name = "ParthenayDPAE" _
    And Not vFEuille.Name = "ParthenayDPAEE" _
    And Not vFEuille.Name = "ThouarsDPAE" _
    And Not vFEuille.Name = "ThouarsDPAEE" _
    And Not vFEuille.Name = "ROMEMobilite" _
    And Not vFEuille.Name = "PagedeGarde" Then
            ComboBox1.AddItem vFEuille.Name
    End If

Next
End Sub

a ton écoute .....🙂