Microsoft 365 Masquer ligne dans plage cellule

Sonia2020 · 10 Mai 2021

Bonjour

Je voudrais savoir s'il est possible de masquer les lignes vides à l'intérieur d'une plage de cellules données en VBA ? Mais seulement celles à la fin vers la dernière lignes non vides.
Exemple :
Dans la colonne A, Plage correspondante : A5 à A23. Dans cette plage, il y a les cellules A5 à A15 qui sont non vide (mais entre A5 et A15, il se peut qu'il y ai des cellules vides mais faut pas les masquer celles la), je voudrais masquer les lignes A16 à A23.

Merci pour votre aide.

Sonia

soan · 10 Mai 2021

Bonjour Sonia,

je te propose le fichier joint ci-dessous.

regarde la colonne A ; bien qu'il y aie des cellules vides sous la ligne 6 et au-dessus de la ligne 14, seules les lignes sous la donnée "F" seront masquées, donc les lignes 16 à 23 ; fais Ctrl e pour le voir ➯ maintenant, on voit uniquement les lignes 5 à 15.

VB:

Sub Essai()
  Dim n&: n = Cells(Rows.Count, 1).End(3).Row + 1
  If n > 5 And n <= 23 Then Rows(n & ":" & 23).Hidden = -1
End Sub

soan

mapomme · 10 Mai 2021

Bonsoir @Sonia2020 ,

Surtout pour saluer @soan :

VB:

Sub Test()
If Range("a23") = "" Then Range("a6:a23").SpecialCells(xlCellTypeBlanks).Areas(Range("a6:a23").SpecialCells(xlCellTypeBlanks).Areas.Count).EntireRow.Hidden = True
End Sub

soan · 12 Mai 2021

Bonjour mapomme, Sonia,

j'viens d'essayer ta solution ; j'ai pas l'habitude d'utiliser .SpecialCells(xlCellTypeBlanks), mais j'confirme que ça marche très bien ! pour éviter la répétition de la plage, j'ai réécrit ta sub ainsi :

VB:

Sub Test()
  Dim plg As Range: Set plg = [A6:A23].SpecialCells(xlCellTypeBlanks)
  If [A23] = "" Then plg.Areas(plg.Areas.Count).EntireRow.Hidden = -1
End Sub

soan

Microsoft 365 Masquer ligne dans plage cellule

Sonia2020

XLDnaute Nouveau

soan

XLDnaute Barbatruc

Pièces jointes

mapomme

XLDnaute Barbatruc

Pièces jointes

soan

XLDnaute Barbatruc

Discussions similaires