remplissage textbox

[amazi]

bonjour à tous j'ai besoin de votre aide SVP

je n'arrive pas a remplir mes textbox de puis une listbox multicolonne
quand je sélectionne une ligne il me revois l'erreur suivante "objet spécifié introuvable"
Private Sub ListBox1_Click()

Ligne = ListBox1.ListIndex
For Each i In Array(1, 2, 3, 4, 5, 7, 8, 9, 10, 11)
Me("textbox" & i + 11) = ListBox1.List(Ligne, i - 1)
Next i
Me.ComboBox2 = ListBox1.List(Ligne, 5)

End Sub
je vous joins mon fichier et merci d'avance
excellente journée

 

[pilou76]

Re : remplissage textbox

Bonjour

J'ai enlevé le +11 et renomméet positionné tes texbox (selon le cas i prenait la valeur 14 et textbox14 n'existait pas)
Private Sub ListBox1_Click()
Ligne = ListBox1.ListIndex
For Each i In Array(1, 2, 3, 4, 5, 7, 8, 9, 10, 11)
Me("textbox" & i + 11) = ListBox1.List(Ligne, i - 1)
Next i
Me.ComboBox2 = ListBox1.List(Ligne, 5)
End Sub
A tester

 

[M12]

Re : remplissage textbox

Bonjour,


Ma contribution

 

[amazi]

Re : remplissage textbox

bonjour pilou76 merci beaucoup ça fonction et merci pour la précision sur l'erreur.
et merci pour toi M12 bonne journée a vous tous.