Discussion :

[Daniel117]

Bonjour,

je cherche à masquer pour exploitation dans un fichier les ligne pour lesquelle la valeur dans la colonne v est égal zéro puis par la suite
pour un plage donné si toute la plage est vide independemment de la colonne maquer toute la ligne
exemple de ligne 1 à 92 masquer les ligne pour lesquelle en colonne v on a zéro
puis regardeer dans la plage D98:T107 masquer toutes les lignes vides ,idem plages D122:T130,D184:T192;D198:T207;D228:T237;D245:T245;D249:T260;D266
j'ai un code qui permet de masquer les lignes à zéro dans la colonne v mais c'est dans les plages que c'est un peu difficile : en fait dans les plages pour qu'une ligne soit supprimée il faut que toute la ligne dans la plage soit vide.

Code :

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

1
2
3
4
5
6
7
8
9
Sub masquer_lignes()
Dim i As Long
Sheets("Non-current Assets form").Select
For i = 1 To 92
 If Cells(i, 22).Value = 0 And Cells(i, 1).Value <> "" Then
 Rows(i).Hidden = True
End If
Next
Next

[parmi]

Bonjour,

Tu parles de masquage et de suppression...
Dans ton code, tu masques les lignes si V=0 et A<>"".

Qu'en est-il des plages ?
Est-ce que tu dois aussi vérifier la valeur en A ou il faut vraiment que toute la ligne soit vide ?

[Daniel117]

En fait il faut juste masquer et non supprimer
dans la plage si une ligne est vide la ligne entière doit être masquée.

[Philippe Tulliez]

Bonjour,

En fait il faut juste masquer et non supprimer
dans la plage si une ligne est vide la ligne entière doit être masquée.

La méthode AdvancedFilter de l'objet Range peut répondre à ta demande avec comme critère nommé la formule NBVAL
Exemple pour une zone data (plage $A$1:$F$203 de la feuille nommée [db]) et la zone des critères en I1:I2 avec comme étiquette de colonne en (I1) par exemple _fn_ et la formule en I2

Code :

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

=NBVAL(db!$A2:$F2)>0

La procédure VBA

Code :

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

1
2
3
4
5
6
7
8
Sub MasquerLigne()
 Dim rngData As Range, rngCriteria As Range
 With ThisWorkbook.Worksheets("db")
  Set rngData = .Range("A1:F203")
  Set rngCriteria = .Range("I1:I2")
 End With
 rngData.AdvancedFilter xlFilterInPlace, rngCriteria
End Sub

A lire Les filtres avancés ou élaborés dans Excel

[Daniel117]

j'ai testé le code mais cela ne semble pas convenir. normalement je ne dois pas mettre saisir dans la feuille.

ce que je voudrais c'est un code simple qui dirait si une ligne de la plage est vide alors masquer la ligne entière.

j'ai ecris ce code mais il bug sur la ligne 7 normalement si c'est corrigé ça devrait marcher

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub masquer1()
 
 Dim i As Integer
 
  Sheets("DD").Select
 For i = 98 To 107
  If Range("D" & i & ":T" & i).Cells Is Empty Then
 Rows(i).Hidden = True
 End If
 
 Next
 
End Sub

[parmi]

Je ne sais pas si les lignes que tu mentionnes sont toujours les mêmes ou non.
Si oui, ceci devrait fonctionner.
Il reste aussi le critère de la cellule A (Cells(I, 1).Value = 0 ) que je n'ai pas considéré... à rajouter à la condition si nécessaire

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
19
20
21
22
Sub masquer_lignes()
    Dim I As Long, J As Long
    Dim Plages
 
    'Tableau des débuts et fins des plages
    Plages = Array(122, 130, 184, 192, 198, 207, 228, 237, 245, 249, 260, 266)
 
    Sheets("Non-current Assets form").Select
    For I = 1 To 92
        If Cells(I, 22).Value = 0 And Cells(I, 1).Value <> "" Then
            Rows(I).Hidden = True
        End If
    Next
 
    For J = LBound(Plages) To UBound(Plages) Step 2
        For I = Plages(J) To Plages(J + 1)
            If Application.CountA(Rows(I)) = 0 Then     'Si la ligne est vide
                Rows(I).Hidden = True                          'on masque
            End If
        Next
    Next
End Sub