Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

modification du nom de l'onglet

  • Initiateur de la discussion Initiateur de la discussion Hugues
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Hugues

XLDnaute Impliqué
Bonsoir Le Forum,

Par le biais d'une macro, je souhaiterais dupliquer une feuille type nommée "1-matrice" .
Puis je souhaiterais modifier le nom de la copie et appliquer comme nom la valeur contenue dans la cellule B2 de cette feuille copie.

La copie se passe bien mais c'est la modification du nom qui pose souci.

Ci joint le code :

' Duplicage de la feuille matrice
Sheets("1-matrice").Select
Sheets("1-matrice").Copy After:=Sheets(Sheets.Count)

' Insertion des données dans la feuille à partir des données contenues dans le userform
Range("B2") = nom.Value
Range("C4") = adresse.Value
Range("C5") = compl_adress.Value
Range("C6") = code_post.Value
Range("C7") = ville.Value
Range("C8") = tel1.Value
Range("C9") = tel2.Value
Range("C10") = portable.Value
Range("C11") = email.Value
Range("C12") = ref.Value
Range("C13") = org.Value

' Modification de l'onglet
ws3 = ActiveWorkbook.Sheets
ws3.Name = Range("B2").Value
creation.Hide

Pouvez vous m'aider ?

Merci par avance,

Hugues
 
Re : modification du nom de l'onglet

Bonsoir Hugues, bonsoir le forum,

Essaie comme ça :

Code:
' Duplicage de la feuille matrice
Sheets("1-matrice").Select
Sheets("1-matrice").Copy After:=Sheets(Sheets.Count)
' Modification de l'onglet
ActiveSheet.Name= nom.Value
 
' Insertion des données dans la feuille à partir des données contenues dans le userform 
Range("B2") = nom.Value
Range("C4") = adresse.Value
Range("C5") = compl_adress.Value
Range("C6") = code_post.Value
Range("C7") = ville.Value
Range("C8") = tel1.Value
Range("C9") = tel2.Value
Range("C10") = portable.Value
Range("C11") = email.Value
Range("C12") = ref.Value
Range("C13") = org.Value
 
creation.Hide
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
1
Affichages
1 K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…