Copier et renommer une feuille selon des Box [Résolu/Fermé]

Signaler
-
 Emilie -
Bonjour,

Je voudrais savoir s'il est possible de nommer une feuille en fonction d'une TextBox et d'une ComboBox ?

Je souhaite partir d'un modèle existant ("ARGUMENTAIRE"), le copier et ensuite le renommer. Sur le début j'ai la commande suivante :
ActiveWorkbook.Unprotect ("Toto")
Sheets("ARGUMENTAIRE").Visible = True
Sheets("ARGUMENTAIRE").Select
Sheets("ARGUMENTAIRE").Copy After:=Sheets(5)
Sheets("ARGUMENTAIRE").Select
ActiveWindow.SelectedSheets.Visible = False
ActiveWorkbook.Protect ("Toto"), Structure:=True, Windows:=False

Du coup la feuille s'appele ARGUMENTAIRE 2, ou 3 etc ! Et de là je suis bloquée !!!

Merci d'avance,

3 réponses

Messages postés
15725
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
11 avril 2021
1 481
Bonjour,

Il faudrait mettre votre fichier a dispo
Pour transmettre un fichier,
Veillez a ce qu'il n'y ait PAS DE DONNEES CONFIDENTIELLES
il faut passer par un site de pièce jointe tel que cjoint.com

Allez sur ce site : https://www.cjoint.com/
Clic sur parcourir,
Cherche ton fichier,
clic sur ouvrir,
Clic sur "Créer le lien cjoint",
Copier le lien,
Revenir ici le coller dans une réponse...

ou
'mon partage
https://mon-partage.fr/
Messages postés
218
Date d'inscription
jeudi 2 mai 2013
Statut
Membre
Dernière intervention
15 juillet 2019
19
Bonjour,

Suggestion :

Sub ChangeNom()

    Dim NomFeuille As String

    Sheets("ARGUMENTAIRE").Visible = True
    Sheets("ARGUMENTAIRE").Select
    Sheets("ARGUMENTAIRE").Copy After:=Sheets(5)
    
    NomFeuille = UserForm1.ComboBox1.Text
    ActiveSheet.Name = NomFeuille

End Sub


K
Désolé les données sont confidentielles, je ne peux joindre aucun fichier.

Kalissi ca marche parfaitement !
Et si je ne veux par exemple que le trois premiers caractères de ma combobox + une autre combobox, c'est possible ?
En formule : GAUCHE(ComboBox1)&CobomBox2
Si jamais quelqu'un fait la même recherche voilà comment renommer la feuille avec les 3 premiers caractères de la combobox1 et la combobox2
NomFeuille = Left(UserForm1.ComboBox1.Text, 3) & " - " & Left(UserForm1.ComboBox2.Text, 25)

Attention au delà de 31 caractères cela déclenche une erreur.