Code pour bouton UserForm

lynyrd · 29 Avril 2008

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 · 29 Avril 2008

Re : Code pour bouton UserForm

Bonsoir,

en bleu l'ajout:

Code:

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 · 29 Avril 2008

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 · 29 Avril 2008

Re : Code pour bouton UserForm

SALUT
éssayé ca

Code pour bouton UserForm

lynyrd

XLDnaute Impliqué

Pièces jointes

skoobi

XLDnaute Barbatruc

lynyrd

XLDnaute Impliqué

BERRACHED said

XLDnaute Accro

Pièces jointes

Discussions similaires