Bloquer Date sur formulaire de Saisie

^_^ moi c'est du vba qu'il me faut SVP

voila j'ai un formulaire de saisie fait avec USERForm et je souhaiterai qu'une fois que je clique sur mon bouton de validation la date s'inscrive dans une cellule et que la même chose se produise avec l'heure seulement et que tout cela ne change plus a chaque nouvelle saisie sans verrouiller la feuille ? ou dois-je verrouiller ?

Merci de votre lecture et de votre aide !!!

ci-joint le code VBA de mon BTN de validation

Private Sub BtnValider_Click()

Sheets("liste Sortie").Activate
Range("A6").Select
Rows("6:6").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A6") = TxbChb.Value
ActiveCell.Offset(0, 1).Value = TxbIni
ActiveCell.Offset(0, 3).Value = CmbBoiss
ActiveCell.Offset(0, 2).Value = ("Payer")
ActiveCell.Offset(0, 4).Value = CmbBienvenue
ActiveCell.Offset(0, 5).Value = CmbP1
ActiveCell.Offset(0, 6).Value = CmbP2
ActiveCell.Offset(0, 7).Value = CmbP3
ActiveCell.Offset(0, 8).Value = CmbP4
Sheets("Contrôle Chambres").Activate '*****feuille de crontrole de chambre'*****
Range("A6").Select
Rows("6:6").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A6") = TxbChb.Value
ActiveCell.Offset(0, 1).Value = ("Payer")
ActiveCell.Offset(0, 2).Value = ("=NOW()")
ActiveCell.Offset(0, 3).Value = ("=now()")
ActiveCell.Offset(0, 4).Value = TxbIni
ActiveCell.Offset(0, 5).Value = CmbBoiss
ActiveCell.Offset(0, 6).Value = CmbP1
ActiveCell.Offset(0, 7).Value = CmbP2
ActiveCell.Offset(0, 8).Value = CmbP3
ActiveCell.Offset(0, 9).Value = CmbP4

MsgBox "VOTRE COMMANDE EST VALIDER", vbOKOnly + vbInformation, "CONFIRMATION"

Unload Me

End Sub

Bonjour,

Modifier :

ActiveCell.Offset(0, 2) = date
ActiveCell.Offset(0, 3) = time

A+

yes MERCI !!! c'est ca !!!!

je trouve pas la cloture du sujet ? dsl les admins merci !!!!!