Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Masquer ligne si :

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

noviceAG

XLDnaute Impliqué
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.
 
Re : Masquer ligne si :

bonjour,

voici un essai :
Code:
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+
 
Re : Masquer ligne si :

Bonsoir


Le code de mromain 😉 à ma sauce

Code:
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…