Supprimer ligne incorrecte

[René du var]

Bonsoir le forum,

J'ai besoin de créer une macro capable de supprimer toutes les lignes qui ne contiennent pas un chiffre en tête de ligne

exemple :

si la valeur de la ligne 1 colonne A est égal à un chiffre compris
entre 97 000 et 100 000 alors ok sinon il faut supprimer cette ligne entière

répéter l'opération pour toutes les lignes

merci d'avance

René du var

 

[juju]

Hello,

Essaie avec cette macro :

Sub suppr()
Dim i As Integer
For i = Range("a10000").End(xlUp).Row To 1 Step -1
If Range("a" & i).Value > 96999 And Range("a" & i).Value < 100001 Then
Range("a" & i).EntireRow.Delete
End If
Next i
End Sub

Bye
Ju

 

[René du var]

merci pour ta réponse

ca fonctionne pas

ca plante

j'ai peut être commis une erreur

René du var

 

[juju]

Hello,

Peux tu mettre ton fichier en ligne...

@ +

Ju

 

[René du var]

Bonjour,

tu as raison le fichier sera plus clair

merci

René du var

 

[René du var]

Supprimer ligne incorrecte supplément d'info

bonjour voici un exemple
je veux garger que les lignes qui commencent par des chiffres

exemple de la macro pour environ 4 000 lignes : Si la colonne A et la colonne B comportent des chiffres alors rien sinon supprime la ligne

merci

René du var



-
-
-
-

1

370
#NOM? ORERIE GENERAL E 8 029
GIRO NDE
-
97723 1391263113100 3 63
97724 1410585288000 77 33
97725 1420591125000 68 63
97726 1421013055500 27 33
97727 1430133243000 48 33

 

[juju]

Hello,

Essaie avec cette macro. Par contre il ne faut pas qu'il y ait d'erreur, type #Nom.

Sub suppr()
Dim i As Integer
For i = Range("a5000").End(xlUp).Row To 1 Step -1
If Range("a" & i).Value Like "1*" = False And Range("a" & i).Value Like "2*" = False And Range("a" & i).Value Like "3*" = False And Range("a" & i).Value Like "4*" = False And Range("a" & i).Value Like "5*" = False And Range("a" & i).Value Like "6*" = False And Range("a" & i).Value Like "7*" = False And Range("a" & i).Value Like "8*" = False And Range("a" & i).Value Like "9*" = False Then
Range("a" & i).EntireRow.Delete
End If
Next i
End Sub

Bon je sais c'est pas terrible mais au moins çà marche ;-)

Bye

Ju

 

[juju]

Au fait, c'est aussi à cause des #nom que la 1ere marcj=hait po... et puis de toute fçon j'avais inversé... lol

Sub suppr()
Dim i As Integer
For i = Range("a10000").End(xlUp).Row To 1 Step -1
If Range("a" & i).Value < 97000 Or Range("a" & i).Value > 100000 Then
Range("a" & i).EntireRow.Delete
End If
Next i
End Sub

Bye

Ju

 

[René du var]

Salut

merci pour ton travail

René du var