Autres Effacer données de certaines cellules si la feuille passe de visible à masquée

P

Panda79360

XLDnaute Nouveau
Bonjour,

Je voudrais effacer les données de certaines cellules d'une feuille lorsque que la feuille passe de visible à masquée.

Pouvez vous m'orienter sur le code à appliquer svp ?
j'avais pensé à cela mais ca ne fonctionne pas :

If Sheets("Feuil2").Visible = False Then
Range("D2").MergeArea.ClearContents
Range("H2").MergeArea.ClearContents
End If

Mais ca ne fonctionne pas



Merci par avance
 
Solution
TooFatBoy
Une proposition de modification de ton code :
VB: 
Private Sub Worksheet_Change(ByVal Target As Range)
'
    If Target.Address <> "$D$30" Then Exit Sub

    Application.ScreenUpdating = False
    ActiveWorkbook.Unprotect

    Select Case Range("D30").Value

    Case ""

        Sheets("Feuil1").Visible = True
'        Sheets("Feuil1").Range("D2,H2,H4,D4,D6,F8,H8,C9,F11,H11,C12,F14,C15,C19,E19,G19,I19,C20,C24,E24,H24,C25,G27,C28,F30,H30,C32,E32") = ""
'        Sheets("Feuil1").Range("C34,E34,G34,C35,H37,H40,C38,C41,C44,H46,E48,G48,I48,G50,I50,G52,I52,G54,I54,C56,F56,C58,F58,C60,B49") = ""
        EffacerUneFeuille ("Feuil1")

'        Sheets("Feuil2").Visible = True
'...
Trier par date Trier par votes
TooFatBoy

TooFatBoy

XLDnaute Barbatruc
C o u c o u . . .

MonAvatarXLD.jpg
 
Vote positif 0 Vote négatif
Phil69970

Phil69970

XLDnaute Barbatruc
Bonjour @Panda79360 et TFB

@Panda79360
Une remarque :
Il serait correcte de répondre à TFB sur les posts précédents que tu as zappé

Pour ce qui concerne ta question elle me semble mal tournée je te propose 2 versions

Dans un module :
Tu ne sais pas si ta feuille est masquée
VB: 
Sub test()
If Sheets("Feuil2").Visible = False Then    'Si la feuille est masquée
    Sheets("Feuil2").Visible = True         'Je rends visible la feuille
    Sheets("Feuil2").Range("D2").MergeArea.ClearContents 'J'efface
    Sheets("Feuil2").Range("H2").MergeArea.ClearContents 'J'efface
    Sheets("Feuil2").Visible = False        'Je masque la feuille
Else                                        'La feuille est visible
    Sheets("Feuil2").Range("D2").MergeArea.ClearContents 'J'efface
    Sheets("Feuil2").Range("H2").MergeArea.ClearContents 'J'efface
    Sheets("Feuil2").Visible = False        'Je masque la feuille
End If
End Sub

ou bien si tu sais que ta feuille est visible et que tu veux effacer tes cellules avant de la masquer

VB: 
Sub Masquage()
Sheets("Feuil2").Range("D2").MergeArea.ClearContents 'J'efface
Sheets("Feuil2").Range("H2").MergeArea.ClearContents 'J'efface
Sheets("Feuil2").Visible = False        'Je masque la feuille
End Sub

Merci de ton retour
 
Vote positif 0 Vote négatif
P

Panda79360

XLDnaute Nouveau
Bonjour,

Je viens de répondre à TFB, veuillez m'excuser je suis nouveau sur le forum et tellement prise par ce fichu fichier et étant presque niveau 0 en VBa je passe des heures et des heures sur internet pour trouver les formules que j'essaie d'adapter :(

Merci pour ta réponse @Phil69970 mais je suis nul j'arrive pas,

Sans doute que ma question est mal tournée,

Du coup j'ai essayé mais ca ne fonctionne pas, et entre temps j'ai changé un critère,

Je vais essayer de m'exprimer clairement :

