Créer des feuilles et les nommer

[Cantalou15]

Bonjour,

Je voudrai savoir s'il est possible de créer une macro permettant de créer des feuilles de calcul identiques à un modède (genre "dupliquer") et de les nomer automatiquement chacune à partir d'une liste.

Le fichier joint est le classeur de base, il contient une feuille "les Parcelles" où se trouvera une liste de parcelles agricoles, et une feuille "cahier d'épandage" qui est le modèle à dupliquer en autant de feuilles qu'il y a de parcelles avec le petit nom qui va bien...

S'il y a un moyen d'automatiser ça se serait top!

MERCI d'avance de votre aide !

 

[Pascal76]

Bonjour

Voici ton fichier avec un bouton en plus pour créer tes feuilles

Pascal

 

[@+Thierry]

Bonjour Cantalou, le Forum

Je ne peux télécharger ton fichier pour l'instant (Machine sensible au bureau) mais ton problème est très simple, voici un exemple :

Sub CopySheet()

Worksheets("cahier d'épandage").Copy After:=Worksheets(Sheets.Count)

Worksheets(Sheets.Count).Name = Format(Now, "YYYY-MM-DD-HH-MM-SS")

End Sub


Ici je renomme la feuille avec la Date et l'Heure, mais tu pourrais tout autant la nommer

Worksheets(Sheets.Count).Name = "Toto"


Ou encore récupérer le contenu d'une cellule :

Worksheets(Sheets.Count).Name = Sheets("LaFeuilleQueTuVeux").Range("A1")

Bon Appétit
@+Thierry

 

[@+Thierry]

Oups, bonjour Pascal

Et boum !! petit téléscopage, sorry

J'en profite pour te saluer

@+Thierry

 

[Pascal76]

De rien

Même solution mais vu que j'ai pu voir le fichier je lui ai fait avec l'adaptation ce qui donne :

Sub NouvelleFeuille()

Dim x As Integer

For x = 12 To Sheets("Les Parcelles").Range("A12").End(xlDown).Row
Sheets("Cahier d'épandage").Copy Before:=Sheets(1)
ActiveSheet.Name = "Cahier d'épandage - " & Sheets("Les Parcelles").Range("A" & x)
Next

End Sub

Bonne journée et bosses bien

Pascal

 

[Cantalou15]

MERCI à tous les deux

Pascal pour l'avoir fait, Thierry pour l'avoir expliqué !

C'est génial ce forum: LA réponse qu'il faut en 2 temps 3 mouvements

Quel temps gagné pour moi en quelques minutes !

MERCI beaucoup !

 

[CBernardT]

Bonjour Cantalou15, @+Thierry, Pascal

J'arrive à la bourre mais proverbe du jour "Il vaut mieux péter en société que mourir seul !".

Cordialement

CBernardT

 

[Cantalou15]

Bonjour,

je reviens à la charge avec ma macro...

désolé...

Y-a un problème: le viens de faire un essai avec une liste de parcelles plus importante et il semble que sa bloque vers la 35ème (ou 38ème ?) feuille ajoutée

"Erreur d'execution 1004:

La méthode Copy de la classe Worksheet a échoué."

Quel est le problème ?

Merci !

 

[Pascal76]

Bonjour

Et oui ce problème a déjà été evoqué sur le forum. Il apparait qu'au bout d'un certainnombre de copie d'une feuille modèle la macro plante. Pourquoi ??????

Je te mets en référence un fil où on parlait de ce problème et d'une alternative que j'avais évoqué.

Lien supprimé

Bon courage

Pascal