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
351
TooFatBoy
TooFatBoy
chaelie2015
  • Résolu(e)
XL 2013 (RESOLU)Mot de passe Masqué
Réponses
5
Affichages
401
Compte Supprimé 979
C
P
  • Question
XL 2019 Copier des cellules d'une feuille sur une autre
Réponses
2
Affichages
229
phoceenjo
P
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
351
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
309
Chrystel01
C
D
  • Question
Microsoft 365 Application.WorksheetFunction.VLookup ne fonctionne pas au delà de 8500 lignes
Réponses
4
Affichages
299
DimiJuju
D
M
  • Question
XL 2013 changement de couleur de police qd cellule modifiée
Réponses
10
Affichages
290
michel.dupont
M
G
  • Résolu(e)
Copie de données d'une feuille à une autre
Réponses
2
Affichages
207
gui22
G
P
  • Question
Microsoft 365 Problème de destination à l'exécution d'une macro
Réponses
2
Affichages
281
Pimpon974
P
L
  • Question
XL 2021 Si le nom de la feuille est égale alors .... HELP !
Réponses
4
Affichages
188
Lune999
L

Membres actuellement en ligne

17 membres et 92 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
312 206
Messages
2 086 227
Membres
103 159
dernier inscrit
FBallea