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

[Mapat]

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

 

[Staple1600]

Bonsoir @Mapat, le fil

Il faut ajouter en début de code
Dim DerLig As Long

Je laisse @sylvanu te donner plus de précisions.

 

[Mapat]

Bonsoir Staple
Ca ne fonctionne toujours pas. Juste avancé d'une ligne
Merci pour cette réponse

 

[Staple1600]

Re

Il faut déclarer toutes les variables
ou moins chronophage
supprimer la ligne : Option Explicit

Là, aussi, je laisse @sylvanu te proposer la version de son code avec toutes ses variables déclarées.

 

[sylvanu]

Bonsoir MaPat, Staple,
Ajoutez la ligne :

Dim DerLig%, Nom$, Sh

juste après Sub Duplique()

 

[Staple1600]

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

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

 

[TooFatBoy]

Hi,

NB : bien qu'ils doivent être rares

Moi, je suis fautophobe...

 

[Mapat]

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