Excel 2003 : traitement des données

Et bien si tu as un traitement à faire à la main, enregistre-le dans une macro, et rappelle cette macro à chaque fois que tu en as besoin.

Salut,
Merci pour l'aide. Le problème c'est que le nombre de lignes concernées pour chaque critère est variable. Or dans ma macro, j'élimine un nombre fixé et invariable de lignes. Genre : supprimer les lignes 120 à 135. Mais si demain, le nb est plus grand, seules celles de 120 à 135 seront éliminées.
Que ferais-tu ?

Ta macro est enregistrée. C'est bien.

Maintenant il faut l'adapter :
- Virer les Activate, Select et autre Selection, à bon escient.
- Utiliser des If pour vérifier si les conditions sont respectées.

Merci pour tes encouragements.
si je souhaite faire un test sur le premier caractère du contenu d'un cellule, comment je dois procéder ?
Exemple de ce que je souhaite implémenter :
If left(Cells(i, 4);1) < "3" Then Rows(i).Delete
Mais la fonction left n'existe pas apparemment.
Merci pour tes lumières !

Pour plus de clarté voici mon code

Sub Mise_en_FormeGL()

'

' TESTESTTEST Macro

' Macro recorded 10/07/2006 by MILLIPORE

'

 
For i = 16000 To 2 Step -1

 
If Cells(i, 3) = "465" And Cells(i, 1) = "EI" Then Rows(i).Delete

If (Cells(i, 2) = "9413" Or Cells(i, 2) = "9430") And (Cells(i, 1) = "US" Or Cells(i, 1) = "CL") Then Rows(i).Delete

If Cells(i, 4) = "16A100" Then Rows(i).Delete

 
If Cells(i, 4) <= "300000" Then Rows(i).Delete  'et c est ici que ça bogue

 
Next i

 
End Sub

Au temps pour moi Zeb, je viens de trouver mon erreur. Elle provient du fait, que cela fonctionne parfaitement, seulement, cela prend bcp de temps.
Je pense que la longueur du traitement m'a fait pensé que cela boguait.
Problème résolu.

Rhoo... Problème de référence. --> Outils/Références/[x] VisualBasic Pour Application

Quelque chose ne va pas dans ton code :

If Truc1 Then Rows(i).Delete

If Truc2 Then Rows(i).Delete

Et si Truc1 est vrai et que Truc2 l'est aussi ?
Et bien tu supprimes légitimement la ligne i puis illégitimement la ligne i+1 qui entre temps et devenue la ligne i.

Que faire ? Une variable Boolean ou une belle et grosse condition, pleine de parenthèses et de Or. Au choix :

Dim a_supprimer As Boolean

 
For i = ....

	a_supprimer = Cells(i, 3).Value = "465" And Cells(i, 1).Value = "EI"

	a_supprimer = a_supprimer Or ((Cells(i, 2).Value = "9413" Or Cells(i, 2).Value = "9430") And (Cells(i, 1).Value = "US" Or Cells(i, 1).Value = "CL"))

	a_supprimer = a_supprimer Or Cells(i, 4).Value = "16A100"

	a_supprimer = a_supprimer Or Left(Cells(i, 4).Value ,1) <= "3" 

	If a_supprimer Then Rows(i).Delete

Next i

For i = ....

	If (Cells(i, 3).Value = "465" And Cells(i, 1).Value = "EI") Or _

	   ((Cells(i, 2).Value = "9413" Or Cells(i, 2).Value = "9430") And (Cells(i, 1).Value = "US" Or Cells(i, 1).Value = "CL")) Or _

	   (Cells(i, 4).Value = "16A100") Or _

	   (Left(Cells(i, 4).Value ,1) <= "3") Then

		Rows(i).Delete

	End If

Next i

Eh, eh, le temps que j'écrive une réponse et M. Stephanosse a trouvé la solution. Les remarques restent pertinentes.

Enjoy!

Et il te remercie pour la vigileance dont tu as fais preuve car effectivement, je me serais fait avoir. Merci beaucoup Zeb.