massquer les feuilles automatiquement (RESOLUT)

chaelie2015 · 27 Juin 2015

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 · 27 Juin 2015

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 · 27 Juin 2015

Re : massquer les feuilles automatiquement

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

DoubleZero · 27 Juin 2015

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 · 27 Juin 2015

Re : massquer les feuilles automatiquement

DoubleZero à dit:
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 · 28 Juin 2015

Re : massquer les feuilles automatiquement

Bonjour, chaelie2015, le Forum,

chaelie2015 à dit:
... 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é.

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

Il suffit de remplacer ceci :

Code:

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

par cela :

Code:

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

A bientôt 🙂

chaelie2015 · 28 Juin 2015

Re : massquer les feuilles automatiquement (RESOLUT)

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

Code:

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

est ce code est juste ?
Salutations

DoubleZero · 28 Juin 2015

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 🙂

massquer les feuilles automatiquement (RESOLUT)

chaelie2015

XLDnaute Accro

Pièces jointes

DoubleZero

XLDnaute Barbatruc

Pièces jointes

chaelie2015

XLDnaute Accro

DoubleZero

XLDnaute Barbatruc

chaelie2015

XLDnaute Accro

DoubleZero

XLDnaute Barbatruc

chaelie2015

XLDnaute Accro

DoubleZero

XLDnaute Barbatruc

Discussions similaires

massquer les feuilles automatiquement (RESOLUT)

XLDnaute Accro

Pièces jointes

XLDnaute Barbatruc

Pièces jointes

XLDnaute Accro

XLDnaute Barbatruc

XLDnaute Accro

XLDnaute Barbatruc

XLDnaute Accro

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency