VBA - Masquer des lignes sous condition

Version imprimable

Bonjour,

Les lignes ci-dessous, font parties d'un ancien tableau Excel de 2018 (INITIALE) et ce que je souhaiterai (FINALE).

Le problème est le suivant : je n'arrive pas en copiant et modifiant les chiffres seulement, à ce qu'elle fonctionne dans le nouveau tableau Excel que j'ai effectué.

Je pense que cela est dû à une fonction particulière dans le nommage des feuilles et/ou fonction de macro car lorsque j'effectue ces changements dans l'ancien tableau cette dernière marche.

Pourriez-vous m'aider ou m'informer sur certaines de ces fonctions ? Y-a-t-il un autre moyen de le coder sur VBA ?

Merci d'avance

INITIALE : "Feuil20.MasquerLignesVides"
Code:

1 2 3 4 5 6 7 8 9 10 11 Sub MasquerLignesVides() For i = [A103].End(xlUp).Row To 20 Step -1 If Application.WorksheetFunction.CountBlank(Cells(i, 5)) = 1 Then Rows(i).EntireRow.Hidden = True End If End Sub
FINALE : "Masquerleslignesvides"
Code:

1 2 3 4 5 6 7 8 9 10 11 Sub Masquerleslignesvides() For i = [A646].End(xlUp).Row To 19 Step -1 If Application.WorksheetFunction.CountBlank(Cells(i, 6)) = "" Then Rows(i).EntireRow.Hidden = True End If End Sub

bonjour
essayer avec :

Code:

1
2
3
4
5
6
7
8
9
10
11
Option Explicit
Sub Masquerleslignesvides()
Dim derligne As Long
Dim F As Worksheet
Set F = Sheets("Feuil1")
derligne = F.Range("F" & Rows.Count).End(xlUp).Row
Dim Cel As Range
For Each Cel In F.Range("F19:F" & derligne).Cells
    If Cel = vbNullString Then Cel.EntireRow.Hidden = True
Next Cel
End Sub

14/10/2020, 14h33
Flav799

Merci
Merci de votre réponse rapide BENNASR, tout fonctionne

Cependant j'ai une petite question es ce qu'il vous serais possible de m'expliquer rapidement ce qui constitue votre codage, et plus particulièrement cette partie :
Code:

1 2 3 4 derligne = F.Range("F" & Rows.Count).End(xlUp).Row Dim Cel As Range For Each Cel In F.Range("F19:F" & derligne).Cells If Cel = vbNullString
et aussi l utilisation de Dim ?

Code:

1
2
3
4
5
6
7
8
9
10
11
Option Explicit
Sub Masquerleslignesvides()
Dim derligne As Long
Dim F As Worksheet
Set F = Sheets("Feuil1")
derligne = F.Range("F" & Rows.Count).End(xlUp).Row ' pour chercher la dernière cellule non vide de la colonne F
Dim Cel As Range 
For Each Cel In F.Range("F19:F" & derligne).Cells 'pour chaque cellule de la plage allant de F19 à le derniere ligne non vide de la colonne F
    If Cel = vbNullString Then Cel.EntireRow.Hidden = True 'si la cellule est nulle alors masquer toute la logne
Next Cel ' tester cellule suvante
End Sub