Modifier une feuille dans UserForm

Résolu
mic6259 Messages postés 343 Date d'inscription   Statut Membre Dernière intervention   -  
 mic6259 -
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.
    cs_Le Pivert Messages postés 8437 Statut Contributeur 730
     
    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
  2. mic6259
     
    Merci beaucoup Le Pivert, une fois de plus vous m'avez bien aidé
    Cordialement
    0

Discussions similaires

Modifier une annonce ou le prix sur Leboncoin sans payer
BourrinOman83 -
Clarckos -

22 réponses
arriere plan
minangi -
Raymond PENTIER -

1 réponse