CommandButton opaque après click !

Bonjour le Forum,

pouvez-vous me dire comment faire pour qu'un CommandButton dont le Back style est transparent (Code 0) ne reste pas opaque après que l'on ait cliqué dessus ?
Faut-il modifier le code ?
Le code que j'utilise est le suivant :

Code:

---

1 2 3

Private Sub CommandButton3_Click() Ouvrir_Cours_historique End Sub

---

Je vous remercie pour vos réponses et vous souhaite une bonne journée.
Cordialement.

Nonno 94.

Code:

---

1 2 3 4

Private Sub CommandButton3_Click() Ouvrir_Cours_historique CommandButton3.backstyle = 1 End Sub

---

Bonjour EngueEngue,

merci pour votre réponse.
Malheureusement, le bouton reste obstinément opaque après le clic.
Une précision qui vous sera peut-être utile :
la macro qui est lancée par le bouton ouvre un autre fichier dans lequel s'exécute une 2 ème macro.

Voici le code de la 1 ère lancée par le bouton :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub Ouvrir_Cours_historique()   Workbooks.Open Filename:="C:\Users\user\Documents\Médoc (Excel 2003)\R'sIG\COURS (Historique).xls"   If [AG18] <> "" Then '[AE18]   Application.Run "'COURS (Historique).xls'!Contrôler_Historiques"   End If     End Sub

---

Merci encore et bon après-midi.

Le backstyle n'est pas visible à l'oeuil nu.. Il permet de laisser transparaitre des items cachés derrière le bouton...

Si tu veux desactiver ton bouton tu devrais utiliser le .visible = false

Bonjour,

Effectivement, la transparence ne se met pas à jour après avoir cliqué sur le bouton. Ce doit être, sinon un bug, une lacune d'Excel.

Peut être une piste pour pallier en forçant Excel à remettre à jour avec la bidouille suivante

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Private Sub CommandButton3_Click()   Ouvrir_Cours_historique   '/// On fait une pseudo action pour réactiver la transparence /// Dim S As Worksheet With Application .ScreenUpdating = False .DisplayAlerts = False '--- Set S = Sheets.Add S.Delete '--- .DisplayAlerts = True .ScreenUpdating = True End With '//////////////////////////////////////////////////////////////// End Sub

---

Cela a-t-il l'effet espéré ?

Bonjour PMO2017 et merci pour votre réponse.

Malheureusement, la modification que vous proposez n'a pas l'effet espéré.
Dommage.

Cordialement.

Nonno 94.