Discussion :

[John Parker]

Bonjour,

Ce problème a déjà été évoqué plusieurs fois mais je n'y comprends rien.

J'aimerai masquer les lignes d'un fichier excel si 3 conditions sont respectées:

Il faut masquer la ligne si dans une même ligne colonne B<>"", colonne C="" et colonne D="" sur la plage B5:D150

J'ai tenté un bout de code qui ne marche pas

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub masquer()
 
Worksheets("Sheet2").Range("B5:D130").Select
    For Each o In Selection
        If o.Value = "" Then
            o.EntireRow.Hidden = True
        End If
Next
 
End Sub

J'ai directement une erreur sur Worksheets("Sheet2").Range("B5:D130").Select.
J'ai voulu tenter une boucle imbriqué pour la condition B<>"" mais je n'y arrive pas, ça fait des heures que je cherche mais je ne trouve pas....

Merci d'avance pour votre aide!

[Theze]

Bonjour,

Teste ce qui suit :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Sub masquer()
 
    Dim Plage As Range
    Dim Ligne As Range
 
    Set Plage = Worksheets("Sheet2").Range("B5:D130")
 
    'B<>"", colonne C="" et colonne D=""
    For Each Ligne In Plage.Rows
 
        If Ligne.Cells(1).Value <> "" _
            And Ligne.Cells(2).Value = "" _
            And Ligne.Cells(3).Value = "" Then Ligne.EntireRow.Hidden = True
 
    Next Ligne
 
End Sub

Hervé.

[John Parker]

Bonjour Hervé,
Merci pour ta réponse ça marche parfaitement.
J'ai vraiment du mal en Vba, j'arrive à comprendre les codes mais impossible de les écrire moi même...

Encore merci pour ton aide Hervé !