supprimer ligne en utilisant macro

[carlita]

Bonsoir,

je possède un fichier qui contient des lignes inutiles. Or mon fichier étant très gros (+de 18000 lignes) je souhaiterais utiliser une macro pour les supprimer.
Le point commun de ces lignes à supprimer est la valeur dans la colonne E : Sum of Sites
Un petit exemple en pièce jointe.
Merci pour votre aide,

Carlita

 

[Hervé]

Bonsoir

A pas vu la pièce jointe, moi

Mais cette macro devrait faire ce que tu souhaite :

Public Sub supprimeligne()
Dim i As Integer

For i = 20000 To 1 Step -1
If Range('E' & i).Value = 'Sum of Sites' Then
Rows(i).Delete
End If
Next i

End Sub

A plus

 

[carlita]

désolée pour la pièce jointe,
J'ai bien peur que la macro ne marche pas.
Merci d'avance pour ta précieuse aide.

Carlita

 

[carlita]

Excuse moi Hervé mais j'ai réussi à faire fonctionner la macro.

Merci pour tout
Carlita

 

[Hervé]

Bonjour

ben si cette macro fonctionne, peut etre pas sur ton fichier.

C'est pour ca que l'envoi d'une pièce jointe serait utile.

Moins de 50 Ko, zippé et pas de signe dans le nom, ni d'accent.

Au plaisir de te lire.

Edition : AH , tant mieux.

Message édité par: Hervé, à: 04/04/2005 10:45