XL 2013 Ouvrir / Supprimer une feuille masqué

kabamel · 4 Décembre 2015

Salut à tous
J'ai un classeur contenant 3 feuilles "Feuil1"; "Contractuels"; "Médiateur", un macro dans "Feuil1" et une module
Les feuilles "Contractuels" et "Médiateur" sont cachés.
Dans la Feuil1, je voudrais en "C1" quand je mets "kaba" les feuilles cachés soient visibles et si je mets "mel" les feuilles cachés soient supprimés et après suppression quand je remet encore ces mêmes valeurs qu'il n'y ai pas de message d'erreur. je joins un fichier exemple. Pour plus d'info, je suis à vous.

Bougla972 · 4 Décembre 2015

Re : Ouvrir / Supprimer une feuille masqué

Bonjour Kadamel,

Si j'ai bien compris ta demande...

A+ Bougla

kabamel · 4 Décembre 2015

Re : Ouvrir / Supprimer une feuille masqué

Super ! Oups
il y a un code dans Thisworkbook,
A la fermeture si les feuilles existes et visibles alors on les masques et on enregistre sinon on enregistre (Dans le cas où les feuilles ont étés supprimer) et on quitte. Je vous mets le code

Code:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
        For i = 1 To Worksheets.Count
            If Worksheets(i).Name = "Contractuels" And Worksheets(i).Name = "Médiateur" Then
                Sheets("Contractuels").Visible = False
                Sheets("Médiateur").Visible = False
                ActiveWorkbook.Save
            Else
                ActiveWorkbook.Save
            End If
        Next i
End Sub

Bougla972 · 4 Décembre 2015

Re : Ouvrir / Supprimer une feuille masqué

Re Kadamel,

En retour:

A+ Bougla

kabamel · 4 Décembre 2015

Re : Ouvrir / Supprimer une feuille masqué

Dès que j'ouvres les feuilles sont toujours visibles !
Je voudrais qu'en fermant le classeur, les deux feuilles soient masqués maintenant si les deux feuilles n'existe plus on enregistre et on quitte. Ce code ne réagit pas d'abord.

Code:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
        For i = 1 To Worksheets.Count
            On Error GoTo ManqueSht
            If Worksheets(i).Name = "Contractuels" And Worksheets(i).Name = "Médiateur" Then
                Sheets("Contractuels").Visible = False
                Sheets("Médiateur").Visible = False
                ActiveWorkbook.Save
            Else
ManqueSht:
                ActiveWorkbook.Save
                On Error GoTo 0
            End If
        Next i
End Sub

Bougla972 · 4 Décembre 2015

Re : Ouvrir / Supprimer une feuille masqué

Kadamel,

Ci-joint le fichier corrigé.

A+ Bougla

kabamel · 4 Décembre 2015

Re : Ouvrir / Supprimer une feuille masqué

Parfait
Il y a toujours des erreurs qui glissent dans le macro de la Feuil1. Une fois les feuilles supprimées quand on met "kaba" ou "mel" dans "C1" le message d'erreurs apparait. Comment palier à ça ?

Bougla972 · 4 Décembre 2015

Re : Ouvrir / Supprimer une feuille masqué

Kadamel,

Ultime correction je pense...😀

A+ Bougla

kabamel · 7 Décembre 2015

Re : Ouvrir / Supprimer une feuille masqué

Slt, à tous
Ok je m'en tiens à ça sinon l'erreur persiste toujours.
Vos aides m'ont étés très précieuses. Merci

XL 2013 Ouvrir / Supprimer une feuille masqué

kabamel

XLDnaute Occasionnel

Pièces jointes

Bougla972

XLDnaute Occasionnel

Pièces jointes

kabamel

XLDnaute Occasionnel

Bougla972

XLDnaute Occasionnel

Pièces jointes

kabamel

XLDnaute Occasionnel

Bougla972

XLDnaute Occasionnel

Pièces jointes

kabamel

XLDnaute Occasionnel

Bougla972

XLDnaute Occasionnel

Pièces jointes

kabamel

XLDnaute Occasionnel

Discussions similaires

XL 2013 Ouvrir / Supprimer une feuille masqué

XLDnaute Occasionnel

Pièces jointes

XLDnaute Occasionnel

Pièces jointes

XLDnaute Occasionnel

XLDnaute Occasionnel

Pièces jointes

XLDnaute Occasionnel

XLDnaute Occasionnel

Pièces jointes

XLDnaute Occasionnel

XLDnaute Occasionnel

Pièces jointes

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency