XL 2019 Nouvelle feuille d'après modèle

  • Initiateur de la discussion Initiateur de la discussion Mapat
  • 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 !

Mapat

XLDnaute Occasionnel
Bonjour

J'ai essayé de mettre en place un fichier qui créé une nouvelle feuille d'après un modèle.
Ce code à été proposé par Sylvanu.
Je ne vois pas ce qui ne va pas
Bonne soirée
Capture.JPG
 

Pièces jointes

Bonsoir @sylvanu

Pour le fun et pour les bouclophobes aussi appelés Loopophobes
(à ne pas confondre avec les LoopingPhobes qui sont allergiques à ceci )
NB: bien qu'ils doivent être rare 😉
Code:
Sub Duplique_version_Bouclophobe()
Dim Nom$
Nom = Sheets("Nouveau").Cells(Rows.Count, "B").End(xlUp)
If Not Evaluate("isref('" & Nom & "'!a1)") Then
Sheets("Modele").Copy after:=Worksheets(Sheets.Count)
ActiveSheet.Name = Nom
End If
End Sub
 
Bonjour

Et bien moi je suis admiraphile de personne comme vous. (bientôt dans le nouveau Larousse)
Tout fonctionne bien avec la réponse de Sylvanu et j'ai testé le code de Staple pour me rendre compte que le résultat attendu passe par des chemins de codage bien différents.
Je vous envie un peu quand même...
Merci pour vos réponses
 
- 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
14
Affichages
485
  • Question Question
Réponses
5
Affichages
172
Réponses
72
Affichages
1 K
Retour