Personnaliser bouton sur feuille pendant exécution VBA

[JeffdeBruges]

Bonjour, dans une boucle je crée plusieurs feuilles dont chacune est munie d'un bouton valider, à partir d'une feuille modèle masquée. Ma question : comment, pendant l'exécution du code, faire en sorte que le bouton unique sur chaque feuille soit personnalisé avec le nom de la feuille sur laquelle il se trouve.
J'arrive à sélectionner le bouton sur feuille avec l'instruction :
ActiveSheet.Shapes("cmdValiderHistorique").Select
Hélàs, depuis samedi dernier, je ne parviens pas à modifier le nom qui apparaît sur le bouton... L'instruction ci-après ne fonctionne pas (erreur) :
ActiveSheet.Shapes("cmdValiderHistorique").Characters.Text = "essai"
Auriez-vous une bonne idée ??? Merci
PS : quand l'objet est sélectionné, dans la barre de formule d'excel il y a :
=INCORPORER("Forms.CommandButton.1";"")

 

[Dull]

Re : Personnaliser bouton sur feuille pendant exécution VBA

SalutJeffdeBruges, le Forum

ActiveSheet.Shapes("cmdValiderHistorique").Caption=ActiveSheet.Name

Pas Tester mais a Essayer

Bonne Journée

 

[JeffdeBruges]

Re : Personnaliser bouton sur feuille pendant exécution VBA

Bonjour et merci pour cette réponse.
Néanmoins, proposer un code non testé restreint les possibilités que ça marche.

En l'occurrence ça ne fonctionne pas. Pour information...

 

[Dull]

Re : Personnaliser bouton sur feuille pendant exécution VBA

Re JeffdeBruges, Le Forum

Néanmoins, proposer un code non testé restreint les possibilités que ça marche.

Si tu n'a pas d'autres réponses de plus de 24 heures... a par la mienne... c'est peut-être parce que ta question est trop vague.

avec un extrait de ton fichier Zipper et - de 48ko ça sera peut-être plus clair

A Toi de voir

Bonne Journée

 

[Staple1600]

Re : Personnaliser bouton sur feuille pendant exécution VBA

Bonjour JeffDeBRuges, re Dull


En remerciement Dull (pour le surnom) , voici le 100001 lien <img>

https://www.excel-downloads.com/thr...-formulaire-explications-demandees-svp.78319/

 

[Celeborn61]

Re : Personnaliser bouton sur feuille pendant exécution VBA

Salut,

ActiveSheet.Shapes("cmdValiderHistorique").Charact ers.Text = "essai"
Auriez-vous une bonne idée ??? Merci
PS : quand l'objet est sélectionné, dans la barre de formule d'excel il y a :
=INCORPORER("Forms.CommandButton.1";"")

Ton bouton porte le nom de "Forms.CommandButton.1", il est normal qu'en lui parlant en le nommant "cmdValiderHistorique" il ne réponde pas.

 

[JeffdeBruges]

Re : Personnaliser bouton sur feuille pendant exécution VBA

Ah oui, vraiment ? Eh bien pourtant j'arrive à sélectionner le bouton de cette manière. Essaies donc un peu l'instruction suivante :
ActiveSheet.Shapes("cmdValiderHistoriqueSite").Select
et tu verras que cela fonctionne !

Je continue à chercher sur d'autres forums
PS : avant de poster une question sur ce forum, j'essaie de trouver la solution moi-même, parfois je trouve de l'aide pertinente (et j'en donne aussi) et parfois non. A bon lecteur salut.

Salut,



Ton bouton porte le nom de "Forms.CommandButton.1", il est normal qu'en lui parlant en le nommant "cmdValiderHistorique" il ne réponde pas.

 

[JeffdeBruges]

Re : Personnaliser bouton sur feuille pendant exécution VBA

ok merci c'est sympa

 

[Celeborn61]

Re : Personnaliser bouton sur feuille pendant exécution VBA

Salut JeffdeBruges,

Il est véritablement sympatique d'essayer de t'aider.

A bon lecteur salut.

Solution:
ActiveSheet.Shapes("Voir").DrawingObject.Object.Caption = "Pour te donner"

 

[JeffdeBruges]

Re : Personnaliser bouton sur feuille pendant exécution VBA

Bravo, le contenu de ce message contredit ce qui était affirmé dans ton message précédent ! Comme quoi réfléchir avant d'agir peut t'être utile.

 

[Celeborn61]

Re : Personnaliser bouton sur feuille pendant exécution VBA

Salut,

Parfaitement exact, aussi, appliques cette maxime.
Par exemple en disant "merci"