Modifier une feuille dans UserForm

Résolu
Bonjour,
Selon la pièce jointe, serait-il possible d'ajouter une commande pour modifier le nom d'une feuille?
Merci beaucoup

https://www.cjoint.com/c/KEqiGPSJK4l

2 réponses

  1. Merci beaucoup Le Pivert, une fois de plus vous m'avez bien aidé
    Cordialement
    0
    1. Contributeur
      Bonjour,

      sélectionnez la feuille à renommer dans la listBox:

      voici le code du bouton:

      Private Sub CommandButton1_Click()
      Dim nom As String
      nom = InputBox("Saisissez le nouveau nom", "Renommer", "mafeuille")
      If nom = "" Then Exit Sub
      Worksheets(ListBox1.Value).Name = nom
      End Sub
      


      Voilà

      0