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
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 ?