Macro supprimer des lignes

[Lucie]

Bonjour à tous,

J'aurais besoin de votre aide sur une macro...

Ce je souhaite faire:
- A chaque fois que le mot 'Doublon' apparaît ds la colonne C je souhaite supprimer la ligne concernée ainsi que la ligne du dessous.
Exemple: Doublon en 'C2' donc suppression de la ligne 2 et 3.

(Ds le fichier joint je vous ai indiqué la situation avt et la situation après.)

Voilà .... je vous remercie tous pour votre aide !

Lucie [file name=test_20060215121554.zip size=3839]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/test_20060215121554.zip[/file]

 

[Blunet]

Salut Lucie, j'ai pas oufert ton fichier vu le titre de ton post je pense que tu aurais pu avoir la solution en faisant une recherche sur le forum, voilà quelques résultats trouvés:
[ul]Suppression de lignes[/ul]
Lien supprimé
Lien supprimé
[ul]Si suppression conditionnelle
[/ul]
http://www.excel-downloads.com/forums/2-129875-suppression-conditionnelle-une-ligne.htm#129875
ou http://www.excel-downloads.com/forums/2-122619-suppression-ligne-si.htm#122619 ou encore Lien supprimé

[ul]Si lignes redondantes [/ul]
Lien supprimé

[ul]Si ligne précise [/ul]
Lien supprimé

 

[Robert]

Bonjour Lucie, bonjour le forum,

Je te propose la macro suivante :

Sub Macro1()
Dim p As Range
Dim c As Range

Set p = Range('C1:C' & Range('B65536').End(xlUp).Row)
Set c = p.Find('Doublon', Range('C1'), , xlWhole)
If Not c Is Nothing Then
Do
Range(c, c.Offset(1, 0)).EntireRow.Delete
Set p = Range('C1:C' & Range('B65536').End(xlUp).Row)
Set c = p.Find('Doublon', Range('C1'), , xlWhole)
Loop While Not c Is Nothing
End If
End Sub

p.s. normalement j'aurais dû utiliser FindNext mais ça ne fonctionnait pas alors j'ai bidouillé pour que ça fonctionne. Ce n'est pas très... (marquer ici la religion que vous voulez...)

Édition

Bonjour Blunet on s'est croisés.

Message édité par: Robert, à: 15/02/2006 12:45

 

[Lucie]

Merci bcp !
ça fonctionne très bien !

bon après-midi.

 

[rastafouette]

Re : Macro supprimer des lignes

Bonjour,

J'ai une queston du même type.
Voilà, je souhaite supprimer les lignes allant de numero_ligne+1 à 8000.
J'ai essayé une boucle, mais c'est très très long
Il me semble que je pourrais utiliser qch comme ça pour faire ma selection :
Range("E2:E" & Range("E2").End(xlDown).Row
mais mon numero_ligne est variable et il n'y a pas de condition de suppression.
Enfin bref, je suis un peu dans le flou...😕

Merci d'avance de votre aide...

Rastafouette