Ma feuille passe de visible à maquée automatiquement selon la donnée rentrée dans un autre onglet,
J'avais rentré une formule qui fonctionnait en test sur 2 onglets mais ayant 30 onglets, ca me met que la procédure est trop grande, peut-être on peut la condenser mais je n'arrive pas à trouver comment :


Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
ActiveWorkbook.Unprotect
Select Case Range("D30").Value
Case Is = ""
Sheets("Feuil1").Visible = True
Sheets("Feuil1").Range("D2,H2,H4,D4,D6,F8,H8,C9,F11,H11,C12,F14,C15,C19,E19,G19,I19,C20,C24,E24,H24,C25,G27,C28,F30,H30,C32,E32") = ""
Sheets("Feuil1").Range("C34,E34,G34,C35,H37,H40,C38,C41,C44,H46,E48,G48,I48,G50,I50,G52,I52,G54,I54,C56,F56,C58,F58,C60,B49") = ""
Sheets("Feuil2").Visible = True
Sheets("Feuil2").Range("D2,H2,H4,D4,D6,F8,H8,C9,F11,H11,C12,F14,C15,C19,E19,G19,I19,C20,C24,E24,H24,C25,G27,C28,F30,H30,C32,E32") = ""
Sheets("Feuil2").Range("C34,E34,G34,C35,H37,H40,C38,C41,C44,H46,E48,G48,I48,G50,I50,G52,I52,G54,I54,C56,F56,C58,F58,C60,B49") = ""
Sheets("Feuil2").Visible = False
Sheets("Feuil3").Visible = True
Sheets("Feuil3").Range("D2,H2,H4,D4,D6,F8,H8,C9,F11,H11,C12,F14,C15,C19,E19,G19,I19,C20,C24,E24,H24,C25,G27,C28,F30,H30,C32,E32") = ""
Sheets("RAPPORT DETAILLE (3)").Range("C34,E34,G34,C35,H37,H40,C38,C41,C44,H46,E48,G48,I48,G50,I50,G52,I52,G54,I54,C56,F56,C58,F58,C60,B49") = ""
Sheets("RAPPORT DETAILLE (3)").Visible = False
Case Is = "1"
Sheets("Feuil1").Visible = True
Sheets("Feuil2").Visible = True
Sheets("Feuil2").Range("D2,H2,H4,D4,D6,F8,H8,C9,F11,H11,C12,F14,C15,C19,E19,G19,I19,C20,C24,E24,H24,C25,G27,C28,F30,H30,C32,E32") = ""
Sheets("Feuil2").Range("C34,E34,G34,C35,H37,H40,C38,C41,C44,H46,E48,G48,I48,G50,I50,G52,I52,G54,I54,C56,F56,C58,F58,C60,B49") = ""
Sheets("Feuil2").Visible = False
Sheets("Feuil3").Visible = True
Sheets("Feuil3").Range("D2,H2,H4,D4,D6,F8,H8,C9,F11,H11,C12,F14,C15,C19,E19,G19,I19,C20,C24,E24,H24,C25,G27,C28,F30,H30,C32,E32") = ""
Sheets("Feuil3").Range("C34,E34,G34,C35,H37,H40,C38,C41,C44,H46,E48,G48,I48,G50,I50,G52,I52,G54,I54,C56,F56,C58,F58,C60,B49") = ""
Sheets("Feuil3").Visible = False
Case Is = "2"
Sheets("Feuil1").Visible = True
Sheets("Feuil2").Visible = True
Sheets("Feuil3").Visible = False
Sheets("Feuil3").Range("D2,H2,H4,D4,D6,F8,H8,C9,F11,H11,C12,F14,C15,C19,E19,G19,I19,C20,C24,E24,H24,C25,G27,C28,F30,H30,C32,E32") = ""
Sheets("Feuil3").Range("C34,E34,G34,C35,H37,H40,C38,C41,C44,H46,E48,G48,I48,G50,I50,G52,I52,G54,I54,C56,F56,C58,F58,C60,B49") = ""
Sheets("Feuil3").Visible = False
ActiveWorkbook.Protect
Application.ScreenUpdating = True
End Select
End Sub


Merci par avance
 
Vote positif 0 Vote négatif
TooFatBoy

TooFatBoy

XLDnaute Barbatruc
Tu peux entourer tes lignes de code avec la balise [ code = VB ] et [ / code ] (sans les espaces)
Cela rendra ton code VBA beaucoup plus lisible sur le forum. ;)

Dans tes macros, n'hésite pas à utiliser l'indentation, ça te permettra de mieux voir tes erreurs.

VB: 
Private Sub Worksheet_Change(ByVal Target As Range)
'
    Application.ScreenUpdating = False
    ActiveWorkbook.Unprotect

    Select Case Range("D30").Value

    Case Is = ""
        Sheets("Feuil1").Visible = True
       Sheets("Feuil1").Range("D2,H2,H4,D4,D6,F8,H8,C9,F11,H11,C12,F14,C15,C19,E19,G19,I19,C20,C24,E24,H24,C25,G27,C28,F30,H30,C32,E32") = ""
       Sheets("Feuil1").Range("C34,E34,G34,C35,H37,H40,C38,C41,C44,H46,E48,G48,I48,G50,I50,G52,I52,G54,I54,C56,F56,C58,F58,C60,B49") = ""
       Sheets("Feuil2").Visible = True
       Sheets("Feuil2").Range("D2,H2,H4,D4,D6,F8,H8,C9,F11,H11,C12,F14,C15,C19,E19,G19,I19,C20,C24,E24,H24,C25,G27,C28,F30,H30,C32,E32") = ""
       Sheets("Feuil2").Range("C34,E34,G34,C35,H37,H40,C38,C41,C44,H46,E48,G48,I48,G50,I50,G52,I52,G54,I54,C56,F56,C58,F58,C60,B49") = ""
       Sheets("Feuil2").Visible = False
       Sheets("Feuil3").Visible = True
       Sheets("Feuil3").Range("D2,H2,H4,D4,D6,F8,H8,C9,F11,H11,C12,F14,C15,C19,E19,G19,I19,C20,C24,E24,H24,C25,G27,C28,F30,H30,C32,E32") = ""
       Sheets("RAPPORT DETAILLE (3)").Range("C34,E34,G34,C35,H37,H40,C38,C41,C44,H46,E48,G48,I48,G50,I50,G52,I52,G54,I54,C56,F56,C58,F58,C60,B49") = ""
       Sheets("RAPPORT DETAILLE (3)").Visible = False

    Case Is = "1"
       Sheets("Feuil1").Visible = True
       Sheets("Feuil2").Visible = True
       Sheets("Feuil2").Range("D2,H2,H4,D4,D6,F8,H8,C9,F11,H11,C12,F14,C15,C19,E19,G19,I19,C20,C24,E24,H24,C25,G27,C28,F30,H30,C32,E32") = ""
       Sheets("Feuil2").Range("C34,E34,G34,C35,H37,H40,C38,C41,C44,H46,E48,G48,I48,G50,I50,G52,I52,G54,I54,C56,F56,C58,F58,C60,B49") = ""
       Sheets("Feuil2").Visible = False
       Sheets("Feuil3").Visible = True
       Sheets("Feuil3").Range("D2,H2,H4,D4,D6,F8,H8,C9,F11,H11,C12,F14,C15,C19,E19,G19,I19,C20,C24,E24,H24,C25,G27,C28,F30,H30,C32,E32") = ""
       Sheets("Feuil3").Range("C34,E34,G34,C35,H37,H40,C38,C41,C44,H46,E48,G48,I48,G50,I50,G52,I52,G54,I54,C56,F56,C58,F58,C60,B49") = ""
       Sheets("Feuil3").Visible = False

    Case Is = "2"
       Sheets("Feuil1").Visible = True
       Sheets("Feuil2").Visible = True
       Sheets("Feuil3").Visible = False
       Sheets("Feuil3").Range("D2,H2,H4,D4,D6,F8,H8,C9,F11,H11,C12,F14,C15,C19,E19,G19,I19,C20,C24,E24,H24,C25,G27,C28,F30,H30,C32,E32") = ""
       Sheets("Feuil3").Range("C34,E34,G34,C35,H37,H40,C38,C41,C44,H46,E48,G48,I48,G50,I50,G52,I52,G54,I54,C56,F56,C58,F58,C60,B49") = ""
       Sheets("Feuil3").Visible = False
       ActiveWorkbook.Protect
       Application.ScreenUpdating = True

    End Select

