Masquer ligne vide

[MASSJIPE]

Bonjour
J'ai récupérer un code pour masquer les lignes vides mais il ne masque pas tout et je ne sais pas pourquoi
Merci

 

[DoubleZero]

Re : Masquer ligne vide

Bonjour, MASSJIPE, le Forum,

Peut-être en remplaçant ceci :

For i = [A65536].End(xlUp).Row To 8 Step -1

par cela :

For i = [A65536].End(xlUp).Row To 2 Step -1

A bientôt 🙂

 

[MASSJIPE]

Re : Masquer ligne vide

Re
Merci beaucoup et bonne soiré

 

[MASSJIPE]

Re : Masquer ligne vide

Bonjour
cela fonctionné sur le fichier en exemple mais sur le fichier d'origine j'ai un problème
si quelqu'un peut m'aider
merci

 

[DoubleZero]

Re : Masquer ligne vide

Bonjour, MASSJIPE, le Forum,

Voici la macro adaptée au fichier réel.

Bon courage et à bientôt 🙂

 

[MASSJIPE]

Re : Masquer ligne vide

Bonjour Double Zero
Pour comprendre la macro
Sub Lignes_vides_masquer()
Dim i As Long
Application.ScreenUpdating = False
For i = [A65536].End(xlUp).Row To 2 Step -1
If Application.WorksheetFunction.CountBlank(Range(Cells(i, 8), Cells(i, 19))) = 12 Then
Rows(i).EntireRow.Hidden = True
End If
Next i
Application.ScreenUpdating = True
End Sub
=>2 démarre à partir de la deuxième ligne
19 => nbr de colonnes
12 =>Nbr de colonnes ou la macro cherche les lignes vides
le 8?
Merci

 

[DoubleZero]

Re : Masquer ligne vide

Bonjour, MASSJIPE, le Forum,

Voici le code commenté :

Option Explicit
Sub Lignes_vides_masquer()
'déclaration variable
Dim i As Long 
'blocage de l'animation d'écran
Application.ScreenUpdating = False
'action sur chaque ligne, à partir de la quatrième, pour chaque valeur présente en colonne A
    For i = [A65536].End(xlUp).Row To 4 Step -1
        'début de la condition :
		'recherche du total 12 cellules vides entre les colonnes 8 et 19
		'ce qui correspond aux colonnes h à s
		If Application.WorksheetFunction.CountBlank(Range(Cells(i, 8), Cells(i, 19))) = 12 Then
        'ligne concernée est masquée
		Rows(i).EntireRow.Hidden = True
		'fin de la condition
        End If
    Next i
'réactivation de l'animation d'écran
	Application.ScreenUpdating = True
End Sub

A bientôt 🙂

 

[Si...]

Re : Masquer ligne vide

salut

autre proposition dans la page du code de la feuille

Sub AfficherToutesLesLignes()
  Rows.EntireRow.Hidden = False
End Sub
Sub Lignes_vides_masquer()
  Dim L As Long
  Application.ScreenUpdating = False
  For L = 3 To Cells(Rows.Count, 1).End(xlUp).Row
    Rows(L).Hidden = Application.CountBlank(Range("E" & L & ":U" & L)) = 17 'de E à T soit 17 colonnes
  Next
End Sub

 

[DoubleZero]

Re : Masquer ligne vide

Bonjour, MASSJIPE, Si... 🙂, le Forum,

Une autre proposition faisant appel au filtre et à un unique bouton.

A bientôt 🙂