[ RESOLU par Lone-wolf ] : CommandButton Annuel

[MADAGASCAR]

Bonsoir EXCEL DOWNLOADS
Bonsoir tout le monde
Gentelmans
SVP si vous pouvez m'aider a mettre ce CommandButton1 d'une facon que :
Nous sommes en 2017 ..alors si je clique sur ce CommandButton1 une seule fois ne sera plus enabled sauf a l'annee prochaine 2018 ..
En 2018 je clique sur ce CommandButton1 une seule fois et aussi ne sera plus enabled sauf a l'annee 2019 et ainsi de suite ..
Merci beaucoup d'avance pour l'aide
Tres cordialement
MADA

 

[Lone-wolf]

Bonsoir MADA

Je ne sais pas si j'ai bien compris. Un fois cliqué sur le bouton, on ne puisse plus cliquer ensuite jusqu'à l'année prochaine? Si c'est ça

Option Explicit
Private Sub CommandButton1_Click()
Dim dt As Date, dt2 As Date

dt = DateSerial(2017, 1, 1)
dt2 = DateSerial(Day(Now), Month(Now), Year(Now))
TextBox3.Value = (TextBox1.Value) * (TextBox2.Value)
If Year(dt) = Year(dt2) + 1 Then
CommandButton1.Enabled = True
Else
CommandButton1.Enabled = False
End If
End Sub

 

[MADAGASCAR]

Bonsoir cher Lone-wolf
Tres heureux de vous rencontrer tres tres cher ami
Merci beaucoup pour votre aide et votre serviabilite
Je ne sais pas peuy etre j'ai mal utiliser votre code
Car lorsque je clique ENREGISTRER le CommandButton1 deviendra (CommandButton1.Enabled = False)
Ici tres tres bien
Mais si je ferme le fichier et je l'ouvre une deuxieme fois je peux utiliser ce CommandButton1.
Merci une deuxieme fois
Cordialement
MADA

 

[Lone-wolf]

Re

Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
CommandButton1.Enabled = True
End Sub

Private Sub UserForm_Initialize()
CommandButton1.Enabled = False
End Sub

Modifie l'ordre de tabulation (clic droit sur l'usf) puis, utilise TAB du clavier pour changer de textbox.

 

[MADAGASCAR]

Salut cher Lone-wolf
Du fond du coeur merci et BRAVO
Merci pour votre super solution
Parfaitement resolu
Amicalement
MADA