ajouter feuilles et changer noms onglet

[news]

Bonjour à tous du forum,

je m'entraine de nouveau avec Excel, pour développer des fonctions, des macro, mais souvent les macro ne fonctionnent pas,

n'arrive pas à changer les noms des onglets

Sub to_test()
' dans colonne C2:C6 que des nouvelles feuilles sont ajoutées et ont repris les noms de C2:C6

Dim plage As Range
Dim Cell As Range
Dim n As Long

Sheets("data").Activate
n = Sheets.Count
Set plage = Range("C2:C6")
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 = Sheets("data").Range(plage).Value 'erreur exécution 1004
Next Cell
End Sub

 

[PascalXLD]

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

 

[PascalXLD]

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

 

[excalibur]

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

 

[news]

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 ' ??

 

[PascalXLD]

Re : ajouter feuilles et changer noms onglet

RE

presque cela

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

 

[news]

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"

'

 

[PascalXLD]

Re : ajouter feuilles et changer noms onglet

Re

Voilà ton fichier modifié

 

[news]

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,

 

[news]

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