Nom d'un onglet dans une textbox

[cpeens]

Bonjour je recherche une macro pour afficher le nom de l'onglet de la page actif dans une textbox

j'ai essayer

  Dim WS As Worksheet
For Each WS In Worksheets
Me.T11.Text = WS.Name
Next WS

mais sa fonctionne pas

merci d'avance pour votre aide precieuse

 

[Robert]

Re : Nom d'un onglet dans une textbox

bonjour Cpeens, bonjour le forum,

Essaie comme ça (le code s'exécute à l'initalisation du l'UserForm) :

Private Sub UserForm_Initialize()
Me.T11.Text = ActiveSheet.Name
End Sub

 

[cpeens]

Re : Nom d'un onglet dans une textbox

bonsoir robert merci pour ta solution mais entre temps Si.... ma proposé ceci qui fonctionne correctement.

For Each Sh In Sheets
    If Left(Sh.Name, 2) = "CC" Then
       'pas de changement
    End If
  Next

je garde sous le coude ta solution au besoin

merci encore et bonne soirée

 

[Robert]

Re : Nom d'un onglet dans une textbox

Bonsoir Cpeens, bonsoir le forum,

C'est bien que le code fonctionne mais il n'a rien à voir avec ta question. Je me demande comment Si a pu te proposer le code que tu nous présentes avec le peu d'infos que tu nous a données... J'ai dû perdre quelque chose en route !

 

[cpeens]

Re : Nom d'un onglet dans une textbox

Bonjour robert pas étonnant tu comprene pas je me suis tromper de code lol

la voici

Private Sub ComboBox1_Change()
  If Oui = False Then Exit Sub
  For Each Sh In Sheets
    For L = 2 To Sh.Cells(Rows.Count, 1).End(xlUp).Row
      If ComboBox1 = CStr(Sh.Cells(L, 1)) Then
        Nom = Sh.Name: Li = L
        TextBox2 = Sh.Name
        TextBox3 = Sh.Cells(L, 1).Offset(, 1)
        TextBox4 = Sh.Cells(L, 1).Offset(, 2)
        Exit For
      End If
    Next
  Next
End Sub

à trés bientot