M
Mathieu
Guest
Bonsoir,
Je voudrais par un USF inscrire dans la feuille TOTO en K5 ce que je saisis dans la TextBox1. Tout fonctionne sauf qu' en K5, je ne vois rien. Dans le code je mets ceci:
Dim L As Integer
L = Range("K5")
If TextBox1 = " " Then
MsgBox "Vous n'avez rien saisi!"
TextBox1.SetFocus
Exit Sub
End If
Sheets("TOTO").Activate
With Sheets("TOTO")
.Range("K5" & L).Value = TextBox1.Value
End With
TextBox1.Value = " "
TextBox1.SetFocus
End Sub
Private Sub CommandButton2_Click()
Unload UserForm2
End Sub
Par quoi faut-il remplacer Dim L As Integer pour avoir le résultat en K5 ?
Merci.
Je voudrais par un USF inscrire dans la feuille TOTO en K5 ce que je saisis dans la TextBox1. Tout fonctionne sauf qu' en K5, je ne vois rien. Dans le code je mets ceci:
Dim L As Integer
L = Range("K5")
If TextBox1 = " " Then
MsgBox "Vous n'avez rien saisi!"
TextBox1.SetFocus
Exit Sub
End If
Sheets("TOTO").Activate
With Sheets("TOTO")
.Range("K5" & L).Value = TextBox1.Value
End With
TextBox1.Value = " "
TextBox1.SetFocus
End Sub
Private Sub CommandButton2_Click()
Unload UserForm2
End Sub
Par quoi faut-il remplacer Dim L As Integer pour avoir le résultat en K5 ?
Merci.