Discussion :

[Crack1986]

Petite aide svp :

Code :

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

1
2
3
4
Private Sub TextBox1_Change()
Call UserForm2.Show
TextBox1 = UserForm2.Caption
End Sub

voila ce que j'ai ecrit pour ma petite macro. Mais je n'obtient pas le résultat souhaité.

quand je fais appel a mon userform2, je fais appel a un calendrier des objet controle calendrier xx.x

Cependant quand je clique la date souhaité, je n'ai pas la date qui s'affiche sur mon textbox1. Comment faire ?

Merci

petite rectification

Code :

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

1
2
3
4
Private Sub TextBox1_Change()
Call UserForm2.Show
TextBox1 = UserForm2.Calendar1.Value
End Sub

Comme sa ça sa l'air de marché mais cependant je voudrais que le calendrier ce ferme après que la date soit choisie.

De plus, je suis pas sur que cela soit bon, vous pouvez me corriger si je me trompe ?

merci

[grisan29]

bonjour crack1986
tout d'abord la propriété du textbox doit etre modifié afin d'avoir par exemple un "calendar1" dans une frame qui s'ouvre au clic sur le textbox dont voici le code

Code :

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

1
2
3
Private Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Me.Frame1.Visible = True
End Sub

donc tu installe un calendrier dans un frame sur ton usf et tu lui donne ce code

Code :

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

1
2
3
4
Private Sub Calendar1_Click()
Me.TextBox1 = Me.Calendar1.Value
Me.Frame1.Visible = False
End Sub

oubli
a l'initialisation de l'usf il faut mettre

Code :

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

1
2
3
4
Private Sub UserForm_Initialize()
Me.Calendar1 = Date
Me.Frame1.Visible = False
end sub

le calendier aparait au clic sur textbox et disparait apres choix de la date
voila pour un début

tu doit avoir la référence Microsoft calendar control 2007 d'activer
et surtout n'oublie pas de clique sur # pour insérer du code
je te joint un fichier exemple
Pascal

[Crack1986]

J'ai une erreur je sais pas pourquoi j'ai fais le frame1 ou j'ai inserer le calendrier (celui-ci se trouve dans la usf2) mais sa beug
voici le code :

Code :

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

1
2
3
4
5
6
7
8
Private Sub Label1_Click()
 
End Sub
 
Private Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Call UserForm2.Show
Me.Frame1.Visible = True
End Sub

c'est ce que j'ai sur la userform1 concernant la textbox1

et la ce que j'ai mis sur la userform2

Code :

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

1
2
3
4
5
6
7
8
Private Sub Calendar1_Click()
Me.TextBox1 = Me.Calendar1.Value
Me.Frame1.Visible = False
End Sub
 
Private Sub Frame1_Click()
 
End Sub

Il me dit que j'ai un probleme sur me.textbox1

[grisan29]

bonjour crack1986
ci joint autre exemple si c'est cela que tu attends

au dela cela dépasse mes compétences

Pascal

[Crack1986]

Merci j'ai finalement trouvé, cétait vraiment tout con mais fallait y penser

je te colle le code pour que tu vois la solution que j'ai trouvé :

USERFORM 1 qui contient le formulaire

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
22
 
Private Sub CommandButton1_Click()
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
End Sub
 
Private Sub CommandButton3_Click()
Unload UserForm1
End Sub
 
Private Sub Label1_Click()
 
End Sub
 
Private Sub TextBox1_()
 
End Sub
 
Private Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Call UserForm2.Show
End Sub

USERFORM2 QUI CONTIENT JUSTE LE CALENDRIER

Code :

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

1
2
3
4
5
6
7
8
Option Explicit
 
Private Sub Frame1_Click()
End Sub
Private Sub Calendar1_Click()
UserForm1.TextBox1 = Me.Calendar1.Value
Unload UserForm2
End Sub

MERCI

[grisan29]

bonjour crack1986

tant mieux si je t'ai permis de trouvé c'est le but du forum mais comme tu a ouvert une autre discussion clique en bas a droite sur
pour clore le sujet

Pascal