Bouton Annuler USERFORM avec DTPicker

[Saumon80]

Bonjour à tout le monde

Je souhaite dans un USERFORM ajouter un bouton annuler
J'ai donc utilise le code Unload ME pour effacer le formulaire
Le probléme c'est que j'ai mis un DTPicker et que quand j'appuie sur annuler cela efface tout sauf le DTPicker qui est pris en charge malgré tou,la date s'inscrit dans ma feuille

Comment pourrai-je pallier à ceci?

Merci d'avance

 

[Papou-net]

Re : Bouton Annuler USERFORM avec DTPicker

Bonsoir Saumon80,

Sans code à déchiffrer ni formulaire se mettre sous les yeux, une réponse basée sur l'hypothèse qu'un clic sur ton DTPicker renseigne une cellule de ta feuille. Pour éviter ceci, deux solutions:

-Ou tu récupères la valeur du calendrier dans une variable et tu ne la transfères sur ta feuille que si tu valides ton formulaire,

_ Ou tu effaces la cellule incriminée avant de décharger ton USF.

Espérant t'avoir répondu.

Cordialement.

 

[Saumon80]

Re : Bouton Annuler USERFORM avec DTPicker

Merci Papou-Net

Je te remercie pour ta réponse mais c'est encore flou pour la mettre en oeuvre pourrait tu m'infiquer la marche à suivre sur mon fichier?

Merci encore

 

[Papou-net]

Re : Bouton Annuler USERFORM avec DTPicker

RE:

Désolé,

Je suis sous Windows 7-64 bits, et le contrôle DTPicker ne fonctionne pas (je n'ai toujours trouvé la solution à ce problème alors je me contente du contrôle Calendar).

Je ne peux donc t'aider davantage, sauf peut-être à te proposer ceci:

Private Sub btn_annule_Click()
DTPicker = ""
'bouton annuler et vider la mémoire
Unload Me
End Sub

Cordialement.

 

[Roland_M]

Re : Bouton Annuler USERFORM avec DTPicker

bonsoir

c'est normal puisque tu sors et que ce soit ok ou pas à la fermeture de l'userf le code continue !
voir ceci (sans trop rentrer dans le détail à affiner...):
ici ceci doit se trouver dans le code l'userf au bouton ok !
tout d'abord simplement User.Show
et ensuite dans l'initialize de l'userf !
User.champ_nom = ""
User.champ_poste = ""
User.champ_nom2 = ""

User.TextBox1 = ""
User.TextBox2 = ""
User.TextBox3 = ""

'<<<<<<<<<<<<< ceci au bouton ok ! >>>>>>>>>>>>>>>>>>>>>>>>

'feuillehoussage
Sheets("donnees").Select
'sélection ligne 2
Rows("2:2").Select
'insertion d'une ligne
Selection.Insert Shift:=xlUp
'venir sur la cellule A3
Range("a3").Select
ActiveCell.Formula = User.champ_nom
'venir sur la cellule D3
Range("D3").Select
ActiveCell.Formula = CDate(User.DTPicker1)
'venir sur cellule B3
Range("B3").Select
ActiveCell.Formula = User.champ_nom2
'venir sur cellule C3
Range("C3").Select
ActiveCell.Formula = User.champ_poste
'venir sur cellule E3
Range("E3").Select
ActiveCell.Formula = (User.TextBox1)
'venir sur cellule F3
Range("F3").Select
ActiveCell.Formula = (User.TextBox2)
'venir sur cellule G3
Range("G3").Select
ActiveCell.Formula = (User.TextBox3)

EDIT:

une fois dans l'userf tu peux remplacer User. par Me.
exemple > Me.champ_poste