Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
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 !
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
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
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