Code pour bouton UserForm

[lynyrd]

Bonsoir le forum
Quel code faudrait t'il affecter au bouton "nouvelle saisie" de l'UserForm1,afin que une fois la saisie validée,celle-ci s'efface de façon à pouvoir en saisir une suivante?
Merci.

 

[skoobi]

Re : Code pour bouton UserForm

Bonsoir,

en bleu l'ajout:

Private Sub Validation_Click()
[A65000].End(xlUp).Offset(1, 0).Select
ActiveCell.Value = Application.Proper(Me!Nom)
ActiveCell.Offset(0, 1).Value = Me.Adresse
ActiveCell.Offset(0, 2).Value = Me.Gare
ActiveCell.Offset(0, 3).Value = Me.CP
[COLOR=Blue][B]Adresse.Value = ""
Gare.Value = ""
CP.Value = ""
Nom.Value = ""[/B][/COLOR]
End Sub

 

[lynyrd]

Re : Code pour bouton UserForm

Merci Skoobi
C'est parfait je peut même enlever le bouton supplémentaire.
Merci bonne soirée.

 

[BERRACHED said]

Re : Code pour bouton UserForm

SALUT
éssayé ca