SpinButton et VBA

3 réponses

Jipé

15/02/2004 à 15:22

Bonjour le Forum,

Dans une UserForm, j'ai 2 TextBox et un SpinButton.

La TextBox1 (Txt_Date_Fac) reçoit la date.
La TextBox2 (Txt_Num_Fac) reçoit un numéro de facture.

Le numéro de facture a cette forme. (2654-2-2004)
2654 = N° de facture modifiable.
2 = Le mois de (Txt_Date_Fac).
2004 = L'année de (Txt_Date_Fac).

Je souhaiterai augmenter ou diminuer le numéro de facture (2654) à l'aide du
SpinButton1.

Merci pour votre aide.
Jipé

3 réponses

Denis Michon

15/02/2004 à 15:41

Bonjour Jipé,

Utilise un contrôle ScrollBar

Tu peux définir en mode création : les propriétés du contrôle ScrollBar :

Min : La valeur minimale des numéros de tes factures

Max : La valeur maximale du dernier numéro de facture possible (même si cette facture n'existe pas)

SmallChange : Lorsque tu "scroll" la vitesse d'incrémentation des valeurs affichées
LargeCharge

'---------------------
Private Sub ScrollBar1_Change()

Me.TextBox1 = ScrollBar1.Value

End Sub
'---------------------

Private Sub ScrollBar1_Scroll()

ScrollBar1_Change

End Sub
'---------------------

Salutations!

"Jipé" a écrit dans le message de news:%
Bonjour le Forum,

Dans une UserForm, j'ai 2 TextBox et un SpinButton.

La TextBox1 (Txt_Date_Fac) reçoit la date.
La TextBox2 (Txt_Num_Fac) reçoit un numéro de facture.

Le numéro de facture a cette forme. (2654-2-2004)
2654 = N° de facture modifiable.
2 = Le mois de (Txt_Date_Fac).
2004 = L'année de (Txt_Date_Fac).

Je souhaiterai augmenter ou diminuer le numéro de facture (2654) à l'aide du
SpinButton1.

Merci pour votre aide.
Jipé

Jipé

15/02/2004 à 18:10

Bonsoir Denis,

C'est OK pour tes 2 macros.
mais comment récupérer le mois et la date de la TextBox "Txt_Date_Fac" ?
Merci
Jipé

"Jipé" a écrit dans le message de
news:%

Bonjour le Forum,

Dans une UserForm, j'ai 2 TextBox et un SpinButton.

La TextBox1 (Txt_Date_Fac) reçoit la date.
La TextBox2 (Txt_Num_Fac) reçoit un numéro de facture.

Le numéro de facture a cette forme. (2654-2-2004)
2654 = N° de facture modifiable.
2 = Le mois de (Txt_Date_Fac).
2004 = L'année de (Txt_Date_Fac).

Je souhaiterai augmenter ou diminuer le numéro de facture (2654) à l'aide
du

SpinButton1.

Merci pour votre aide.
Jipé

michdenis

15/02/2004 à 18:28

Bonjour Jipé,

Si tu as une version d'excel 2000 ou plus récent :

Dim a as string
a = Me.Txt_Date_Fac.text
LaDate = CDate(Split(a, "-")(1) & "-" & Split(a, "-")(2))

Le premier jour du mois est par défaut.
Tu devrais obtenir le 1-02-04

Si tu désires obtenir seulement ceci : 2-04
Enlève la fonction Cdate( .... )

Salutations!

"Jipé" a écrit dans le message de news:%2364rta%
Bonsoir Denis,

C'est OK pour tes 2 macros.
mais comment récupérer le mois et la date de la TextBox "Txt_Date_Fac" ?
Merci
Jipé

"Jipé" a écrit dans le message de
news:%

Bonjour le Forum,

Dans une UserForm, j'ai 2 TextBox et un SpinButton.

La TextBox1 (Txt_Date_Fac) reçoit la date.
La TextBox2 (Txt_Num_Fac) reçoit un numéro de facture.

Le numéro de facture a cette forme. (2654-2-2004)
2654 = N° de facture modifiable.
2 = Le mois de (Txt_Date_Fac).
2004 = L'année de (Txt_Date_Fac).

Je souhaiterai augmenter ou diminuer le numéro de facture (2654) à l'aide
du

SpinButton1.

Merci pour votre aide.
Jipé

SpinButton et VBA

3 réponses

Veuillez sélectionner un problème