Explications

[azerty67]

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

 

[azerty67]

Re : Explications

Merci je vais cogiter à présent.

Possibilité de ne sélectionner que les cellules du tableau et non toute la feuille ?

Merci, si je veux seulement que les cellules contenant les données du tableau soient actives je modifie le code des feuilles au niveau lig = Target.Row du code ?