Liste déroulante pour combobox-activex

Bonjour à tous

Je cherche à créer 3 contrôles activex ( 2 boutons et 1 combobox) sur une feuille pour remplir des cellules de cette même feuille

La liste déroulante est alimentée par les données de la colonne L de la feuille1 (feuille différente de celle où sont placé les contrôles)

je n' arrive pas à voir ce qu il manque à ce bout de code, la liste déroulante reste vide:

Private Sub boxfiche_Click()

      Dim j As Long
      Dim Ws As Worksheet

      Set Ws = Worksheets(1)

       ThisWorkbook.ActiveSheet.boxfiche.Clear  'Vide la liste

       With ThisWorkbook.ActiveSheet.boxfiche
          For j = 2 To Ws.Range("L" & Rows.Count).End(xlUp).Row
             If Range("L" & j).Value <> "" Then                        'recupére les données de la colonne L de la feuille 1
             .boxfiche.AddItem Ws.Range("L" & j)

            End If
           Next j
     End With

End Sub

Merci par avance à ceux qui se pencheront sur cette "énigme" pour moi tout est relatif

alyx

bonjour,

remplace ta procédure boxfiche.click par ceci, J'ai jeté un rapide coup d'oeil aux autres procédures? je vois qu'il y a encore des corrections à faire. je te les laisse.

Private Sub boxfiche_gotfocus()

      Dim j As Long

      Set Ws = Worksheets(1)

       ThisWorkbook.ActiveSheet.boxfiche.Clear  'Vide la liste

       With ThisWorkbook.ActiveSheet.boxfiche
          For j = 2 To Ws.Range("L" & Rows.Count).End(xlUp).Row
             If Ws.Range("L" & j).Value <> "" Then                        'recupére les données de la colonne L de la feuille 1
             .AddItem Ws.Range("L" & j)

            End If
           Next j
     End With

End Sub

Merci du conseille

Rien de mieux que l’œil neuf

Effectivement les procédures ne sont pas respectée

Un grand MERCI pour ce coup de main

Bon dimanche