Salut,
je vous propose du code VBA pour créer de jolis boutons pour exécuter des macros dans des feuilles Excel.
Les boutons sont créés à partir de formes.
Il y a 4 styles de boutons :
Bouton Bleu
Bouton Sombre
Bouton Apple
Bouton Néon
La fonction CreatePremiumButton permet de créer les boutons
BtName est le nom du bouton
Caption est le texte du bouton
PosX est la position x où le bouton est créé
PosY est la position y où le bouton est créé
BtnWidth est la largeur du bouton
BtnHeight est la hauteur du bouton
Style est le style du bouton ( 4 choix possibles)
MacroToCall La macro à appeler sur appui
BaseColor est la couleur de base du bouton
exemple d'utilisation :
Il y a deux fonctions qui permettent d'activer ou de désactiver le bouton :
DisablePremiumButton :
Code:
BtnName est le nom du bouton
EnablePremiumButton :
BtnName est le nom du bouton, MacroToCall est le nom de la macro à appeler
En pièce jointe un classeur de démo qui contient :
1 - Dans le module ModuleBoutons, l'ensemble du code pour créer et gérer les boutons
2 - Dans le module ModuleDémo, le code de démo pour utiliser le module ModuleBoutons
Nullosse.
je vous propose du code VBA pour créer de jolis boutons pour exécuter des macros dans des feuilles Excel.
Les boutons sont créés à partir de formes.
Il y a 4 styles de boutons :
Bouton Bleu
Bouton Sombre
Bouton Apple
Bouton Néon
La fonction CreatePremiumButton permet de créer les boutons
VB:
CreatePremiumButton( _
ByVal BtnName As String, _
ByVal Caption As String, _
ByVal PosX As Double, _
ByVal PosY As Double, _
ByVal BtnWidth As Double, _
ByVal BtnHeight As Double, _
ByVal Style As BTN_STYLE, _
ByVal MacroToCall As String, _
Optional ByVal BaseColor As Long = -1)BtName est le nom du bouton
Caption est le texte du bouton
PosX est la position x où le bouton est créé
PosY est la position y où le bouton est créé
BtnWidth est la largeur du bouton
BtnHeight est la hauteur du bouton
Style est le style du bouton ( 4 choix possibles)
MacroToCall La macro à appeler sur appui
BaseColor est la couleur de base du bouton
exemple d'utilisation :
Code:
CreatePremiumButton _
"BTN_START", _
ChrW(9654) & " START", _
20, 155, _
120, 30, _
BTN_NEON, _
"ActionStart", _
RGB(255, 0, 180)Il y a deux fonctions qui permettent d'activer ou de désactiver le bouton :
DisablePremiumButton :
Code:
Code:
Sub DisablePremiumButton(ByVal BtnName As String)EnablePremiumButton :
Code:
Sub EnablePremiumButton(ByVal BtnName As String, ByVal MacroToCall As String)En pièce jointe un classeur de démo qui contient :
1 - Dans le module ModuleBoutons, l'ensemble du code pour créer et gérer les boutons
2 - Dans le module ModuleDémo, le code de démo pour utiliser le module ModuleBoutons
Nullosse.
- Auteur
- Nullosse
- Version
- 1.0
