VBA suppression de lignes

[C@thy]

Bonsouar,

de la ligne 7 à la fin, je dois supprimer toutes les lignes dont la colonne K est vide.

J'ai écrit ceci :

Range("K9:K" & nlig + 7).Select
          For Each C In Selection
      '***     ou for each C in Range("K9:K" & nlig + 7)
             L = C.Row
             If IsEmpty(C) Then       'colonne % vide
                  C.EntireRow.Delete
              End If
           Next C

mais s'il supprime la 1ère ligne (donc la 9, il passe ensuite à la ligne 10 alors que l'ancienne ligne 10, devenue la ligne 9, est peut-être vide aussi...🙁

Comment peut-on faire???😕

Merci pour votre aide.😉

Bises

C@thy

 

[kjin]

Re : VBA suppression de lignes

Bonsoir,
Il faut effectuer ta boucle à l'envers

for i = nlig + 7 to 9 step -1
if IsEmpty(Range("K" & i) then Rows(i).delete
next

A+
kjin

 

[C@thy]

Re : VBA suppression de lignes

Bon sang, mais c'est bien sûr!!!

Un grand MERCI à toi

Biz

C@thy

 

[BOISGONTIER]

Re : VBA suppression de lignes

Bonsoir,

On Error Resume Next
[K9:K1000].SpecialCells(xlCellTypeBlanks).EntireRow.Delete

JB

 

[C@thy]

Re : VBA suppression de lignes

Merci Boisgontier, je teste tout ça

Biz

C@thy

 

[C@thy]

Re : VBA suppression de lignes

Hi hi hi!!! J'ai testé, dans les 2 cas la dernière ligne est restée. (Damned!).

Rapidité extrême pour la solution de Boisgontier.

Bises à vous 2

C@thy

 

[C@thy]

Re : VBA suppression de lignes

Arf! Tout est de ma faute!!! C'est nlig + 8 et non pas +7!!!
Merci à vous 2, c'est NICKELLLLLLL!!!!!!!!!

Bises

C@thy