End Sub
 
Dernière édition:
Vote positif 0 Vote négatif
TooFatBoy

TooFatBoy

XLDnaute Barbatruc
Une proposition de modification de ton code :
VB: 
Private Sub Worksheet_Change(ByVal Target As Range)
'
    If Target.Address <> "$D$30" Then Exit Sub

    Application.ScreenUpdating = False
    ActiveWorkbook.Unprotect

    Select Case Range("D30").Value

    Case ""

        Sheets("Feuil1").Visible = True
'        Sheets("Feuil1").Range("D2,H2,H4,D4,D6,F8,H8,C9,F11,H11,C12,F14,C15,C19,E19,G19,I19,C20,C24,E24,H24,C25,G27,C28,F30,H30,C32,E32") = ""
'        Sheets("Feuil1").Range("C34,E34,G34,C35,H37,H40,C38,C41,C44,H46,E48,G48,I48,G50,I50,G52,I52,G54,I54,C56,F56,C58,F58,C60,B49") = ""
        EffacerUneFeuille ("Feuil1")

'        Sheets("Feuil2").Visible = True
'        Sheets("Feuil2").Range("D2,H2,H4,D4,D6,F8,H8,C9,F11,H11,C12,F14,C15,C19,E19,G19,I19,C20,C24,E24,H24,C25,G27,C28,F30,H30,C32,E32") = ""
'        Sheets("Feuil2").Range("C34,E34,G34,C35,H37,H40,C38,C41,C44,H46,E48,G48,I48,G50,I50,G52,I52,G54,I54,C56,F56,C58,F58,C60,B49") = ""
        EffacerUneFeuille ("Feuil2")
        Sheets("Feuil2").Visible = False

'        Sheets("Feuil3").Visible = True
'        Sheets("Feuil3").Range("D2,H2,H4,D4,D6,F8,H8,C9,F11,H11,C12,F14,C15,C19,E19,G19,I19,C20,C24,E24,H24,C25,G27,C28,F30,H30,C32,E32") = ""
'        Sheets("Feuil3").Range("C34,E34,G34,C35,H37,H40,C38,C41,C44,H46,E48,G48,I48,G50,I50,G52,I52,G54,I54,C56,F56,C58,F58,C60,B49") = ""
        EffacerUneFeuille ("Feuil3")
        Sheets("Feuil3").Visible = False

    Case "1"

        Sheets("Feuil1").Visible = True

'        Sheets("Feuil2").Visible = True
'        Sheets("Feuil2").Range("D2,H2,H4,D4,D6,F8,H8,C9,F11,H11,C12,F14,C15,C19,E19,G19,I19,C20,C24,E24,H24,C25,G27,C28,F30,H30,C32,E32") = ""
'        Sheets("Feuil2").Range("C34,E34,G34,C35,H37,H40,C38,C41,C44,H46,E48,G48,I48,G50,I50,G52,I52,G54,I54,C56,F56,C58,F58,C60,B49") = ""
        EffacerUneFeuille ("Feuil2")
        Sheets("Feuil2").Visible = False

