[EXCEL 2003] VBA Suppression de lignes

Fermé
Steve411 - 14 août 2011 à 10:37
 Paf - 15 août 2011 à 11:46
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


A voir également:

2 réponses

Pas d'idée pour cette ligne de code ?
0
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