Discussion :

[Nonno 94]

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 :

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

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.

[EngueEngue]

Code :

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

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

[Nonno 94]

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 :

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

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.

[EngueEngue]

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

[PMO2017]

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 :

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
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é ?

[Nonno 94]

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.