Bonjour,

Étant sous Excel 2003, pouvez-vous me dire si ce code est correct, envoi des Textbox vers ma feuille Base

Sub Transfert()
Dim li%, i%
With Worksheets("Feuil3")
li = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
For i = 1 To 21
If Controls("Textbox " & i).Value <> "" Then .Cells(li, i) = Controls("Textbox " & i).Value
Next i
End With
End Sub

Je vous remercie

Bonjour,

Soit tu es dans le code du Userform et tu références les Controls par Me.Controls soit tu es en dehors et tu les références par <nom Userform>.Controls.

D'autre part les noms par défaut des Textbox sont Textbox1, Textbox2, etc... Donc ("Textbox " & i) n'est pas correct pour ces défauts.

Cordialement,
D.

P.S. Ah pas vu que c'était résolu avant que je réponde !

Bonjour Debrief,

Merci de me répondre,

Tu veux dire que dans cette ligne :

If Controls("Textbox " & i).Value <> "" Then .Cells(li, i) = Controls("Textbox " & i).Value

je dois écrire :

Me.Controls("Textbox " & i).Value <> "" Then .Cells(li, i) = Controls("Textbox " & i).Value

Par contre que mettre ici :

(Textbox " & i)

Étant plus que débutant je patauge

Gorfous a écrit :

Bonjour Debrief,

Merci de me répondre,

Tu veux dire que dans cette ligne :

If Controls("Textbox " & i).Value <> "" Then .Cells(li, i) = Controls("Textbox " & i).Value

je dois écrire :

Me.Controls("Textbox " & i).Value <> "" Then .Cells(li, i) = Controls("Textbox " & i).Value

Par contre que mettre ici :

(Textbox " & i)

Étant plus que débutant je patauge

Bonjour;

je t'ai fait un petit exemple pour t'aider

http://www.cjoint.com/c/GDinmPAw5eB

Bonjour Gilbert,

Je te remercie pour ton aide et le fichier que tu as joint ça m'aide énormément.

Peux-tu me dire comment faire un masque de saisie dans le textbox date lorsqu'il est sélectionné en obtenant :

_ _/_ _/_ _ _ _ et que l'on ai pas besoin de saisir les /

Je te souhaite un bon dimanche.

Gorfous a écrit :

Bonjour Gilbert,

Je te remercie pour ton aide et le fichier que tu as joint ça m'aide énormément.

Peux-tu me dire comment faire un masque de saisie dans le textbox date lorsqu'il est sélectionné en obtenant :

_ _/_ _/_ _ _ _ et que l'on ai pas besoin de saisir les /

Je te souhaite un bon dimanche.

le mieux est de mettre un dtpicker de ce style