ajouter feuilles et changer noms onglet

PascalXLD

XLDnaute Barbatruc

• 14 Août 2008

• #2

Re : ajouter feuilles et changer noms onglet

Bonjour

essaies

For Each Cell In plage
Sheets.Add After:=Sheets(n)
' les feuilles sont ajoutées, mais non pas repris les noms de ("C2:C6")
ActiveSheet.Name = Cell.Value 'erreur exécution 1004

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 14 Août 2008

• #3

Re : ajouter feuilles et changer noms onglet

RE

Sinon je rajouterai que je n'utiliserais pas Cell comme nom de variable
Ce mot est utilisé par VBA

Utilises plutot un truc du genre

dim c as range
ou
dim MaCellule as range

 

Vote positif 0 Vote négatif

excalibur

XLDnaute Impliqué

• 14 Août 2008

• #4

Re : ajouter feuilles et changer noms onglet

bonjour news pascal le forum une macro a adapter

Sub to_test()
Dim C As Range, plage As Range
Sheets("data").Activate
Set plage = Range("C2:C6")
For Each C In plage
Sheets.Add(After:=Worksheets(Worksheets.Count)).Name= C
Next C
Sheets("data").Activate
End Sub

 

Dernière édition: 14 Août 2008

Vote positif 0 Vote négatif

N

news

XLDnaute Impliqué

• 14 Août 2008

• #5

Re : ajouter feuilles et changer noms onglet

Bonjour à tous du forum,

merci PascalXLD et excalibur pour vos réponses,

j'ai ajouté vos astuces à la macro et en effectuant la macro,
les feuilles sont bien ajoutées avec les noms figurant sous C2:C6,

comme ce n'était qu'un exemple de C2:C6,
Set plage = Range("C2:C6") ' quantité de 5 feuilles

comment inclure que de toutes les lignes complétés dans C:C y sont ajoutées des nouvelles feuilles,

Set plage = Range("C" & Range("C65536").End(xlUp).Row ' ??

 

Dernière édition: 14 Août 2008

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 14 Août 2008

• #6

Re : ajouter feuilles et changer noms onglet

RE

presque cela

Set plage = Range("C2:C" & Range("C65536").End(xlUp).Row)

 

Vote positif 0 Vote négatif

N

news

XLDnaute Impliqué

• 14 Août 2008

• #7

Re : ajouter feuilles et changer noms onglet

Bonjour à tous du forum,

merci PascalXLD, pour réponse et l'astuce donnée,
toutes les lignes complétées sont reprises de C:C 🙂

en effectuant différents tests, les feuilles sont ajoutées,

sauf s'il y a un nom trop long dans colonne C:C, alors la macro s'arrête et les autres feuilles ne sont plus ajoutées.
Qu'elle est le maximum de taille de caractères qu'un onglet accepte ?
Comment résoudre ?, est-ce d'y ajouter une fonction aux lignes de C:C qu'on peut ajouter que tant de caractères ?

autre erreur est affichée si on a effectué la macro et puis on relance la macro de nouveau pour ajouter d'autres feuilles des nouvelles lignes mises sous C:C,

l'erreur suivante est affichée: 'impossible de renommer une feuille comme une autre'
Comment y tenir compte ?
If Err.Number <> 0 Then 'si la feuille n'existe pas
Sheets.Add.Name = "Feuil1" 'va créer feuille nommée "Feuil1"

'

 

Pièces jointes

• data.xls

  42.5 KB · Affichages: 69
• data.xls

  42.5 KB · Affichages: 73
• data.xls

  42.5 KB · Affichages: 73

Dernière édition: 14 Août 2008

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 14 Août 2008

• #8

Re : ajouter feuilles et changer noms onglet

Re

Voilà ton fichier modifié

 

Pièces jointes

• data-2.zip

  12.5 KB · Affichages: 125

Vote positif 0 Vote négatif

N

news

XLDnaute Impliqué

• 14 Août 2008

• #9

Re : ajouter feuilles et changer noms onglet

Bonjour à tous du forum,

super !!, fonctionne très bien,🙂

merci PascalXLD pour tes ajoutes, modifications de macro,

salutations,

 

Vote positif 0 Vote négatif

N

news

XLDnaute Impliqué

• 18 Août 2008

• #10

Re : ajouter feuilles et changer noms onglet

Bonsoir à tous du forum,

macro: nommer des feuilles, ajouter formule B2:B

je remets ce fil, comme j'ai avancé de développer la macro, mais ayant des bug, macro ne fonctionne pas entièrement.
J'ai ajouté des nouveaux critères de nommer les feuilles, voir sous : 'http://www.excel-downloads.com/forum/102317-2-variables-donnent-nom-feuille.html

 

Dernière édition: 20 Août 2008

Vote positif 0 Vote négatif