Modifier une feuille dans UserForm [Résolu]

Signaler
Messages postés
300
Date d'inscription
mercredi 4 mars 2015
Statut
Membre
Dernière intervention
2 juin 2021
-
 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

Messages postés
7416
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
14 juin 2021
637
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à

Merci beaucoup Le Pivert, une fois de plus vous m'avez bien aidé
Cordialement