C
Clm
Guest
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
'********************************************************'
' '
' 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