[ RESOLU par Lone-wolf ] : CommandButton Annuel

MADAGASCAR

XLDnaute Occasionnel
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
 

Fichiers joints

Lone-wolf

XLDnaute Barbatruc
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

VB:
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
 
Dernière édition:

MADAGASCAR

XLDnaute Occasionnel
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

XLDnaute Barbatruc
Re

VB:
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.
 
Dernière édition:

MADAGASCAR

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

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas