Pour Wally nouveau pb item

Bonjour Ben et le forum,

Désolé de ne pas avoir pu répondre plus tôt (en déplacement à l'étranger...).

Juste une petite précision : la nouvelle plage de valeurs à prendre en compte débute-t-elle à l'item maximum ou à l'item maximum + 1. En d'autres termes, cette nouvelle plage va-t-elle :

de 1637 à 9998 ?

ou

de 1638 à 9998 ?


Slts

wally

salut wally
J'ai trouvé, j'ai cherché toute l'après midi lol je viens bon
je me suis fais une 2ème colonne ds la liste des item car dont mon contexte ces nombre corresponde à des repères

j'ai mis donc ceci :
Sub tri()

Application.ScreenUpdating = False

Worksheets("bmfl").Select
Worksheets("resultat").Range("A:N").ClearContents

For Each oRge In ActiveSheet.Range("B2:B" & ActiveSheet.Range("B65536").End(xlUp).Row)
If (IsNumeric(oRge.Value) _
And oRge.Value > 99 _
And oRge.Value <> 997 _
And oRge.Value <> 998 _
And oRge.Value <> 988 _
And oRge.Value <> 9999 _
And Worksheets("item").Range("B:B").Find(oRge.Value, , , xlWhole) Is Nothing _
And oRge.Value <> 999) _
Or Not (IsNumeric(oRge.Value) _
Or oRge.Value = "1KIT" _
Or oRge.Value = "AAAA") Then
If Worksheets("item").Range("A:A").Find(oRge.Value, , , xlWhole) Is Nothing Then
bFnd = False
Else
If (IsNumeric(oRge.Offset(1, 0).Value) _
And (oRge.Offset(1, 0).Value <= 99 _
Or oRge.Offset(1, 0).Value = 997 _
Or oRge.Offset(1, 0).Value = 998 _
Or oRge.Offset(1, 0).Value = 988 _
Or oRge.Offset(1, 0).Value = 999)) _
Or oRge.Offset(1, 0).Value = "AAAA" _
Or oRge.Offset(1, 0).Value = "1KIT" Then
bFnd = True
Call resultat
Else
bFnd = False
End If
End If
Else
If bFnd Then
Call resultat
End If
End If
Next oRge

Application.ScreenUpdating = True

End Sub

En tout cas merci de répondre toujours à mes problèmes

Passe une bonne journée
@bientot