creation importante de feuille

[angoul]

Bonsoir

Je revient a vous par rapport a cette discution : https://www.excel-downloads.com/threads/nommer-plusieur-feuille-a-partir-dune-feuille.119973/

J'ai fait ce que dit nos amis et cela fonctionne super bien, mais maintenant j'ai une question : j'ai une feuille avec plein de renseignements et cette feuille je veut la dupliquer a 50 exemplaires grace la feuille se nomme "categorie"

voila le code :
Sub CréerFeuilles()
'
Dim DerniereLigne As Long
Dim NombreDeFeuilles
Dim i As Integer
'
With Sheets("Base")

NombreDeFeuilles = Application.WorksheetFunction.CountA(.Range("A:A"))

Sheets.Add after:=Sheets(Sheets.Count), Count:=NombreDeFeuilles

For i = 2 To NombreDeFeuilles + 1
Sheets(i).Name = .Cells(i, 1)
Next i

.Activate

End With

End Sub

merci de votre aide

 

[angoul]

Re : creation importante de feuille

merci mais helas cela fonctionne pas cela met de la couleur sur ma feuille active
cela creer pas mes feuilles avec les couleurs des onglets

 

[Pierrot93]

Re : creation importante de feuille

Re,

normal, c'est bien ce que je disais...

peut être comme ceci, s'applique à la feuille active :

ce code doit être adapté pour insertion dans ton projet.

@+

 

[angoul]

Re : creation importante de feuille

j'ai essayer plusieur truc, mais helas j'y arrive pas, je suis trop nul. sniff

 

[Pierrot93]

Re : creation importante de feuille

Bonjour,

peut être ainsi, si l'on considère le dernier code que tu nous as fourni :

Dim i As Byte, j As Byte
For i = 1 To Sheets("catégorie").Range("A5000").End(xlUp).Row
    Sheets("feuille_catégorie").Copy after:=Sheets(Sheets.Count)
    ActiveSheet.Name = .Cells(i, 1)
    For j = 1 To 8
        Columns(j).Interior.ColorIndex = j + 5
    Next j
Next i

@+

 

[angoul]

Re : creation importante de feuille

helas cela ne fonctionne pas
pour etre plus clair
j'aimerai que sur la colonne A cela creer les onglets de la ligne 1 à 10, avec une couleur jaune claire
de la ligne 11 à 20 une couleur vert, 21 à 30 une couleur orange , etc...
et pareil pour la colonne B

voila je sait pas si c'est clair?

merci d'avance

 

[angoul]

Re : creation importante de feuille

dommage que personne ne puisse m'aider

 

[kjin]

Re : creation importante de feuille

Bonjour,
A mon sens c'est que personne ne comprend, moi le premier
Donc un petit effort d'explication et tout devrait s'arranger
A+
kjin

 

[angoul]

Re : creation importante de feuille

bonjours,

alors voila j'essaye d'etre plus clair
d'apres la formule :
Sub CopyFeuille()
With Sheets("catégorie")
For i = 1 To .Range("A5000").End(xlUp).Row
Sheets("feuille_catégorie").Copy after:=Sheets(Sheets.Count)
ActiveSheet.Name = .Cells(i, 1)
Sheets("Feuil1").Tab.ColorIndex = 3

cela creer a partir de ma feuille "categorie" des feuilles suivant le modele " feuilles_catégorie"
jusque la la seul colonne ou se trouver les informations etait la colonne A et mettait une couleur unique dans les onglets generer.
Maintenant les informations se trouve sur 2 feuilles quie se nommes (feuilles catégorie M) et feuilles Catégorie F) et sur les Colonnes A-B-C-D-E-F-G-H-I-J-K
et j'aimerai que par rapport au colonne une couleur d'onglet lui soit attribuer.
colonne A onglet jaune
colonne B onglet orange
Colonne C onglet vert
etc....

voila j'espere que c'est clair
cordialement