massquer les feuilles automatiquement (RESOLUT)

[chaelie2015]

BONJOUR FORUM
Je joint mon fichier avec toutes les codes pour éviter toutes ambigüité (des codes , des variables, etc…..), (merci 00, PAF , jcgl ET LES AUTRES)
Mon souci est comment masquer automatiquement les feuilles qui ont été crées par la colonne A de la feuille"KDT-TVX"et le re afficher avec le combobox
SALUTATIONS

 

[DoubleZero]

Re : massquer les feuilles automatiquement

Re-bonjour, chaelie2015, le Forum,

Je ne parviens pas à comprendre l'utilité de la macro "Sub Eclairage".

Un essai en pièce jointe.

A bientôt

 

[chaelie2015]

Re : massquer les feuilles automatiquement

Re Bonjour 00
SUPER c'est nickel, un grand merci doublezéro, PBLM résolut
Salutations

 

[DoubleZero]

Re : massquer les feuilles automatiquement

Re-bonjour,

Merci, chaelie2015 , pour ce retour.

Je reste sur ma faim quant à :

Je ne parviens pas à comprendre l'utilité de la macro "Sub Eclairage".

A bientôt

 

[chaelie2015]

Re : massquer les feuilles automatiquement

Re-bonjour, chaelie2015, le Forum,

Je ne parviens pas à comprendre l'utilité de la macro "Sub Eclairage".

Un essai en pièce jointe.

A bientôt

Re
d'autre question ,pourquoi les feuilles crées ne sont pas protegée comme la feuille Type?
concernant la fonction "Sub Eclairage". je l'ai trouvé sur ce forum et je l'ai utilisée
SALUTATIONS

 

[DoubleZero]

Re : massquer les feuilles automatiquement

Bonjour, chaelie2015, le Forum,

... concernant la fonction "Sub Eclairage". je l'ai trouvé sur ce forum et je l'ai utilisée...

Certes, mais je n'en comprends toujours pas l'utilité.

... pourquoi les feuilles crées ne sont pas protegée comme la feuille Type?..

Il suffit de remplacer ceci :

        Sheets("TYPE").Copy After:=Sheets(Sheets.Count)
        On Error GoTo fin
        ActiveSheet.Name = c.Value

par cela :

        Sheets("TYPE").Copy After:=Sheets(Sheets.Count)
        On Error GoTo fin
        With ActiveSheet: .Name = c.Value: .Protect: End With

A bientôt

 

[chaelie2015]

Re : massquer les feuilles automatiquement (RESOLUT)

Bonjour 00
Merci d'avoir repondu a mon souci, et si je veux mettre un MDP "CHARLIE"

With ActiveSheet: .Name = c.Value: .Protect "CHARLIE": End With

est ce code est juste ?
Salutations

 

[DoubleZero]

Re : massquer les feuilles automatiquement (RESOLUT)

Re-bonjour,

Oui, le code est juste.

... Et je demeure sur ma faim quant à...

l'utilité de la macro "Sub Eclairage".

A bientôt