creation importante de feuille

A

angoul

XLDnaute Impliqué

• 2 Décembre 2009

• #16

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

 

Dernière édition: 2 Décembre 2009

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 2 Décembre 2009

• #17

Re : creation importante de feuille

Re,

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

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

Cliquez pour agrandir...

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

@+

 

Vote positif 0 Vote négatif

A

angoul

XLDnaute Impliqué

• 3 Décembre 2009

• #18

Re : creation importante de feuille

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 3 Décembre 2009

• #19

Re : creation importante de feuille

Bonjour,

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

Code:

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

@+

 

Vote positif 0 Vote négatif

A

angoul

XLDnaute Impliqué

• 3 Décembre 2009

• #20

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

 

Vote positif 0 Vote négatif

A

angoul

XLDnaute Impliqué

• 4 Décembre 2009

• #21

Re : creation importante de feuille

dommage que personne ne puisse m'aider

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 4 Décembre 2009

• #22

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

 

Vote positif 0 Vote négatif

A

angoul

XLDnaute Impliqué

• 4 Décembre 2009

• #23

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

 

Dernière édition: 4 Décembre 2009

Vote positif 0 Vote négatif