Deleterows secondaires ()
Application.ScreenUpdating = faux
Faible srow en tant que longtemps
srow = 1
Faire jusqu'au srow > au Cells.Find (ce qui : = " * ", SearchDirection : =xlPrevious, SearchOrder : =xlByRows). Rangée
S'InStr (1, cellules (srow, « a »), « Z:\websitepublic\ », vbTextCompare) > 0 ou InStr (1, cellules (srow, « a »), « aucuns documents choisis dans cet annuaire », vbTextCompare) > 0 puis
Rangées (srow). Suppression
ElseIf Application.WorksheetFunction.CountA (gamme (srow et « : » et srow)) = 0 puis
Rangées (srow). Suppression
Autrement
srow = srow + 1
Finir si
Boucle
Application.ScreenUpdating = rectifient
Sous-marin d'extrémité
|