filtre élaboré, enfin un peu

Bonjour,

En fait tout marche très bien avec la macro suivante:

Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 30/06/2005 par GCHMDIR
'

'
min_oi = 'N00300226'
max_oi = 'N00300227'

Range('A10').Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:='>=' & min_oi, Operator:=xlAnd _
, Criteria2:='<=' & max_oi

End Sub

Aucune différence entre les versions 2000 et 2003. Alors d'où venait le problème?

Tout simplement parceque dans ta liste il y a un espace à la fin de chaque code, c'est pourquoi le = ne marche pas.

Le premier code s'affiche car 'N00300226 ' est > 'N00300226'
le deuxième ne s'affiche pas car 'N00300227 ' est différent de 'N00300227'.

Je te t'envoie pas de soleil des Antilles car il pleut beaucoup en ce moment mais le coeur y est.

@+

Gael

TU NE DOIS PAS UTILISER Operator:=xlAnd si tu veusx afficher toutes les valeurs correspondantes aux criteres il faut utiliser Operator:=xlOr

Bonjour Visiteur,

En fait, dans ce cas, je ne comprends pas ta remarque.

Comme il s'agit d'un mini maxi, il faut prendre tout ce qui est à la fois >mini ET <maxi.

Si je mets un OU, j'aurais aussi les valeurs >maxi et <mini.

@+

Gael

bonsoir les antilles,

désolé pour le retard à te répondre mais j'avais un martiniquais à la maison.

tu as raison pour l'espace, je l'avais identifié, mais j'ai mis max ou min_oi left(variable,8).


j'ai compri mon erreur, j'ai modifié mon fichier origine pour supprimer les espaces et tout va très bien.


merci pour tout chez nous on veut un peu de pluie