Bonjour et d'avance merci

Un ami ma créer une macro pour supprimer des lignes celle ci fonction trés bien si fichier utilisé ne comporte pas de #N/A

Voici pour mieux comprendre un bout de fichier et la macro.

En fait je veux supprimer les lignes qui ont "OUI" en colonne 8. En sachant que le #N/A est issu d'un traitement et je n'ai pas la possibilité de modifier cette information.

Sub test()
Const LigneDebut = 1
Const LigneFin = 1000
Const ColonneClient = 1
Const ColonneNbColis = 8
For I = LigneFin To LigneDebut Step -1
If Cells(I, 8) = "OUI" Then
Rows(I & ":" & I).Delete Shift:=xlUp
End If
Next I
End Sub

1 02/01/1900 3 A 7,00 P 8 OUI 2 03/01/1900 4 A 8,00 P 9 non 3 04/01/1900 5 A 9,00 P 10 non 4 05/01/1900 6 A 10,00 P 11 non 5 06/01/1900 7 A 11,00 P 12 non 6 07/01/1900 8 A 12,00 P 13 non 7 08/01/1900 9 A 13,00 P 14 non 8 09/01/1900 10 A 14,00 P 15 oui 9 10/01/1900 11 A 15,00 P 16 non 10 11/01/1900 12 A 16,00 P 17 non 11 12/01/1900 13 A 17,00 P 18 non 12 13/01/1900 14 A 18,00 P 19 non 13 14/01/1900 15 A 19,00 P 20 non 14 15/01/1900 16 A 20,00 P 21 non 15 16/01/1900 17 A 21,00 P 22 non 16 17/01/1900 18 A 22,00 P 23 oui 17 18/01/1900 19 A 23,00 P 24 non 18 19/01/1900 20 A 24,00 P 25 non 19 20/01/1900 21 A 25,00 P 26 non 20 21/01/1900 22 A 26,00 P 27 non 21 22/01/1900 23 A 27,00 P 28 non 22 23/01/1900 24 A 28,00 P 29 non 23 24/01/1900 25 A 29,00 P 30 non 24 25/01/1900 26 A 30,00 P 31 non 25 26/01/1900 27 A 31,00 P 32 non 26 27/01/1900 28 A 32,00 P 33 non 27 28/01/1900 29 A 33,00 P 34 non 28 29/01/1900 30 A 34,00 P 35 non 29 30/01/1900 31 A 35,00 P 36 non 30 31/01/1900 32 A 36,00 P 37 #N/A 31 01/02/1900 33 A 37,00 P 38 #N/A 32 02/02/1900 34 A 38,00 P 39 #N/A 33 03/02/1900 35 A 39,00 P 40 #N/A

Bonjour,

Je te conseille de rajouter cette ligne qui vérifie d'abord s'il n'y a pas d'erreur dans la cellule. Sans oublier le End If à la fin. Je ne sais pas si c'est la meilleure méthode.

For I = LigneFin To LigneDebut Step -1

If IsError (Cells(I, 8).Value) = False Then

If Cells(I, 8) = "OUI" Then
Rows(I & ":" & I).Delete Shift:=xlUp
End If

End If

Next I

pupuce,

pour ma part ta méthode et la meilleure, je te remercie vivement de ta promptitude et de ton efficacité maintenant la macro fonctionne.

Merci