OVH Cloud OVH Cloud

Objet et Caption

4 réponses
Avatar
Vincent
Bonjour, je souhaite envoyer dans une zone de texte que j'ai appelé Alpha1
Je souhaite qu'au lancement de mon Userform, le caption aille dans le label8
Mais cela ne fonctionne pas
ActiveSheet.Shapes("Alpha1").Text = Label8
Merci beaucoup
Vincent

4 réponses

Avatar
Patrick Fredin
Bonjour,

Je n'ai rien compris. Peux-tu être plus clair ?

--
Patrick

"Vincent" wrote in message
news:
Bonjour, je souhaite envoyer dans une zone de texte que j'ai appelé Alpha1
Je souhaite qu'au lancement de mon Userform, le caption aille dans le
label8

Mais cela ne fonctionne pas
ActiveSheet.Shapes("Alpha1").Text = Label8
Merci beaucoup
Vincent




Avatar
Michel Pierron
Bonsoir Vincent;
ActiveSheet.Shapes("Alpha1").TextFrame.Characters.Text = Label8.Caption
MP

"Vincent" a écrit dans le message de
news:
Bonjour, je souhaite envoyer dans une zone de texte que j'ai appelé Alpha1
Je souhaite qu'au lancement de mon Userform, le caption aille dans le
label8

Mais cela ne fonctionne pas
ActiveSheet.Shapes("Alpha1").Text = Label8
Merci beaucoup
Vincent




Avatar
LeSteph
Bonsoir Vincent,

'ici le commandant à vous alpha
'label8 à téléportation
'parez à lancer le userform

Label8.Caption¬tiveSheet.Shapes("Alpha1").TextFrame.Characters.Text

'lSteph

"Vincent" a écrit dans le message de news:

Bonjour, je souhaite envoyer dans une zone de texte que j'ai appelé Alpha1
Je souhaite qu'au lancement de mon Userform, le caption aille dans le
label8
Mais cela ne fonctionne pas
ActiveSheet.Shapes("Alpha1").Text = Label8
Merci beaucoup
Vincent



Avatar
Vincent
Merci beaucoup Lesteph et Michel, cela fonctionne parfaitement
Vincent

"LeSteph" a écrit dans le message de news:

Bonsoir Vincent,

'ici le commandant à vous alpha
'label8 à téléportation
'parez à lancer le userform

Label8.Caption¬tiveSheet.Shapes("Alpha1").TextFrame.Characters.Text

'lSteph

"Vincent" a écrit dans le message de news:

Bonjour, je souhaite envoyer dans une zone de texte que j'ai appelé
Alpha1
Je souhaite qu'au lancement de mon Userform, le caption aille dans le
label8
Mais cela ne fonctionne pas
ActiveSheet.Shapes("Alpha1").Text = Label8
Merci beaucoup
Vincent