Masquer ligne si :

[noviceAG]

Bonjour chers amis du Forum,


Pouvez-vous me dire de quelle façon je peux masquer les lignes selon schéma ci-après :

si Feuil1 A4 ne contient rien, masquer en Feuil2 les lignes 2 et 3
si Feuil1 A7 ne contient rien, masquer en Feuil2 les lignes 4 et 5
si Feuil1 A10 ne contient rien, masquer en Feuil2 les lignes 6 et 7
si Feuil1 A13 ne contient rien, masquer en Feuil2 les lignes 8 et 9
si Feuil1 A16 ne contient rien, masquer en Feuil2 les lignes 10 et 11
si Feuil1 A19 ne contient rien, masquer en Feuil2 les lignes 12 et 13
si Feuil1 A22 ne contient rien, masquer en Feuil2 les lignes 14 et 15
si Feuil1 A25 ne contient rien, masquer en Feuil2 les lignes 16 et 17
si Feuil1 A28 ne contient rien, masquer en Feuil2 les lignes 18 et 19
si Feuil1 A31 ne contient rien, masquer en Feuil2 les lignes 19 et 20
si Feuil1 A34 ne contient rien, masquer en Feuil2 les lignes 20 et 21
si Feuil1 A37 ne contient rien, masquer en Feuil2 les lignes 22 et 23
si Feuil1 A40 ne contient rien, masquer en Feuil2 les lignes 24 et 25
si Feuil1 A43 ne contient rien, masquer en Feuil2 les lignes 26 et 27
si Feuil1 A46 ne contient rien, masquer en Feuil2 les lignes 28 et 29
Si Feuil1 A49 ne contient rien, masquer en Feuil2 les lignes 30 et 31


En vous remerciant chaleureusement.

 

[mromain]

Re : Masquer ligne si :

bonjour,

voici un essai :

Sub test()
Dim i As Long
    With ThisWorkbook.Sheets("Feuil2")
        For i = 4 To 49 Step 3
            If ThisWorkbook.Sheets("Feuil1").Range("A" & i).Text = "" Then
                .Rows((i - 1) / 3 * 2).Hidden = True
                .Rows((i - 1) / 3 * 2 + 1).Hidden = True
            Else
                .Rows((i - 1) / 3 * 2).Hidden = False
                .Rows((i - 1) / 3 * 2 + 1).Hidden = False
            End If
        Next i
    End With
End Sub

a+

 

[bpol]

Re : Masquer ligne si :

bonjour,

sans macro tu nommes tes cellules en feuil1
et tu fais une MFC en feuil2 pour les lignes correspondantes.

A+
Bpol

 

[noviceAG]

Re : Masquer ligne si :

Bonjour mromain, bpol,
mromain j'ai une erreur d'exécution à la ligne
With ThisWorkbook.Sheets("Feuil2")
bpol je ne peux utiliser une MFC dans le cas présent

 

[noviceAG]

Re : Masquer ligne si :

re,
Apparemment, ca provenait du nom des mes feuilles.
Je te remercie de ton qide et te souhaite une bonne soirée.

 

[Staple1600]

Re : Masquer ligne si :

Bonsoir


Le code de mromain 😉 à ma sauce

Sub test()
Dim i As Long
    With ThisWorkbook.Sheets("Feuil2")
        For i = 4 To 49 Step 3
        .Rows((i - 1) / 3 * 2).Resize(2).Hidden = (IsEmpty(.Range("A" & i)))
        Next i
    End With
End Sub

 

[noviceAG]

Re : Masquer ligne si :

Je te remercie Staple, mais ne voyant ton code que ce matin, j'ai pris le code fourni par mromain hier, ne m'en veux pas.
Bonne journée à vous tous.