Discussion :

[Invité]

Bonjour,

Je voudrai désactiver un bouton se trouvant sur une feuille Excel en cliquant un bouton d'un userform. je ne sais pas comment faire référence au bouton de la feuille.
En fait, je clique sur un bouton qui ferme l'userform.

Code :

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

1
2
3
4
5
6
7
Private Sub Bt_Fermer_Click()
Unload Me
 
' Désactive Bouton "Bt2"
 
 
End Sub

Merci beaucoup.

Cordialement,

[issoram]

Bonjour,

Petit sub qui fera l'affaire

Code :

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

1
2
3
4
5
Sub Active_Bt2(ByVal b_active As Boolean)
    With ThisWorkbook.Worksheets("PV").OLEObjects("Bt2")
        .Object.Enabled = b_active
    End With
End Sub

Cordialement.

[spookyz]

Bonjour, qu'entend tu par désactiver ?

[Invité]

Bonjour Spookyz, Bonjour Issoram,

Je vous remercie tous deux d'avoir répondu à mon post.

Par "Désactiver", j'entends la propiété du bouton "Enabled=False".

j'ai copié le code De Issoram dans un module standard, et j'appelle cette procédure parle bouton "Fermer" de l'userform.
Mais il bugge, "Erreur de compilation: Argument no facultatif"

Code :

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

1
2
3
4
Private Sub Bt_Fermer_Click()
Unload Me
Call Active_Bt2
End Sub

Si je me suis trompé, alors où dois-je mettre le code.

Merci beaucoup.

Cordialement,

[spookyz]

Il faut appeler la la procédure depuis ton bouton sur le userform avec l'argument false ou true
t

Code :

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

1
2
3
4
Private Sub Bt_Fermer_Click()
Active_Bt2 (False)
Unload Me
End Sub

[Invité]

Merci les gars,

J'ai mis ceci et ça fonctionne aussi:

Code :

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

1
2
3
4
Private Sub Bt_Fermer_Click()
ThisWorkbook.Worksheets("PV").OLEObjects("Bt2").Object.Enabled = False
Unload Me
End Sub

J'ai testé ton code, il fonctionne parfaitement bien.

Je vous remercie beaucoup.

Cordialement,