Bonjour à tous
Après plusieurs jour de recherche sans résultat je cherche le moyen le plus rapide pour masquer ou filtrer des lignes.
Mon tableau comporte plus de 5000 lignes et 100 colonnes avec des formule dans la plupart des cellules. Filtrer est tres long et les codes avec boucle aussi
J'ai trouvé ce code que j'ai adapté mais il ne fonctionne pas... il me masque toute les lignes a partir de DC5
il me semble pourtant très rapide
Dim lig As Long
With Sheets("Livraison")
lig = .Cells(Rows.Count, 1).End(xlUp).Row
.Range("DC5").FormulaR1C1 = "=IF(RC[-42]=0,TRUE,"""")"
With .Cells(lig, 1).SpecialCells(xlCellTypeFormulas, 4) 'information sur les cellules en DC5
.EntireRow.Hidden = True
End With
End With
Merci
Après plusieurs jour de recherche sans résultat je cherche le moyen le plus rapide pour masquer ou filtrer des lignes.
Mon tableau comporte plus de 5000 lignes et 100 colonnes avec des formule dans la plupart des cellules. Filtrer est tres long et les codes avec boucle aussi
J'ai trouvé ce code que j'ai adapté mais il ne fonctionne pas... il me masque toute les lignes a partir de DC5
il me semble pourtant très rapide
Dim lig As Long
With Sheets("Livraison")
lig = .Cells(Rows.Count, 1).End(xlUp).Row
.Range("DC5").FormulaR1C1 = "=IF(RC[-42]=0,TRUE,"""")"
With .Cells(lig, 1).SpecialCells(xlCellTypeFormulas, 4) 'information sur les cellules en DC5
.EntireRow.Hidden = True
End With
End With
Merci