help

[petchy]

bonsoir à tous et toutes
petit bleme,cette formule ne fonctionne pas,une âme charitable serais me dire pourquoi ?
merci
petchy


Private Sub CommandButton1_Click()
L = Sheets(1).Range("A1:A" & DerLigne)
.Range("B3") = ListBox1
.Range("d3") = TextBox1
.Range("f3") = TextBox2
.Range("G6") = TextBox3
.Range("a3") = TextBox4
.Range("B13") = TextBox5
.Range("B16") = TextBox6
End With
Unload UserForm1
End Sub

 

[Jacques]

bonsoir,

où est le début du with?
où est défini "derligne"?

c'est déjà une piste

bonne nuit

 

[@+Thierry]

Bonsoir Petchy

A mon avis tu as zappé un truc...... Essaie comme ceci...

Private Sub CommandButton1_Click()
Dim L As Integer
L = Sheets(1).Range("A65536").end(xlup).row + 1

With Sheets(1)
.Range("B" & L) = Listbox1
.Range("C" & L) = TextBox1

..blah blah blah...

End With
Unload UserForm1
End Sub

Bonne Soirée
@+Thierry

PS "Help " en sujet Grrr ! => "Retour des valeurs des controls d'un UserForm"

 

[@+Thierry]

Tiens Bonsoir Jacques,

On est Synchro !!

As-tu vu la fin de ce fil => Encore une sur les userforms car je n'ai pas trouvé moyen d'appliquer ta soluce.

Bonne Soirée
@+Thierry