Modifier une feuille dans UserForm

Résolu/Fermé
mic6259 Messages postés 342 Date d'inscription mercredi 4 mars 2015 Statut Membre Dernière intervention 11 décembre 2023 - 16 mai 2021 à 10:33
 mic6259 - 16 mai 2021 à 11:27
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
A voir également:

2 réponses

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
Modifié le 16 mai 2021 à 11:19
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
Merci beaucoup Le Pivert, une fois de plus vous m'avez bien aidé
Cordialement
0