Contourner le Bug dans la création de nouvelles feuilles

[Cantalou15]

Bonjour,

toujours ennuyé avec mon problème de duplication de feuilles comme dans mon fil d'il y a quelques jours,....
http://www.excel-downloads.com/html/French/forum/messages/1_146003_146003.htm

Du fait du Bug constaté après la trentaine de nouvelles feuilles, ...

... je tente de faire, non plus des "Copy" mais plutôt des "Sheets.Add" (suggestion de Pascal76) mais je voudrais savoir comment faire pour ajouter un nombre variable de nouvelles feuilles (lié au nombre de lignes pleines dans la feuilles "les Parcelles") puis de copier et coller le contenu (avec formules et mise en forme) de la feuille "cahier d'épandage" dans chaque nouvelle feuille.

Après il faudra aussi que je renomme chacune de ces feuilles avec le contenu de la cellule qui va bien dans la feuille "les parcelles" !...


Merci une nouvelle fois de votre aide!

 

[Temjeh]

Bonjour Cantaloul5

Malheureusement je ne peut pas t'aider mais j'ia fais il y a quelques jours une macro qui fait des feuils(factures) qui fonctionne à merveille!!!!!!!!
Ptêtre ca peut t'inspirer...

Sub NouvelleFeuille()
Dim Nom_Fichier
Debut:
Nom_Fichier = Application.InputBox(prompt:="*Entrez le nom de la nouvelle facture*")
If Nom_Fichier = "Faux" Then Exit Sub
If Nom_Fichier = "" Then
MsgBox "Entrer un nom"
GoTo Debut
Else
For Each ws In Worksheets
If ws.Name = Nom_Fichier Then
MsgBox "facture déjà existante"
GoTo Debut
End If
Next
Sheets("Model").Copy After:=Sheets(1)
ActiveSheet.Move After:=Sheets((Sheets.Count) - 1)
ActiveSheet.Name = Nom_Fichier
Range("G9") = ActiveSheet.Name
Range("B6").Select
End If
End Sub

A++

Temjeh

 

[FabriceLeManuzien]

Bonsoir,



Ayant subi ce bug lors de création de feuilles, je l'ai contourné en créant des feuilles vierges, en les nommant par exemple F01, F02, F03 ...., et en les masquant.

Au lieu d'ajouter une feuille par duplication d'une feuille modèle, j'utilise ces feuilles en les renommant, les rendant visibles au fur et à mesure des besoins et en y copiant les cellules de la feuille modèle.


Pas sûr d'être clair dans mes explications.

Fabrice

 

[Cantalou15]

Bonjour,

Cette "application" sera mise en ligne pour être téléchargée via Internet, c'est pourquoi j'étais un peu réticent pour créer d'inutiles feuilles "vierges" dans mon classeur, mais en le zippant je peut contourner le problème du poids du fichier : alors c'est d'accord je tente cette solution, ....

Mais comme je débute en VB peux-tu m'aider (ou une autre âme charitable) pour créer la macro qui me permettra :
-> de renommer autant de feuilles qu'il y a de lignes dans mon tableau "Parcelles" (dans la limite de 100) avec le nom de cette parcelle
et
-> d'afficher ces "nouvelles" feuilles

Merci de votre aide!
et bonne journée

 

[FabriceLeManuzien]

Bonsoir,


Je pars tôt et rentre tard, je m'y mets, mais faudra patienter un peu !

@+

Fabrice

 

[FabriceLeManuzien]

Bonsoir,


Un premier jet de ce qu'il est possible faire est prêt.

Pour aller plus loin, il faut plus de détails quant à l'utilisation de cet outil.

Fichier zippé = 152 ko donc envoi par mail obligatoire (les 100 feuilles sont créées).

Merci de me communiquer une adresse Email (réponse sur le forum ou sur ma BAL).


Fabrice