EPURER UN FICHIER

[gefree]

Bonjour,

Je voudrai deleter toutes les lignes ou la cellule A n'est pas egale a "PH" sachant que mon fichier se reactualise toute les heures et donc le nb total de lignes varie.

Merci d'avance pour votre aide....

 

[Vériland]

Bonjour Gefree et le Forum

Tiens je t'ai fais cette macro qui exécute ta requête...donc elle supprime toutes les lignes dont la valeur de la cellule A ne correspond pas à "PH"...

Option Explicit

'Vériland Juillet 2003
'
Sub SupprimeSelonValeur()
Dim DerLigne As Long
Dim Boucle As Long
Dim Cherche As String
Cherche = "PH"
With ActiveSheet.UsedRange
DerLigne = .Cells(.Cells.Count).Row
End With
For Boucle = DerLigne To 1 Step -1
If Range("A" & Boucle).Value <> Cherche Then
Rows(Boucle).Delete
End If
Next Boucle
End Sub

PS : Macro à copier depuis le forum auquel cas tu risques d'avoir les attributs GRAS du post dans la procédure