Bonjour

Presque tout est dans le titre.


Alors voilà, j'ai un programme qui affiche un userform. Dans ce userform je rentre des informations, ces informations doivent être copier par la suite dans un tableau excel.


Et c'est sur ce dernier point que mon programme bug.


Voilà le code que mon programme qui se trouve dans un module de mon tableau Excel, celui qui doit recevoir les informations.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub creation_code()
Dim a As Range
Set a = Workbooks("bd_code.xls").Worksheets("liste_codes").Range("a2")

While a <> ""
Set a = a.Offset(1, 0)
Wend

a.Value = textbox1.Value
a.Offset(0, 1).Value = textbox2.Value

ThisWorkbook.Save

End Sub

Je l'ai testé il marche bien, mais le debugger s'arrête sur la ligne en rouge. La seconde ligne en rouge elle aussi bug donc.

En fait j'ai besoin d'une information technique, sur comment écrire dans le tableau excel les informations des textboxs de mon userform.

Merci pour les informations et le temps prit pour me répondre.