Bonjour thib
tu nous précise pas quelle colonne doit etre testé, code pour la colonne A.
avec une boucle :
Citation:
Dim i As integer
For i = 1 To Range('a65536').End(xlUp).Row
* * * * Rows(i).Hidden = IIf(Cells(i, 1) = '', True, False)
Next i
|
sans boucle :
Citation:
Columns(1).SpecialCells(xlCellTypeBlanks).Rows.Hid den = True
|
pour réafficher l'ensemble :
salut