Discussion :

[Ben-j7474]

Bonjour,

Je suis nouveau sur ce forum, que je parcoure depuis quelque temps. N'ayant pas trouvé la réponse à ma question dans d'autres sujets, je pose ma question ici.

Dans mon tableau, la colonne A contient du texte et les autres colonnes (B à AK) contiennent soit des formules soit des chiffres.

Je souhaite que : si toutes les cellules de la ligne contenant des formules avec comme résultat = 0 ou cellules vides, la ligne soit masquée. Si une seule des cellules de la ligne contient un résultat supérieur à 0 ou un chiffre, que la ligne ne soit pas masquée.

J'ai utilisé ce code mais ça ne fonctionne pas :

Code :

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

1
2
3
4
5
6
7
8
Sub masquer_ligne_vide_TEST2()
Dim Cel As Range
For Each Cel In Range("B6:AK13,B16:AK19")
If Cel.Value <> "" And Cel.Value = 0 Then
Cel.EntireRow.Hidden = True
End If
Next
End Sub

Merci d'avance pour votre aide.

[Philippe Tulliez]

Bonjour,
Au lieu d'utiliser une boucle, le plus simple à programmer est l'utilisation du filtre avancé d'excel (méthode AdvancedFilter en VBA)
A lire Les filtres avancés ou élaborés dans Excel

[Ben-j7474]

Bonjour Philippe,

Merci pour la réponse. Etant débutant en VBA, je nage au niveau des filtres, je ne sais pas par quel bout commencer. Pourriez-vous m'aiguiller?

Bonjour Vinc,

Merci pour ce code, malheureusement, aucune des deux méthodes ne fonctionne. Celle basée sur ma méthode donne une erreur 1004.

[Invité]

Bonsoir,

Code :

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

1
2
3
For Each Cel In Worksheets(1).Range("B6:AK13,B16:AK19").Cells
        Cel.EntireRow.Hidden = not cdbl(cstr("0" & Cel.Value ))
Next

Mais j'opterai pour option de Philippe

[Ben-j7474]

Bonsoir,

Je l'ai tapé ainsi, mais ça me met une erreur d'exécution 9 "l'indice n'appartient pas à la selection". Ma feuille s'appelle "Planif1"

Code :

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

1
2
3
4
5
Sub masquer_ligne_vide_TEST4()
For Each Cel In Worksheets(Planif1).Range("B6:AK13,B16:AK19").Cells
        Cel.EntireRow.Hidden = Not CDbl(CStr("0" & Cel.Value))
Next
End Sub

[DeathZarakai]

Code :

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

1
2
3
4
5
Sub masquer_ligne_vide_TEST4()
For Each Cel In Worksheets("Planif1").Range("B6:AK13,B16:AK19").Cells
        Cel.EntireRow.Hidden = Not CDbl(CStr("0" & Cel.Value))
Next
End Sub

Tu as oublié les guillemets.

[vinc_bilb]

Bonjour,

Voir l'exemple ci-dessous si ça peut vous aider

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
Sub masquer_ligne_vide_TEST2()
Dim Cel As Range, InpRng As Range
 
'Mieux
    Set InpRng = Worksheets(1).Range("B6:AK13,B16:AK19").SpecialCells(xlCellTypeBlanks)
    InpRng.EntireRow.Hidden = True
 
'Autrement .... basée sur votre version
Set InpRng = Worksheets(1).Range("B6:AK13,B16:AK19")
InpRng.Select
 
For Each Cel In Worksheets(1).Range("B6:AK13,B16:AK19").Cells
 
    If Cel <> vbNullString Or Cel.Value = 0 Then
        Cel.EntireRow.Hidden = True
    End If
Next
 
 
End Sub