Suppression de lignes supérieures

Le 03/12/2013 à 16:19

Bonjour,

J'ai un tableau d'environ 6 000 lignes, donc manuellement une perte de temps...

Exemple

G AA 03/12/2013 0000000 BIDUL CHOUETTE ZZ 03/12/2013 20 0

A AA 03/12/2013 0000000 BIDUL CHOUETTE ZZ 03/12/2013 20 2 HBB

Ci-dessus un exemple, j'aimerais supprimer uniquement les lignes au dessus d'une ligne où figure un A dans la colonne A, je pense qu'une macro pourrait résoudre ce problème.

Ayant pas fait de VBA depuis longtemps je pense que vous serez plus rapide que moi pour trouver cette solution.

Merci par avance de vos réponses

Cordialement

Le 03/12/2013 à 16:29

Bonjour

On supprime la ligne si la ligne de dessous contient un "A" et que la ligne en cours n'en contient pas

Sub Suppression()
Dim J As Long

  For J = Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1     ' De la dernière ligne à la 1ère
    If UCase(Range("A" & J + 1)) = "A" And UCase(Range("A" & J)) <> "A" Then
      Rows(J).Delete
    End If
  Next J
 End Sub

Le 03/12/2013 à 16:39

Bonjour,

Tout d'abord merci pour cette réponse aussi rapide.

J'ai lancé la macro je viens vers vous si celle-ci ne convenait pas.

Re

Alors la macro est terminée cependant elle a supprimé toutes les lignes n'ayant pas de A, et non la ligne figurant juste au dessus de celle qui a un A.

Sachant qu'il peut y avoir deux lignes consécutives où figure un A j'aimerais que la ligne supprimer soit celle juste au dessus de la première ligne comportant un A.

Ma demande ne devant pas être très clair, je m'excuse.

Le 03/12/2013 à 17:07

Bonjour

Prépares un fichier

Tu colorises les lignes qui devront être supprimées

Le 03/12/2013 à 17:15

Ci-joint le fichier demandé.

J'ai pris un extrait de mon fichier, je pense que la macro doit tester la première colonne...

Merci encore

6classeur-test.xlsx (12.38 Ko)

Le 03/12/2013 à 17:54

Bonjour