Pourquoi ceci ne fonctionne pas ?

[casper]

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

 

[Robert]

Bonjour Casper, bonjour le forum,

Essaie comme ça :

Private Sub CommandButton1_Click()
ActiveCell.Offset(0, 1).Value = UserForm1.TextBox1
Unload UserForm1
End Sub

 

[casper]

super ça marche MERCI