Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Bouton gif dans excel

Bouton gif dans excel

3 réponses
Avatar
benoitleray
Bonjour,

je voudrai savoir s'il est popssible dans excel d'int=E9grer des bouton
GIF avec effet de click pour commander des macro dans Excel ?

D'vance merci.
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Corto
Bonjour benoitleray,
Je te propose ces macros à mettre dans le module de la feuille qui
contient le bouton.
Private Sub MonBouton_MouseDown(ByVal Button As Integer, ByVal Shift As
Integer, ByVal X As Single, ByVal Y As Single)
MonBouton.Picture = LoadPicture("C:My PicturesPicDown.gif")
End Sub

Private Sub MonBouton_MouseUp(ByVal Button As Integer, ByVal Shift As
Integer, ByVal X As Single, ByVal Y As Single)
MonBouton.Picture = LoadPicture("C:My PicturesPicDown.gif")
End Sub

Corto


Bonjour,

je voudrai savoir s'il est popssible dans excel d'intégrer des bouton
GIF avec effet de click pour commander des macro dans Excel ?

D'vance merci.



Avatar
Corto
Bonjour benoitleray,
Je te propose ces macros à mettre dans le module de la feuille qui
contient le bouton.
Private Sub MonBouton_MouseDown(ByVal Button As Integer, ByVal Shift As
Integer, ByVal X As Single, ByVal Y As Single)
MonBouton.Picture = LoadPicture("C:My PicturesPicDown.gif")
End Sub

Private Sub MonBouton_MouseUp(ByVal Button As Integer, ByVal Shift As
Integer, ByVal X As Single, ByVal Y As Single)
MonBouton.Picture = LoadPicture("C:My PicturesPicUp.gif")
End Sub

Corto


Bonjour,

je voudrai savoir s'il est popssible dans excel d'intégrer des bouton
GIF avec effet de click pour commander des macro dans Excel ?

D'vance merci.



Avatar
Soupull
Merci Beaucoup !


Bonjour benoitleray,
Je te propose ces macros à mettre dans le module de la feuille qui
contient le bouton.
Private Sub MonBouton_MouseDown(ByVal Button As Integer, ByVal Shift As
Integer, ByVal X As Single, ByVal Y As Single)
MonBouton.Picture = LoadPicture("C:My PicturesPicDown.gif")
End Sub

Private Sub MonBouton_MouseUp(ByVal Button As Integer, ByVal Shift As
Integer, ByVal X As Single, ByVal Y As Single)
MonBouton.Picture = LoadPicture("C:My PicturesPicUp.gif")
End Sub

Corto


Bonjour,

je voudrai savoir s'il est popssible dans excel d'intégrer des bouton
GIF avec effet de click pour commander des macro dans Excel ?

D'vance merci.