Utiliser un filtre auto. en VBA?

[regis1973]

Bonjour,
J'utilise un filtre automatique à l'aide d'une macro. Le critére utilisé est une variable.le probleme est que si la valeur de la variable n'est pas trouvée par le filtre et que je fais un copié collé du resultat du filtrage je me retrour avec toute les valeurs du tableau filtré
voici mon code:

sub filtre()
dim sem9 as string
Sheets('Année en cours').Select
Selection.AutoFilter Field:=1, Criteria1:=sem9
Selection.AutoFilter Field:=5, Criteria1:='=Process Côtes', Operator:= _
xlOr, Criteria2:='=Process Tabac'
Range('B7:l2000').Select
Selection.Copy
Sheets('calculs').Select
Range('df6').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
end sub


merci d'avance
Regis

 

[Charly2]

Bonsoir Régis, bonsoir à toutes et à tous 🙂

Je ne vois pas d'initialisation de la variable sem9 dans ton code ??? 😱

Tu peux coder ainsi si ton premier champ de données est en colonne A :

  If Sheets('Année en cours').Range('A:A').Find(sem9) Is Nothing Then
    Exit Sub
  End If
  ' La suite de ton code

Tiens-nous au courant.

A+ 😉