Discussion :

[sigma17]

bonjour la communauté,
voila j'ai deux boutons sur mon userform,un qui permet d'opérer un calcul(B1) et l'autre qui remet à zéro le calcul(B2)j’aimerais qu'après le clic sur B1 celui ci soit grisé pour ne pas qu'on ait a cliquer encore dessus et lorsqu'on clique sur B2 alors B1 se dégrise.
voici le code de B1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub CommandButton9_Click()
Worksheets("1er Trim").Unprotect ("sigma")
Call banquejanvier   'procédure pour le calcul des montant de banque
UserForm1.CommandButton9.Enabled = False
Worksheets("1er Trim").Protect ("sigma")
End Sub

celui de B2 est

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub CommandButton6_Click()
Worksheets("1er Trim").Unprotect ("sigma")
Call rafraichirbanquejanvier  'procédure pour mettre les calculs à zéro
CommandButton9.Enabled = True
Worksheets("1er Trim").Protect ("sigma")
End Sub

ce code apparament marche mais si je clique B1,qui se grise et que je ferme mon formulaire à l'ouverture B1 est dégrisé,alors ma préoccupation est la suivante:comment garder l'état de mon bouton grisé après la fermeture et la réouverture de mon formulaire?
Cordialement

[Daniel.C]

Bonjour,

Ou tu testes, à l'ouverture de l'userform, si le calcul est remis à zéro, ou tu mets dans une variable publique booléenne l'état du bouton quand tu fermes l'userform. Si tu veux connaître l'état du bouton même après la fermeture du classeur, positionne une valeur dans un nom défini.

[casefayere]

Bonjour,
un exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim cpt_bt As String
 
Sub bouton1_click()
'ton code
cpt_bt = bouton1.Caption
bouton1.enable = False
bouton1.Caption = "INACTIF"
End Sub
Sub bouton2_click()
'ton code
bouton1.enable = True
bouton1.Caption = cpt_bt
End Sub

pas testé

[sigma17]

bonjour Daniel,
merci pour votre coup de main,désolé d'avoir autant tardé avant de répondre(problème de connexion)mais je cale toujours.ce que j'ai réussit à faire jusqu’à présent c'est griser mon bouton dès l'ouverture du formulaire pourtant il me semble que j'ai bien respecté vos consignes,voici mon code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
 
Public x As Integer
Public y As Integer
Private Sub UserForm_Activate()
If y = 0 Then
CommandButton29.Enabled = False
Else
CommandButton29.Enabled = True
'Else
End If
End Sub
 
Private Sub UserForm_Deactivate()
y = x
 
End Sub
 
Private Sub CommandButton29_click()
call banquejanvier
x = 0
CommandButton29.Enabled = False
 
End Sub
 
Private Sub CommandButton30_Click()
call rafraichirbanquejanvier
 
CommandButton29.Enabled = True
x = 1
End Sub

Cordialement

Bonjour casefayere,
merci de l'attention,j'ai essayé le code mais il ne marche pas comme voulu,à l'ouverture malgré que je ne fais pas de mise à zéro le bouton n'est toujours pas grisé.
Cordialement

[sigma17]

salut,enfin j'ai trouvé une solution pour mes boutons,je ne suis pas sur qu'elle soit très orthodoxe mais elle marche(en tant que débutant cela réjouit).
j'ai utilisé la valeur d'une cellule d'une des feuilles du classeur,je poste mon bout de code,j'espère que cela sera utile à d'autres
pour le bouton B1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub CommandButton9_Click()
Worksheets("1er Trim").Unprotect ("sigma")
Call banquejanvier   'procédure pour le calcul des montant de banque
Worksheets("1er Trim").cells(1,30)=0
CommandButton9.Enabled = False
Worksheets("1er Trim").Protect ("sigma")
End Sub

pour le bouton B2

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub CommandButton6_Click()
Worksheets("1er Trim").Unprotect ("sigma")
Call rafraichirbanquejanvier  'procédure pour mettre les calculs à zéro
Worksheets("1er Trim").cells(1,30)=1
CommandButton9.Enabled = True
Worksheets("1er Trim").Protect ("sigma")
End Sub

et

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
private sub UserForm_Activate()
If Worksheets("1er Trim").cells(1,30)=0 then
  UserForm1.CommandButton9.Enabled = False
  else
  UserForm1.CommandButton9.Enabled = True
End If

Cordialement

[Philippe Tulliez]

Bonjour,
Pour faire l'économie d'un IF, tu peux aussi faire comme ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

CommandButton9.Enabled = Worksheets("1er Trim").cells(1,30)