Re-saisir dans un userform

bonjour,

bon je suis arrivé à créer un maque de saisi et il place sur ma feuille excel ce que je saisis dans les textbox.

que faut-il faire, si je souhaite reprendre une saisi et qu'ils prennent en compte ce qui est déjà saisi dans les textbox.

Sinon j'ai une autre question, c'est pour la saisi des date dans DTPicker1 j'aurais voulu qu'il ne mette pas de date par défaut et je n'y arrive pas ou alors à défaut la date du jour

merci d'avance

Francky

j'ai essayé ça mais ça ne marche pas :

Private Sub UserForm_Click()

If ("D14") <> "" Then TextBox1.Value = ("D14")

End Sub

Bonsoir Francky69100

Private Sub UserForm_Initialize()
     If Range("D14") <> "" Then TextBox1.Value = Range("D14")
     If Range("J16") <> "" Then TextBox2.Value = Range("J16")
     If Range("J18") <> "" Then TextBox3.Value = Range("J18")
     If Range("J19") <> "" Then TextBox4.Value = Range("J19")
     If Range("J21") <> "" Then TextBox5.Value = Range("J21")
     If Range("DJ23") <> "" Then TextBox6.Value = Range("J23")
     If IsDate(Range("D16")) Then DTPicker1.Value = Range("D16")
     If IsDate(Range("D18")) Then DTPicker2.Value = Range("D18")
     If IsDate(Range("D20")) Then DTPicker3.Value = Range("D20")
     If IsDate(Range("D22")) Then DTPicker4.Value = Range("D22")
End Sub

Merci Bob,

ça marche, bon comme tu vois, je n'ai pas laché les Userform... mais je me lance un peu...

Faudra que je te contact pour ton super boulot, un petit souci sur l'RTT mais on le savait avec des formule et du VBA qui écrase. Mais dans l'ensemble c'est plutôt satisfaisant.

Bon pour ma tram je vais continuer mes codes...

Sinon, t'as une solution pour la date et le DTPicker pour ne pas qu'il y ait une date par défaut ?

cdt Francky

Bonsoir,

Fichier protégé

Cdlt

qu'est-ce qui est protégé ! pas mon fichier en tout les cas, tu veux dire le DTPicker ? si c'est le cas, je l'ai récupéré sur le forum...

à te relire

Francky

qu'est-ce qui est protégé ! pas mon fichier en tout les cas, tu veux dire le DTPicker ? si c'est le cas, je l'ai récupéré sur le forum...

à te relire

Francky

Re,

Oups, excuse-moi. Mais je ne comprends pas ce qui s'est passé. C'est Okay.

Cdlt

Re,

A l'ouverture du fichier, j'ai le message suivant:

"Impossible de charger les objets car ils ne sont pas disponibles sur cette machine".

Il s'agit des contrôles calendriers DTPicker.

Je suis sous 2010 et ce contrôle n’existe plus apparemment.

Désolé.

Cdlt

Je suis aussi sous 2010, bon ben tampis s'il n'y a pas de solution.

y'aurait pas l'équivalant sur 2010 ?

Francky

Bonsoir

Francky69100 a écrit :

une solution pour la date et le DTPicker pour ne pas qu'il y ait une date par défaut ?

Il y aura toujours une date

Dans le code de BOB71AU rajoutes ces 4 lignes (on pourrait passer par une boucle) : Cela inscrira la date du jour

Private Sub UserForm_Initialize()
  Me.DTPicker1 = Date
  Me.DTPicker2 = Date
  Me.DTPicker3 = Date
  Me.DTPicker4 = Date
  If Range("D14") <> "" Then TextBox1.Value = Range("D14")
.
.
.

cool ça fonctionne,

merci à vous

Francky