Discussion :

[lafafmentvotre]

Bonjour

Je suis sous excel 2003.
Je souhaiterais lorsque je clique dans une textbox dans ma feuille excel, qu'un userform soit lancé avec le contrôle calendrier 11, sur la date du jour et que lorsque je clique sur une date du calendrier, cette dernière soit insérée dans mon textbox.

Voici le code qui appelle le userform :

Code :

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

1
2
3
4
 
Private Sub TextBox13_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
UserForm1.Show
End Sub

et celui qui "devrait" remplir mon textbox (car je vais avoir plusieurs textbox qui feront appel à mon userform) :

Code :

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

1
2
3
4
5
6
7
 
Private Sub Calendar1_Click()
ActiveControl.Value = Calendar1.Value
End Sub
Private Sub UserForm_Initialize()
Calendar1.Value = Now
End Sub

Je ne suis pas un pro, pourriez-vous m'aider svp ?

Merci beaucoup

[ucfoutu]

Bonsoir,

Code :

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

1
2
Private Sub Calendar1_Click()
ActiveControl.Value = Calendar1.Value

Et quel est, selon toi, le contrôle actif, lorsque tu cliques sur Calendar1 ?
Car il est certain que si j'ouvre le tiroir N° 1 pour en regarder le contenu, son contenu est égal à celui du tiroir que j'ai ouvert ...

[lafafmentvotre]

Le but de demander est que je suis une grosse quiche en VBA Excel mais que j'aime apprendre..............

Help please

[ucfoutu]

Tu peux mettre dans une variable globale le contrôle actif (au moment de ton click sur ta textbox) et.... au moment du click sur ton calendar, mettre à jour cette variable...(et ce sera ta textbox).

[lafafmentvotre]

Je comprends pas tout et surtout ne sait comment faire.

[JackOuYA]

Bonsoir,

As tu essayé le contrôle Microsoft Date Picker...?

[ucfoutu]

Bon...
Je ne vais surtout pas t'écrire ton code, mais t'apprendre à pêcher...

Un petit projet avec 2 boutons de commande :

Code :

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

1
2
3
4
5
6
7
8
Private toto As Object
Private Sub Command1_Click()
  Set toto = ActiveControl
End Sub
 
Private Sub Command2_Click()
  toto.Caption = "tu comprends, maintenant ?"
End Sub

Lance, click sur Command1 puis sur command2
Observe, analyse, comprends et sers-t-en ...
C'est facile à comprendre.