C
casper
Guest
Bonjour,
Pourquoi ceci ne fonctionne pas ?
Private Sub CommandButton1_Click()
[ActiveCell.Offset(0, 1).Select] = UserForm1.TextBox1
Unload UserForm1
End Sub
PAR CONTRE CECI FONCTIONNE
Private Sub CommandButton1_Click()
[a1] = UserForm1.TextBox1
Unload UserForm1
End Sub
Mais je voudrais coller la saisie du textbox dans la cellule située à droite de la dernière cellule sélectionnée.
MERCI POUR VOTRE AIDE
Pourquoi ceci ne fonctionne pas ?
Private Sub CommandButton1_Click()
[ActiveCell.Offset(0, 1).Select] = UserForm1.TextBox1
Unload UserForm1
End Sub
PAR CONTRE CECI FONCTIONNE
Private Sub CommandButton1_Click()
[a1] = UserForm1.TextBox1
Unload UserForm1
End Sub
Mais je voudrais coller la saisie du textbox dans la cellule située à droite de la dernière cellule sélectionnée.
MERCI POUR VOTRE AIDE