Bonjour tout le monde,
J'ai un problème sur un code VBA.
Je m'explique, j'ai créé un UserForm afin d'alimenter une base de données.
Je débute en VBA mais grâce a plusieurs tuto et forum, jusque là j'ai réussi a me "dépatouiller".
J'aimerais qu'à partir d'un choix fait dans ma liste déroulante les champs se remplissent automatiquement en fonction de ce qui a été renseigné dans la base de données.
J'ai trouvé ce code :
Private Sub ComboBox1_Click()
Dim Ws As Worksheet
Dim I As Integer
If Me.ComboBox1.ListIndex = -1 Then Exit Sub
lNumL = Me.ComboBox1.ListIndex + 2
ComboBox1 = Ws.Cells(lNumL, "ListeNMission")
For I = 1 To 39
Me.Controls("TextBox" & I) = Ws.Cells(lNumL, I + 2)
Next I
End Sub
Mais il me mets la fameuse erreur d'exécution 91, or comme je n'y connais encore pas grand chose en VBA je ne vois pas ce qui cloche... J'ai beau chercher sur les forums et tuto je ne vois pas
L'erreur est sur la ligne :
ComboBox1 = Ws.Cells(lNumL, "ListeNMission")
Puis sur la ligne :
Me.Controls("TextBox" & I) = Ws.Cells(lNumL, I + 2)
Sachant que ma "ListeNMission" est un nom pour une liste dynamique, je ne sais pas si ça change grand chose.
Et que dans le "général"/"déclaration" j'ai mis
Dim lNumL As Long
Merci d'avance pour votre attention et votre aide!