Résultat inattendu

[Clm]

Bonjour, voici une macro que j'ai écris, mais il n'y a aucun résultat. Voici ma macro, pouvez me dire si il y a un pbm dans ma macro; MERCI

'********************************************************'
' '
' REMISE A ZERO DES COLONNES '
' '
'********************************************************'


Sheets('equip').Select

Selection.AutoFilter Field:=7
Selection.AutoFilter Field:=8
Selection.AutoFilter Field:=9


'*********** TEST1 *************'

If Range('B5').Text = 'Chassis' Then

Sheets('equip').Select
Selection.AutoFilter Field:=8, Criteria1:='Chassis'

ElseIf Range('B5').Text = 'Switch' Then

Sheets('equip').Select
Selection.AutoFilter Field:=8, Criteria1:='Switch'

End If

 

[philippe]

Bonjour
Difficile de repondre...
Pour ma part, je n'utilise pas text mais value, mais l'erreur ne se situe pas là
Essai de placer un point d'arret !
ou la commande msgbox Range('B5').text
sinon joint le fichier complet

Philippe

 

[Clm]

J'espere la derniere question ....


Selection.AutoFilter field:=7, Criterial:=Sheets('Config').Range('D5')



J'ai une erreur de 1004 ... d'ou peut elle provenir ?


MErci

 

[Clm]

J'ai trouvé pourquoi cela ne fonctionnai pas ....

c'est criteria1 et on criterial .... besoin de lunettes !