Bonsoir !
Quel titre, non ?
En fait je ne comprend pas...
Voici le code VBA :
Option Explicit
Private Declare PtrSafe Function Beep Lib "Kernel32" (ByVal Fq As Long, ByVal Tm As Long) As Long
Sub Vert()
Feuil1.Shapes("Vert").Visible = True
Application.ScreenUpdating = True
Beep 550, 600
Feuil1.Shapes("Vert").Visible = False
End Sub
Il a pour effet de mettre à "visible" une image pour simuler l'allumage d'une autre lors du clic de souris.
Il est donc rattaché à l'image "éteinte" par "Affecter une macro".
L'image "Vert" est mis à visible, un ScreenUpDating pour mettre à jour ce changement, exécution du Beep, puis extinction de l'image en rendant invisible l'image allumée, à la lecture rien de bien méchant.
Sauf que le Beep "joue" et ensuite seulement l'image s'allume et elle "s'éteint" directement !
Le Beep est "prioritaire" sur l'affichage alors que le code commande l'inverse !
Voici le fichier, seul le Vert est en fonction : Fichier effacé par LouReeD
Une idée ?
@ bientôt
LouReeD