Ubne question surement bête, ...mais un moment de honte est vite passé
:-))))))))
J'affiche une barre de menu à l'ouverture d'un classeur; je souhaite,
lors du click sur un bouton, modifier le caption de celui-ci et lui
affecter une autre macro. Evidemment, ceci ne fonctionne pas, bien que
je n'ai pas d'erreur. Est-il nécessaire de recréer entièrement la barre
??? Je suis sûr qu'il doit y avoir une astuce.....que l'un de nos
maîtres va s'empresser de me communiquer :-))))))
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
michdenis
Bonjour ThierryP,
Essaie ceci en adaptant le nom de ta barre d'outils et celui de ton bouton
'--------------------------- Sub Test() Dim x As MsoButtonStyle x = msoButtonIconAndCaption
With Application.CommandBars("MaBarre") 'Le nom de ta barre With .Controls("Denis") 'Le nom de ton bouton .Style = x .OnAction = "NouvelleMacro" 'Le nom de la nouvelle macro .Caption = "Wow ça marche?" 'Ce que tu veux afficher... End With End With
End Sub '---------------------------
Salutations!
"Thierryp" a écrit dans le message de news: uWp8% Bonsoir tout le monde,
Ubne question surement bête, ...mais un moment de honte est vite passé :-)))))))) J'affiche une barre de menu à l'ouverture d'un classeur; je souhaite, lors du click sur un bouton, modifier le caption de celui-ci et lui affecter une autre macro. Evidemment, ceci ne fonctionne pas, bien que je n'ai pas d'erreur. Est-il nécessaire de recréer entièrement la barre ??? Je suis sûr qu'il doit y avoir une astuce.....que l'un de nos maîtres va s'empresser de me communiquer :-))))))
Merci d'avance
@+ thierryp
Bonjour ThierryP,
Essaie ceci en adaptant le nom de ta barre d'outils et celui de ton bouton
'---------------------------
Sub Test()
Dim x As MsoButtonStyle
x = msoButtonIconAndCaption
With Application.CommandBars("MaBarre") 'Le nom de ta barre
With .Controls("Denis") 'Le nom de ton bouton
.Style = x
.OnAction = "NouvelleMacro" 'Le nom de la nouvelle macro
.Caption = "Wow ça marche?" 'Ce que tu veux afficher...
End With
End With
End Sub
'---------------------------
Salutations!
"Thierryp" <thierry@nospam.fr> a écrit dans le message de news: uWp8%23ovEGHA.312@TK2MSFTNGP09.phx.gbl...
Bonsoir tout le monde,
Ubne question surement bête, ...mais un moment de honte est vite passé
:-))))))))
J'affiche une barre de menu à l'ouverture d'un classeur; je souhaite,
lors du click sur un bouton, modifier le caption de celui-ci et lui
affecter une autre macro. Evidemment, ceci ne fonctionne pas, bien que
je n'ai pas d'erreur. Est-il nécessaire de recréer entièrement la barre
??? Je suis sûr qu'il doit y avoir une astuce.....que l'un de nos
maîtres va s'empresser de me communiquer :-))))))
Essaie ceci en adaptant le nom de ta barre d'outils et celui de ton bouton
'--------------------------- Sub Test() Dim x As MsoButtonStyle x = msoButtonIconAndCaption
With Application.CommandBars("MaBarre") 'Le nom de ta barre With .Controls("Denis") 'Le nom de ton bouton .Style = x .OnAction = "NouvelleMacro" 'Le nom de la nouvelle macro .Caption = "Wow ça marche?" 'Ce que tu veux afficher... End With End With
End Sub '---------------------------
Salutations!
"Thierryp" a écrit dans le message de news: uWp8% Bonsoir tout le monde,
Ubne question surement bête, ...mais un moment de honte est vite passé :-)))))))) J'affiche une barre de menu à l'ouverture d'un classeur; je souhaite, lors du click sur un bouton, modifier le caption de celui-ci et lui affecter une autre macro. Evidemment, ceci ne fonctionne pas, bien que je n'ai pas d'erreur. Est-il nécessaire de recréer entièrement la barre ??? Je suis sûr qu'il doit y avoir une astuce.....que l'un de nos maîtres va s'empresser de me communiquer :-))))))
Merci d'avance
@+ thierryp
Thierryp
Désolé d'un merci aussi tardif......Ca fonctionne !!
Merci
Bonjour ThierryP,
Essaie ceci en adaptant le nom de ta barre d'outils et celui de ton bouton
'--------------------------- Sub Test() Dim x As MsoButtonStyle x = msoButtonIconAndCaption
With Application.CommandBars("MaBarre") 'Le nom de ta barre With .Controls("Denis") 'Le nom de ton bouton .Style = x .OnAction = "NouvelleMacro" 'Le nom de la nouvelle macro .Caption = "Wow ça marche?" 'Ce que tu veux afficher... End With End With
End Sub '---------------------------
Salutations!
"Thierryp" a écrit dans le message de news: uWp8% Bonsoir tout le monde,
Ubne question surement bête, ...mais un moment de honte est vite passé :-)))))))) J'affiche une barre de menu à l'ouverture d'un classeur; je souhaite, lors du click sur un bouton, modifier le caption de celui-ci et lui affecter une autre macro. Evidemment, ceci ne fonctionne pas, bien que je n'ai pas d'erreur. Est-il nécessaire de recréer entièrement la barre ??? Je suis sûr qu'il doit y avoir une astuce.....que l'un de nos maîtres va s'empresser de me communiquer :-))))))
Merci d'avance
@+ thierryp
Désolé d'un merci aussi tardif......Ca fonctionne !!
Merci
Bonjour ThierryP,
Essaie ceci en adaptant le nom de ta barre d'outils et celui de ton bouton
'---------------------------
Sub Test()
Dim x As MsoButtonStyle
x = msoButtonIconAndCaption
With Application.CommandBars("MaBarre") 'Le nom de ta barre
With .Controls("Denis") 'Le nom de ton bouton
.Style = x
.OnAction = "NouvelleMacro" 'Le nom de la nouvelle macro
.Caption = "Wow ça marche?" 'Ce que tu veux afficher...
End With
End With
End Sub
'---------------------------
Salutations!
"Thierryp" <thierry@nospam.fr> a écrit dans le message de news: uWp8%23ovEGHA.312@TK2MSFTNGP09.phx.gbl...
Bonsoir tout le monde,
Ubne question surement bête, ...mais un moment de honte est vite passé
:-))))))))
J'affiche une barre de menu à l'ouverture d'un classeur; je souhaite,
lors du click sur un bouton, modifier le caption de celui-ci et lui
affecter une autre macro. Evidemment, ceci ne fonctionne pas, bien que
je n'ai pas d'erreur. Est-il nécessaire de recréer entièrement la barre
??? Je suis sûr qu'il doit y avoir une astuce.....que l'un de nos
maîtres va s'empresser de me communiquer :-))))))
Désolé d'un merci aussi tardif......Ca fonctionne !!
Merci
Bonjour ThierryP,
Essaie ceci en adaptant le nom de ta barre d'outils et celui de ton bouton
'--------------------------- Sub Test() Dim x As MsoButtonStyle x = msoButtonIconAndCaption
With Application.CommandBars("MaBarre") 'Le nom de ta barre With .Controls("Denis") 'Le nom de ton bouton .Style = x .OnAction = "NouvelleMacro" 'Le nom de la nouvelle macro .Caption = "Wow ça marche?" 'Ce que tu veux afficher... End With End With
End Sub '---------------------------
Salutations!
"Thierryp" a écrit dans le message de news: uWp8% Bonsoir tout le monde,
Ubne question surement bête, ...mais un moment de honte est vite passé :-)))))))) J'affiche une barre de menu à l'ouverture d'un classeur; je souhaite, lors du click sur un bouton, modifier le caption de celui-ci et lui affecter une autre macro. Evidemment, ceci ne fonctionne pas, bien que je n'ai pas d'erreur. Est-il nécessaire de recréer entièrement la barre ??? Je suis sûr qu'il doit y avoir une astuce.....que l'un de nos maîtres va s'empresser de me communiquer :-))))))
