renseigner différents textbox à partir de calendar

Bonjour,

Dans un formulaire, je dois renseigner différentes dates par le biais de différentes texbox et ce grâce à calendar.

Je pensais que le fait de passer par exemple à texbox2 la valeur initialement renseignée dans texbox1 par calendar serait figée, mais il n'en est rien. Comment puis-je bloquer une valeur dans un objet tout en me permettant d'y revenir ultérieurement si nécessaire.

Personnellement, j'avais écrit :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Private Sub cmdvalider_Click()   'mettre une date dans le textbox1   If Not IsDate(TextBox1) Then MsgBox ("mettre une date") Me.TextBox1.SetFocus TextBox1.Value = Calendar1.Value Exit Sub End If   'mettre une date dans le deuxième textbox2 If Not IsDate(TextBox2) Then MsgBox ("mettre une deuxième date") Me.TextBox2.SetFocus TextBox2.Value = Calendar1.Value Exit Sub End If Range("a1").Value = TextBox1 Range("a2").Value = TextBox2 End Sub

---

Vous remerciant de votre concours,

Cordialement

Guy

pourquoi mettre des textbox et les alimenter à l'aide d'un calendar?
pourquoi pas directement?
Remplacer tes textbox avec des datepicker

J'ai fais un p'tit truque, mais je ne sais pas si c'est ce que tu veux...

Bonjour JOJO86,

Merci de l'information, j'ai rajouté mon fichier.

Cordialement

Guy

Ci après une proposition
1. Déclarer une variable global Fokus dans un module public

Code:

---

Public Fokus As Byte

---

2. Dans initalize (ou activate) de ton userform (ça dépend, si tu utilise hide/show->dans activate ou unload/load->dans Initialize)

Code:

---

1 2 3 4

Private Sub UserForm_Initialize() Calendar1.Value = Now Fokus = 0 End Sub

---

3. dans Click de ton calendar

Code:

---

1 2 3

Private Sub Calendar1_Click() If Fokus > 0 Then Me.Controls("TextBox" & Fokus).Value = Calendar1.Value End Sub

---

4. enfin

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Private Sub TextBox1_Enter() Fokus = 1 End Sub Private Sub TextBox2_Enter() Fokus = 2 End Sub Private Sub TextBox3_Enter() Fokus = 3 End Sub Private Sub TextBox4_Enter() Fokus = 4 End Sub

---

Edit: si tu n'as pas d'autres controles sur ton userform, le textbox1 est d'entrée selectionné, d'où tu peux t'en passer du Fokus=0 dans Initalize et du If Fokus>0

Si tu as d'autres controles, il est nécessaire de réinitailiser à 0 la variable Fokus, par exemple

Code:

---

1 2 3

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) Fokus = 0 End Sub

---

Je préfère mettre 4 datePicker au lieu des 4 textbox + le Calendar
et les lignes de code

Bonjour à tous,

Merci à Mercatog et Jojo86 de leur patience et du résultat obtenu. Je veux bien remplacer les textbox par des datepicker mais je ne sais pas encore comment faire et le tutoriel sur ce sujet me laisse sur ma faim. En regardant très souvent les conversations par le biais de ce site, au demeurant très bien fait, je finirai bien par progresser.

Cordialement

Guy


PS : la cerise sur le gâteau serait peut-être que quelqu'un me montre par le biais d'un petit formulaire excel....