Liste déroulante dans userform

Résolu
Utilisateur anonyme -  
 Utilisateur anonyme -
Bonjour

Afin d'insérer une liste déroulante dans un UserForm j'utilise la macro suivante qui est associé au ComboBox1 :

Private Sub ComboBox1_Change()
Dim i
For i = 2 To 9
ComboBox1.AddItem Sheets(2).Cells(i, 1)
Next
End Sub

Mais ça ne marche pas. Pourriez vous me dire pourquoi.

Merci d'avance

Laure

2 réponses

  1. cousinhub
     
    Bonjour,

    Perso, j'aurai mis le code dans l'intialize de l'USF

    Private Sub UserForm_Initialize()
    Dim i
    For i = 2 To 9
        ComboBox1.AddItem Sheets(2).Cells(i, 1)
    Next
    End Sub
    


    Bonne journée
    0
  2. Utilisateur anonyme
     
    Oui ça marche !
    Merci
    0