Discussion :

[guy59960]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[mercatog]

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

[jojo86]

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

[guy59960]

Bonjour JOJO86,

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

Cordialement

Guy

[mercatog]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub UserForm_Initialize()
Calendar1.Value = Now
Fokus = 0
End Sub

3. dans Click de ton calendar

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

4. enfin

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[guy59960]

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....