Bonsoir le Forum,
je crois qu'il n'y à pas mieux pour planter notre Excel
à moins qu'une âme charitable ne te trouve la syntaxe idéale
le pb c'est qu'il nous ecrit la sub mais le code ne s'execute pas
(ben oui la form est déjà chargée en mémoire), il faut fermer Excel +Fin de tâche et réouvrir, et là ça passe, et en plus il faut faire attention a ne pas réécrire une sub existante..........
j'ai tester ceci:
Dim X As Integer
Dim i as Integer
For i = 1 To 10
ActiveWorkbook.VBProject.VBComponents(5).Name = "UserForm1"
With ActiveWorkbook.VBProject.VBComponents("UserForm1").CodeModule
X = .CountOfLines
.InsertLines X + 1, "End sub"
.InsertLines X + 1, "Call TextBox_Change"
.InsertLines X + 1, "Private Sub TextBox" & i & "_Change()"
Next
...perso je crois que le but n'est pas de ne pas faire de copier/coller , mais bien de se simplifier le travail, alors est-ce vraiment nécéssaire
Bonne soirée