[ 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
 

Pièces jointes

  • CommandButton annuel.xlsm
    15 KB · Affichages: 39

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:

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 943
Membres
101 849
dernier inscrit
florentMIG