'        Sheets("Feuil3").Visible = True
'        Sheets("Feuil3").Range("D2,H2,H4,D4,D6,F8,H8,C9,F11,H11,C12,F14,C15,C19,E19,G19,I19,C20,C24,E24,H24,C25,G27,C28,F30,H30,C32,E32") = ""
'        Sheets("Feuil3").Range("C34,E34,G34,C35,H37,H40,C38,C41,C44,H46,E48,G48,I48,G50,I50,G52,I52,G54,I54,C56,F56,C58,F58,C60,B49") = ""
        EffacerUneFeuille ("Feuil3")
        Sheets("Feuil3").Visible = False

    Case "2"

        Sheets("Feuil1").Visible = True
        Sheets("Feuil2").Visible = True

'        Sheets("Feuil3").Visible = False
'        Sheets("Feuil3").Range("D2,H2,H4,D4,D6,F8,H8,C9,F11,H11,C12,F14,C15,C19,E19,G19,I19,C20,C24,E24,H24,C25,G27,C28,F30,H30,C32,E32") = ""
'        Sheets("Feuil3").Range("C34,E34,G34,C35,H37,H40,C38,C41,C44,H46,E48,G48,I48,G50,I50,G52,I52,G54,I54,C56,F56,C58,F58,C60,B49") = ""
        EffacerUneFeuille ("Feuil3")
        Sheets("Feuil3").Visible = False

    End Select

    ActiveWorkbook.Protect

End Sub

Et la macro associée :
VB: 
Sub EffacerUneFeuille(NomFeuille As String)
'
    Sheets(NomFeuille).Range("D2,H2,H4,D4,D6,F8,H8,C9,F11,H11,C12,F14,C15,C19,E19,G19,I19,C20,C24,E24,H24,C25,G27,C28,F30,H30,C32,E32").ClearContents
    Sheets(NomFeuille).Range("C34,E34,G34,C35,H37,H40,C38,C41,C44,H46,E48,G48,I48,G50,I50,G52,I52,G54,I54,C56,F56,C58,F58,C60,B49").ClearContents

End Sub

Je n'ai pas trouvé la logique d'affichage/masquage des feuilles, donc j'ai laissé tel quel.
Mais s'il y a une logique, alors on doit pouvoir simplifier la macro.
 
Dernière édition:
Vote positif 0 Vote négatif
Solution

Discussions similaires

P
  • Résolu(e)
Autres Macro trop longue
Réponses
6
Affichages
512
TooFatBoy
TooFatBoy
N
  • Résolu(e)
Microsoft 365 Ecrire une formule de calcul en Vba Excel
24 25 26
Réponses
385
Affichages
9 K
TooFatBoy
TooFatBoy
chaelie2015
  • Résolu(e)
XL 2013 (RESOLU)Mot de passe Masqué
Réponses
5
Affichages
687
Compte Supprimé 979
C
E
  • Question
Microsoft 365 effacer formule en fonction de ce qui a été saisi dans une autre cellule
Réponses
6
Affichages
342
Phil69970
Phil69970
KTM
  • Question
XL 2019 Regrouper les données de plusieurs feuilles dans une seule Feuille
Réponses
9
Affichages
400
Oneida
Oneida
P
  • Question
XL 2019 Copier des cellules d'une feuille sur une autre
Réponses
2
Affichages
549
phoceenjo
P
N
  • Résolu(e)
Microsoft 365 Transfère de données d'un Userform vers un tableau structuré d'une feuille de calcul
Réponses
4
Affichages
180
NONO14
N
S
  • Résolu(e)
XL 2016 copier des données d'une feuille à une autre selon critères et protection de la feuille 1
Réponses
6
Affichages
344
steph_29120
S
R
  • Résolu(e)
Microsoft 365 calculer une moyenne conditionnelle en retirant certaines valeurs par le biais de la couleur de fond d'une cellule
Réponses
7
Affichages
572
ricoben
R
C
  • Résolu(e)
XL 2013 Graphiques : ne pas afficher la partie de courbe liée à des données vides même si elles sont sélectionnées
Réponses
10
Affichages
710
Chrystel01
C

Membres actuellement en ligne

4 membres et 47 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
314 738
Messages
2 112 335
Membres
111 512
dernier inscrit
Gilles727