agrandire la plage a deux colonnes

[evelynetfrancois]

bonjour a toutes et tous
dans une macro j'ai :

Set Plage = .Range("e3:e300").Cells.SpecialCells(xlCellTypeBlanks)
If Not Plage Is Nothing Then Plage.Rows.Hidden = True
qui ne concidere que la plage e3 :e300
comment faire pour quelle considere egalement la colonne a cote
style
e3 : F300

merci beaucoup d'avance
evelyne et francois

 

[Zon]

Salut,

si je comprends bien tu veux masquer les lignes dont 2 cellules de la même ligne sont vides.
En passant par l'intersection des numéros de ligne communs ça devrait faire l'affaire.

Set Plage = .Range("e3:f300")'.Cells.SpecialCells(xlCellTypeBlanks)
with Plage
intersect(.columns(1).Cells.SpecialCells(xlCellTypeBlanks).entirerow,.columns(2).Cells.SpecialCells(xlCellTypeBlanks).entirerow).rows.hidden=true

end with


A+++