masquer 2 colonnes valeur videsRésolu

Question

bonjour,
j'ai un petit soucis je voudrais selectionné 2 colonnes contenant du texte ou autre bref je voudrais masquer les lignes de ses colonnes vides pour cela j'ai:
Range("q3:q210").EntireRow.Hidden = False
Range("a3:a210").EntireRow.Hidden = False
For Each sel In Range("q3:q210")
Columns("q:q").Hidden = False
Columns("r:r").Hidden = True
Columns("s:s").Hidden = True
Columns("a:a").Hidden = True


If sel 0 Then sel.EntireRow.Hidden True


Next
en faite je voudrais que q3:q210 et a3:a210 qui ne contiennent pas de valeur soit masquer.
merci d'avance de votre aide 

 pat

cs_MPi · Accepted Answer

Ceci masquera les lignes où A OU Q est vide

    Dim I As Long, nbLignes As Long
    
    nbLignes =  Cells(Rows.Count, "A").End(xlUp).Row
    
    For I = nbLignes To 2 Step -1        If Range("A" & I) ""  Or  Range("Q" & I)  "" Then
            Rows(I).Hidden = True
        End If
    Next

Si les 2 cellules doivent être vides, change le OR par AND

MPi²

patbl · Answer

merci mpi ca fonctionne mais au lieu de mettre 
For I = nbLignes To 2 Step -1
j'ai mis
For I = nbLignes To 3 Step -1

merci beaucoup de ton aide
 pat

Masquer 2 colonnes valeur vides

2 réponses

Votre réponse

Discussions similaires