[EXCEL 2003] VBA Suppression de lignes

Bonjour,

J'ai un petit soucis en VBA, j'explique :

J'ai plusieurs tableaux à la suite avec à chaque fois une ligne vide d'écart. Lors de la suppression des tableaux répondant à la condition (voir macro si dessous), les lignes vides restent et j'aimerais les supprimer.

Dim c As Range
Set c = Range("B15").CurrentRegion
With c
If .Rows.Count = 3 Then .Rows.Delete
End With

Il faudrait soit un code qui supprime le tableau (=3 lignes) ainsi que la ligne vide se trouvant au-dessus, soit rajouter une ligne au programme ci-dessus qui supprimerait, si la condition est vérifiée, la première ligne de mes cellules actives. En effet, une fois le tableau supprimé, certaines cellules sont actives et j'aimerais donc supprimer la première ligne.

Merci d'avance

Steve

2 réponses

  1. Pas d'idée pour cette ligne de code ?
    0
    1. bonjour

      tu peux essayer ceci :
      If .Rows.Count = 3 Then .Offset(-1, 0).Resize(.Rows.Count + 1, .Columns.Count).Delete

      la selection est 'remontée' d'une ligne et elle est 'augmentée' d'une ligne; donc, la sélection initiale plus la ligne précédente.

      Bonne suite
      0