CommandButton et date au format "mmmm"

[Dull]

Salut Le Forum,

Je me permet de vous adresser ce petit post car...Jecraque😛

J'ai un USF avec 12 CommandButtons, les 12 mois de l'année, et je voudrais rendre inaccessible les boutons supérieur au mois en cours.

Alors avec des chiffres en lieux et places des Mois (Ex; 12 pour Décembre) cela fonctionne à merveille mais avec le nom des Mois ça me met la pagaille

Voilà mon code

Private Sub UserForm_Initialize()
Dim i As Byte
For i = 1 To 12
    With Controls("Commandbutton" & i)
        .Caption = Format(i & "/" & Year(Date), "mm")
        .Enabled = IIf(.Caption > Format(Date, "mm"), False, True)
    End With
Next i
End Sub

Si vous remplacez Format(......,"mm") par Format(.......,"mmmm") c'est du n'importe quoi😕

Bizarrement avec les Signes <> et = à la place de < et > ça fonctionne et quel que soit le Format.

Des Idées, Suggestions, UnePoubelle 😀

Merci et Bonne Journée

 

[Pierrot93]

Re : CommandButton et date au format "mmmm"

Bonjour Dull🙂,

peut être comme ceci, si j'ai bien compris ton problème :

Private Sub UserForm_Initialize()
Dim i As Byte
Label1.Caption = "CONSOMMATION CITRON VERT " & Format(Date, "yyyy")
For i = 1 To 12
    With Controls("Commandbutton" & i)
        .Caption = Format(i & "/" & Year(Date), "mm")
        .Enabled = IIf(i > Month(Date), False, True)
    End With
Next i
End Sub

bon après midi
@+

 

[Efgé]

Re : CommandButton et date au format "mmmm"

Bonjour Dull 🙂 🙂,
Pour une foi que je peux te faire une proposition ....

Private Sub UserForm_Initialize()
Dim i As Byte
Dim Var As Long
Label1.Caption = "CONSOMMATION CITRON VERT " & Format(Date, "yyyy")
For i = 1 To 12
Var = Format(i & "/" & Year(Date), "mm")
    With Controls("Commandbutton" & i)
        .Caption = Format(i & "/" & Year(Date), "mmmm")
        .Enabled = Format(Year(Date), "mm") > Var
    End With
Next i
End Sub

Ca à l'air de fonctionner.
Cordialement

 

[Dull]

Re : CommandButton et date au format "mmmm"

Salut Pierrot🙂, FG🙂, le Forum

😀 Je vous déteste 😛 j'ai cherché pendant plusieurs heures, essayé plusieurs syntaxes, Tourner, virer les format, Arrêter le citron vert 😉 et plus encore.

Quant on a le nez dans le guidon on ne vois pas les choses telles qu'elles doivent être.

Je savais que je pouvais compter sur vous. Merci les amis de vous êtes penché sur ma question existentielle de ce jour. 😛

Bonne Journée à Tous