Masquer la ligne si cellule vide

[Ilino]

FORUM BONJOUR
Je souhaiterai masquer toutes les cellules vides de la colonne B (si une cellule ne possède aucun caractère) ( de b2 au b 1000)
Exemple ;
si b3 vide donc masquer
Si b5 non vide donc non masquer etc
NB/Pour rappelle toutes les cellules contient des formule
GRAZIE

 

[kingfadhel]

Re : Masquer la ligne si cellule vide

Bonjour,

Voila

Sub Masquer()
Set plg = Range("b2:b1000")
For i = 2 To 1000
If Range("b" & i) = "" Then
Range("b" & i).Select
Selection.EntireRow.Hidden = True
End If
Next
End Sub

 

[DoubleZero]

Re : Masquer la ligne si cellule vide

Bonjour, le Fil, le Forum,

Une autre suggestion :

Option Explicit
Sub Ligne_masquer_si()
    Dim i As Long
    Application.ScreenUpdating = False
    For i = Cells(Rows.Count, "b").End(xlUp).Row To 2 Step -1
        If Range("b" & i) = "" Or Range("b" & i) = 0 Then Rows(i).EntireRow.Hidden = True
    Next
    Application.ScreenUpdating = True
End Sub

A bientôt 🙂

 

[Ilino]

Re : Masquer la ligne si cellule vide

NB/Pour rappelle toutes les cellules contient des formule
GRAZIE

Bonjour Forum,Fadhel,doublezéro
grazie pour les reponses ; mais j'ai trouvé un autre soucis ( comme je l'ai mentionné ci dessus)
dans les cellule il y a des formulles si ( avec des condition vide " " dans les formule)
A+

 

[DoubleZero]

Re : Masquer la ligne si cellule vide

Re-bonjour,

... mais j'ai trouvé un autre soucis ( comme je l'ai mentionné ci dessus)
dans les cellule il y a des formulles si ( avec des condition vide " " dans les formule)...

Afin que nul ne perde son temps 🙄... pourrait-t-on "voir" le fichier de travail dépourvu de donnée confidentielle ?

A bientôt.

 

[Ilino]

Re : Masquer la ligne si cellule vide

Re oky
tu as raison

 

[job75]

Re : Masquer la ligne si cellule vide

Bonjour Ilino, kingfadhel, DoubleZero 🙂

Avec le filtre avancé (élaboré) :

Sub Masque()
If [B1] = "" Then [B1] = "Titre" 'il faut un titre
Cells(2, Columns.Count) = "=TRIM(B2)<>"""""
Rows("1:1000").AdvancedFilter xlFilterInPlace, Cells(1, Columns.Count).Resize(2)
Cells(2, Columns.Count) = "" 'RAZ
With ActiveSheet.UsedRange: End With 'pour la barre de défilement
End Sub

Sub Affiche()
On Error Resume Next: ActiveSheet.ShowAllData
End Sub

A+

 

[Ilino]

Re : Masquer la ligne si cellule vide

Bonjour MAITRE jOB
RE double zero
j'ai souhaité faire cette tache automatiquement sans créer des boutons
par application Private Sub Worksheet_SelectionChange est ce que c'est possible?
A+

 

[job75]

Re : Masquer la ligne si cellule vide

Re,

par application Private Sub Worksheet_SelectionChange est ce que c'est possible?

Avec 1103 posts 😱 sur ce forum tu dois être capable de répondre à cette question.

A+

 

[Ilino]

Re : Masquer la ligne si cellule vide

Merci

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If [B1] = "" Then [B1] = "Titre" 'il faut un titre
Cells(2, Columns.Count) = "=TRIM(B2)<>"""""
Rows("1:1000").AdvancedFilter xlFilterInPlace, Cells(1, Columns.Count).Resize(2)
Cells(2, Columns.Count) = "" 'RAZ
With ActiveSheet.UsedRange: End With 'pour la barre de défilement


End Sub

a+

 

[Ilino]

Re : Masquer la ligne si cellule vide

Bonsoir Forum
est ce que il y a une possibilité de mettre le code de JOB automatique ?
GRAZIE