Suppression de ligne

Bonjour,

j'ai essayé de me débrouillé, mais je suis perdu !

j'ai un fichier excel ou j'ai fait une macro qui copie un tableau dans une feuille nommée global vers une feuille nommée mouvements,

puis je voudrais que la ligne soit supprimée dans le cas ou la cellule dans la colonne A et celle dans la colonne I est vide, et j'ai juste réussi à faire que la ligne soit supprimée si la cellule dans la colonne A est vide.

merci de bien vouloir m'aider.

Cordialement.

Bonjour et bienvenu(e)

Modifies ton code

Sub test()

  Set ws3 = Worksheets("GLOBAL")
  Set ws4 = Worksheets("mouvements")

  ' efface le contenu de la feuille cible
  ws4.Cells.Clear
  ' copie la source dans la cible
  ws3.Cells.Copy ws4.Range("A1")

  '
  With ws4
    ' dernière ligne du tableau copié, hypothèse que la dernière ligne de la colonne A
    ' sera la dernière ligne pour toutes les colonnes
    dl = .Range("A" & .Rows.Count).End(xlUp).Row
    ' passe en revue chaque ligne à partir de la fin
    For I = dl To 1 Step -1
      ' si ligne vide, on la supprime
      ' l'hypothèse que si la cellule en colonne A est vide, la ligne est vide
      If .Cells(I, 1) = "" And .Cells(I, 9) = "" Then .Rows(I).Delete
    Next I
  End With

End Sub

Bonjour,

merci beaucoup !!

c'est exactement cela, il me manquait pas grand chose^^

merci encore !

Rechercher des sujets similaires à "suppression ligne"