Discussion :

[canary]

Bonjour à tous,


Dans le fichier ci-joint, je mets des croix dans les cases et des titres apparaissent dans le tableau de synthèse en dessous.

Ce que j'aimerai : lorsque une cellule bleue du tableau de synthèse est égale à 0 alors la ligne et celle juste en dessous soit masquée. Sinon, elles s'affichent.

En cherchant sur le net, j'ai trouvé le fichier "TestOK" qui répond tout à fait à mon besoin.
J'ai donc essayé de l'appliquer à mon fichier "TEST" mais ça ne marche pas...
Pouvez-vous me le debugguer svp ?
Merci !

[casefayere]

Bonjour,

essayes comme ça dans l'evenement "Change" de ta feuille :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("F42:F" & Range("F" & Rows.Count).End(xlUp).Row)) = 0 Then
  Range(Target.Address, Target(2, 1).Address).EntireRow.Hidden = True
End If
End Sub

[canary]

Bonjour,

Merci pour la réponse mais j'ai une erreur d'execution '91' qui s'affiche :
Variable objet ou variable de bloc Width non definie

quelle est l'erreur ?

Dans le Module1, on a :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub Lignes_masquer_si_NON()
Dim c As Range
Application.ScreenUpdating = False
Cells.EntireRow.Hidden = False
For Each c In Range("E24:e81")
    If c.Offset(, 1) = "0" Then
    c.EntireRow.Hidden = True
    c.Offset(1, 1).EntireRow.Hidden = True
Next
Application.ScreenUpdating = True
End Sub

Et dans la Worksheet_Change :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("F42:F" & Range("F" & Rows.Count).End(xlUp).Row)) = 0 Then
  Range(Target.Address, Target(2, 1).Address).EntireRow.Hidden = True
End If
End Sub

[casefayere]

je te renvoie ton fichier, version excel 2007, car ça fonctionne chez moi
je ne m'occupe pas de ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub Lignes_masquer_si_NON()
Dim c As Range
Application.ScreenUpdating = False
Cells.EntireRow.Hidden = False
For Each c In Range("E24:e81")
    If c.Offset(, 1) = "0" Then
    c.EntireRow.Hidden = True
    c.Offset(1, 1).EntireRow.Hidden = True
Next
Application.ScreenUpdating = True
End Sub

il ne sert à rien dans mon cas

[canary]

Bonjour,

En testant le fichier xlsm j'obtiens directement une erreur en mettant ou en enlevant un croix :
"erreur '91' : variable objet ou variable de bloc With non définie"
Bizarre...

De plus, est-ce qu'il est possible de rester en .xlsx ou .xls et non pas .xlsm ?

[casefayere]

Bonjour,
j'avais mal compris, il faut agir sur les croix, essayes comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Dl As Long, x As Long
Dl = Range("F" & Rows.Count).End(xlUp).Row
If (Target.Column = 6 Or Target.Column = 58) And Target.Row <= 38 Then
  For x = 42 To Dl Step 2
    If Range("F" & x) = 0 Then
      Range("F" & x, "F" & x + 1).EntireRow.Hidden = True
    Else
      Range("F" & x, "F" & x + 1).EntireRow.Hidden = False
    End If
  Next x
End If
End Sub

[mercatog]

Bonjour

Ci-joint code dans le même sens que celui de Dominique, que je salue

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Worksheet_Change(ByVal Target As Range)
Dim x As Byte
 
Application.ScreenUpdating = False
If Target.Row <= 38 Then
    Select Case Target.Column
        Case 16, 30, 44, 58
            For x = 42 To 80 Step 2
                Rows(x).Resize(2).Hidden = Range("F" & x) = 0
            Next x
    End Select
End If
End Sub

[canary]

Bonjour,
Le code de Mercatog fonctionne parfaitement.
Merci à tous pour votre aide !

Dernière question, peut-on laisser le document en .xls sans désactiver les macro ?