azerty67
XLDnaute Occasionnel
🙂Bonjour à tous,
J'aimerais une explication détaillée à propos de ce code, merci.
Private Sub ComboBox1_Change()
For n = 9 To 20
Me.Controls("Textbox" & n) = Sheets("Natzwiller").Cells(ComboBox1.ListIndex + 2, n - 7).Value
Next n
End Sub
avec 12 texbox le code fonctionne mais si je retire 4 texbox j'ai une erreur
au niveau :
Me.Controls("Textbox" & n) = Sheets("Natzwiller").Cells(ComboBox1.ListIndex + 2, n - 7).Value
---> "objet spécifié introuvable"
Je ne comprend pas le code simplement🙁
J'aimerais une explication détaillée à propos de ce code, merci.
Private Sub ComboBox1_Change()
For n = 9 To 20
Me.Controls("Textbox" & n) = Sheets("Natzwiller").Cells(ComboBox1.ListIndex + 2, n - 7).Value
Next n
End Sub
avec 12 texbox le code fonctionne mais si je retire 4 texbox j'ai une erreur
au niveau :
Me.Controls("Textbox" & n) = Sheets("Natzwiller").Cells(ComboBox1.ListIndex + 2, n - 7).Value
---> "objet spécifié introuvable"
Je ne comprend pas le code simplement🙁