Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Spinbutton (bouton toupie) - Quel code

0 views
Skip to first unread message

André Ducrot

unread,
Mar 9, 2001, 2:45:27 PM3/9/01
to
Salut à toutes et à tous

Après maints essais, je n'arrive pas à trouver le code qu'il faut écrire
pour déterminer une date
du genre dd mm yyyy dans un textbox (zone de texte)

Je n'arrive qu'à obtenir des dates allant de novembre 1899 à janvier 1900
sauf erreur.

Windows 98 et Excel 2000 (9.0.4402 SR-1)

D'avance un tout gros merci au(x) bon(ne)s samaritain(e)s en VBA

André


Laurent Longre

unread,
Mar 9, 2001, 4:45:00 PM3/9/01
to

Quel code utilises-tu ?

(et au fait, quel rapport avec les SpinButtons ?)

Laurent

"André Ducrot" a écrit :

Eric RENAUD

unread,
Mar 10, 2001, 1:18:57 AM3/10/01
to
Tu peux utiliser le contrôle Calendar
Voir exemple à l'adrese http://ericrenaud.free.fr

André Ducrot <andre....@bluewin.ch> a écrit dans le message :
98bbtr$h59$1...@bw107zhb.bluewin.ch...

André Ducrot

unread,
Mar 10, 2001, 9:28:12 AM3/10/01
to
Bonjour à tous

Pourquoi utiliser un spinbutton pour déterminer une date au lieu d'un
Calendar ? Tout simplement pour une raison de place dans un userform.

Voici le code que j'ai copié dans un bouquin en allemand et écrit pour Excel
97. L'aide en ligne est très bref en ce qui concerne les dates

Merci d'avance et bon dimanche

Private Sub SpinButton1_Change()
TextBox1 = Format(SpinButton1, "dd.mm.yyyy")
End Sub

Private Sub TextBox1_Change()
Dim LaDate As Date
LaDate = CDate(TextBox1)
End Sub

"André Ducrot" <andre....@bluewin.ch> a écrit dans le message news:
98bbtr$h59$1...@bw107zhb.bluewin.ch...

Clément Marcotte

unread,
Mar 10, 2001, 12:46:47 PM3/10/01
to
Ou encore là:

http://www.microsoft.com/ExcelDev/Articles/CalExcel.htm

--
Clément Marcotte
"Être vraiment patient, c'est être patient quand vous ne pensiez plus qu'il
était possiblement concevable de l'être."
- Léonard de Vinci


"Eric RENAUD" <ere...@normandnet.fr> a écrit dans le message news:
uzoRvoSqAHA.320@tkmsftngp05...

André Ducrot

unread,
Mar 10, 2001, 4:05:35 PM3/10/01
to


> Bonjour à tous
>
> Pourquoi utiliser un spinbutton pour déterminer une date au lieu d'un
> Calendar ? Tout simplement pour une raison de place dans un userform.
>

> Merci d'avance et bon dimanche

Bonsoir,

En premier lieu je tiens à remercier vivement ceux qui m'ont apporté de
l'aide.

Finalement j'ai découvert que la solution se trouvait dans les
propriétés d'un spinbutton à savoir Min et Max dont les valeurs peuvent
évidemment être paramétrées par VBA

Voici un code simplifié qui donne satisfaction. Pour obtenir la date 12
mars 2001 il faudrait indiquer un min (ou un max) de 36960.

Private Sub SpinButton1_Change()
Dim LaDate As Date

'initialisation des divers champs, éventuellement des paramètres Min et
Max

'...

'code simpflié

TextBox1 = Format(SpinButton1, "dd.mm.yyyy")

LaDate = TextBox1
Label1.Caption = Format(Weekday(LaDate), "dddd")
Label2.Caption = Format(LaDate, "d")
Label3.Caption = Format(LaDate, "mmmm")
Label4.Caption = Format(LaDate, "yyyy")

End Sub


Bon dimanche

André

0 new messages