nom feuille active dans zone texte

[Phil_PF]

Bonjour le forum

Voici mon petit problème :
J'ai une boite de dialogue pour lancer quelques macros et j'aimerais qu'apparaisse dans une zone de texte le nom de la feuille active au lancement de la boite de dialogue. En espérant que cela soit possible...

merci

 

[mutzik]

Re : nom feuille active dans zone texte

Bonjour Phil

nom du classeur actif : ActiveWorkbook.Name
nom de la feuille active : ActiveSheet.Name

 

[Staple1600]

Re : nom feuille active dans zone texte

Re

essai avec l'enregistreur de macro

Sub Macro1()
ActiveSheet.Shapes.AddShape(msoShapeRectangle, 186#, 99#, 209.25, 110.25).Select
Selection.Characters.Text = ActiveSheet.Name
End Sub

Sans select

Sub Macro1bis()
ActiveSheet.Shapes.AddShape(msoShapeRectangle, 100#, 100#, 100, 100).TextFrame.Characters.Text = ActiveSheet.Name
End Sub

 

[Phil_PF]

Re : nom feuille active dans zone texte

merci pour ces réponses, mais mon problème c'est pour le faire apparaître dans une zone de texte modifiable a l'apparition de la boite de dialogue. Je vois à peu près ce qu'il faut mettre (un truc du genre TextBoxNomFeuille.Value = ActiveSheet.Name), mais je ne sais pas trop où.

 

[Pierrot93]

Re : nom feuille active dans zone texte

Bonjour Phil, Staple

Phil, tu parles d'une boite de dialogue (msgbox ou inputbox) ou bien d'un USF ou il serait positionné plusieurs controles.

Mets peut être ton fichier en piece joint pour voir ou tu en es.

bon après midi
@+

 

[Phil_PF]

Re : nom feuille active dans zone texte

J'ai trouvé : c'est dans l'initialisation du userform

Private Sub UserForm_Initialize()
TextBoxNomFeuille.Value = ActiveSheet.Name
End Sub

> Pierrot : c'est une USF, mais j'ai trouvé. Merci

Bon Après-midi

 

[Staple1600]

Re : nom feuille active dans zone texte

Re

Demande initiale
...j'aimerais qu'apparaisse dans une zone de texte ...

J'étais donc parti sur une zone de texte apparaissant sur une feuille
et non pas dans usf

Désolé

 

[Phil_PF]

Re : nom feuille active dans zone texte

> Staple : Merci mais c'est de ma faute, j'ai pas été clair.