Microsoft 365 Masquer des lignes par macro

[natorp]

Bonjour à toutes et tous

J'aimerais masquer certaines lignes avec une macro en fonction de la valeur en colonne A

Merci pour aide et attention, cordialement, Gérard

 

[sylvanu]

Bonjour Natorp,
Comment reconnait on la fin du tableau ?
En d'autres termes comment calculer le nombre de lignes à masquer ?
Les cellules seront bien jaunes ?

 

[natorp]

Bjr Sylvanu

En fait le tableau est fixe : les lignes vont de 4 à 13, du coup j'ai trouvé et je poste le code :

Option Explicit
Dim x%
Sub masquerligne()
  Application.ScreenUpdating = False
  For x = 4 To 13
    If Sheets("Feuil1").Cells(x, 1) = "" Then
      Rows(x).EntireRow.Hidden = True
    Else
      Rows(x).EntireRow.Hidden = False
    End If
  Next
  Application.ScreenUpdating = True

End Sub

Merci pour t'y être intéressé, Gérard

 

[Efgé]

Bonjour à tous
Plus court:

Option Explicit
Dim x%
Sub masquerligne()
  Application.ScreenUpdating = False
  For x = 4 To 13
      Rows(x).EntireRow.Hidden = Cells(x, 1) = ""
  Next
  Application.ScreenUpdating = True
End Sub

Cordialement

 

[sylvanu]

Bonjour à tous,
Ou encore en jouant sur le filtrage :

Sub MasqueLignes()
    Range("A3:A13").AutoFilter
    ActiveSheet.Range("$A$3:$A$13").AutoFilter Field:=1, Criteria1:="<>"
End Sub

 

[natorp]

Bonjour à tous,
Ou encore en jouant sur le filtrage :

Sub MasqueLignes()
    Range("A3:A13").AutoFilter
    ActiveSheet.Range("$A$3:$A$13").AutoFilter Field:=1, Criteria1:="<>"
End Sub

Ah oui, c'est bien ça, merci
Cordialement, Gérard