OVH Cloud OVH Cloud

atteindre un bouton

2 réponses
Avatar
Renard du désert
Bonjour,

Je crée un bouton de la manière suivante :
ActiveSheet.Buttons.Add(200, 2, 150, 25).Select
Selection.OnAction = "Validation"

Selection.Caption = "Validation de la feuille de paye"

Dans la macro Validation, je voudrais changer le contenu du bouton
Par exemple "button".Caption = "Impression"
Pouvez vous m'aider pour réaliser cette petite macro

D'avance merci

PS : J'ai voulu envoyer ce post il y a quelques minutes. A priori, j'ai eu
un problème...

2 réponses

Avatar
ru-th
Salut Desert Fox

une possibilité :
Sub test()
With ActiveSheet.Buttons.Add(200, 2, 150, 25)
.OnAction = "Validation"
.Caption = "Validation de la feuille de paye"
.Name = "BoutonA"
End With
End Sub
Sub validation()
ActiveSheet.Buttons("BoutonA").Caption = "impression"
End Sub

a+
rural thierry

"Renard du désert" a écrit dans le message de news:
bqn41d$385$
Bonjour,

Je crée un bouton de la manière suivante :
ActiveSheet.Buttons.Add(200, 2, 150, 25).Select
Selection.OnAction = "Validation"

Selection.Caption = "Validation de la feuille de paye"

Dans la macro Validation, je voudrais changer le contenu du bouton
Par exemple "button".Caption = "Impression"
Pouvez vous m'aider pour réaliser cette petite macro

D'avance merci

PS : J'ai voulu envoyer ce post il y a quelques minutes. A priori, j'ai eu
un problème...




Avatar
Renard du désert
Cela fonctionne parfaitement

Merci beaucoup

ru-th a écrit dans le message :

Salut Desert Fox

une possibilité :
Sub test()
With ActiveSheet.Buttons.Add(200, 2, 150, 25)
.OnAction = "Validation"
.Caption = "Validation de la feuille de paye"
.Name = "BoutonA"
End With
End Sub
Sub validation()
ActiveSheet.Buttons("BoutonA").Caption = "impression"
End Sub

a+
rural thierry

"Renard du désert" a écrit dans le message de news:
bqn41d$385$
Bonjour,

Je crée un bouton de la manière suivante :
ActiveSheet.Buttons.Add(200, 2, 150, 25).Select
Selection.OnAction = "Validation"

Selection.Caption = "Validation de la feuille de paye"

Dans la macro Validation, je voudrais changer le contenu du bouton
Par exemple "button".Caption = "Impression"
Pouvez vous m'aider pour réaliser cette petite macro

D'avance merci

PS : J'ai voulu envoyer ce post il y a quelques minutes. A priori, j'ai
eu


un problème...