Copier et renommer une feuille selon des Box

Résolu

Emilie -
Emilie - 29 août 2017 à 12:42

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,

A voir également:

Excel vba copier feuille et renommer
Word et excel gratuit - Guide
Liste déroulante excel - Guide
Feuille de pointage excel - Télécharger - Tableur
Renommer des fichiers en masse - Guide
Si et excel - Guide

3 réponses

Réponse 1 / 3

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713

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/

Réponse 2 / 3

Kalissi Messages postés 218 Date d'inscription Statut Membre Dernière intervention 20

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

Réponse 3 / 3

Emilie

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

Emilie

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.

Discussions similaires

Feuille de score belote

dessin avec symbole clavier

Votre réponse

Discussions similaires