XL 2010 Effacer la ligne si cellule vide

Wyrgle · 2 Juin 2017

Bonjour le forum,

J'utilise beaucoup la ligne de code suivante :

Code:

   [B:B].SpecialCells(xlCellTypeBlanks).EntireRow.Delete

pour effacer une ligne entière si la cellule en colonne B est vide.
Mais elle me retourne parfois une erreur du style 'Cellule non-trouvée'.
Pourquoi ?

Est-ce que les lignes suivantes remplacent la ligne ci-dessus :

Code:

For i = 1 to ActiveSheet.Cells.Find("*", , , , xlByRows, xlPrevious).Row
     If Cells(i, 2) = "" Rows(i).Delete
next i

Merci !

cathodique · 2 Juin 2017

comme ceci, à tester

Code:

Dim Ligne As Long
Ligne = Columns(2).Find("*", , , , xlByColumns, xlPrevious).Row
'ou Ligne = Range("B" & Rows.Count).End(xlUp).Row
for i =1 to ligne
if cells(i,2)="" then Rows(i).Delete
next i

XL 2010 Effacer la ligne si cellule vide

Wyrgle

XLDnaute Junior

cathodique

XLDnaute Barbatruc

Discussions similaires

XL 2010 Effacer la ligne si cellule vide

Wyrgle

XLDnaute Junior

cathodique

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency