HELP : Variable sous excel

[Résolu]
Signaler
Messages postés
2
Date d'inscription
samedi 17 janvier 2004
Statut
Membre
Dernière intervention
23 novembre 2006
-
Messages postés
2
Date d'inscription
samedi 17 janvier 2004
Statut
Membre
Dernière intervention
23 novembre 2006
-
Bonjour,

Je souhaite faire un filtre dans la feuille B (BIZ on 2005 Jobs) selon une cellule contenue dans la feuille A (Jobs),
mas en faisant une recherche qui contient, et non pas qui est égale à...

Selection.AutoFilter Field:= 16, Criteria1:=Var

avec ça il recherche bien les cellules contenant exactement la variable, or je voudrais qu'il rechcerche aussi celles qui contiennnent aussi par exemple si la variable est AAA, qu'il trouve aussi AAA.M41, AAA.M42, etc...

voici mon code :

Windows("Jobs.XLS").Activate
 Sheets("2005").Select
 Range("A2").Select
 
 While ActiveCell.Value <> ""
 
 Var = ActiveCell.Value
 Sheets("BIZ on 2005 Jobs").Select
 Range("P5").Select
            Selection.AutoFilter Field:=16, Criteria1:=Var
            Range("A3:C3").Select
            Selection.Copy
            Sheets("2005").Select
            ActiveCell.Offset(0, 2).Select
            Selection.PasteSpecial Paste: =xlValues, Operation:=xlAnd, SkipBlanks:= _
        False, Transpose:=False
           
   Sheets("BIZ on 2005 Jobs").Activate
   Application.CutCopyMode = False
   
   
    Sheets("2005").Select
    ActiveCell.Offset(1, -2).Select



Wend



End Sub





Merci d'avance,
Nicolas.

2 réponses

Messages postés
797
Date d'inscription
mardi 7 juin 2005
Statut
Membre
Dernière intervention
23 février 2011
7
Alors, avec l'éditeur de macro, voilà ce que j'obtiens lorsqu'avec un filtre automatique, je cherche ce qui contient Toto :
Selection.AutoFilter Field:=1, Criteria1:="=*Toto*", Operator:=xlAnd

Donc, il te suffit de modifier
Var = ActiveCell.Value
de cette façon :
Var = "*" & ActiveCell.Value & "*"

Molenn
Messages postés
2
Date d'inscription
samedi 17 janvier 2004
Statut
Membre
Dernière intervention
23 novembre 2006

Parfait, c'est exactement ce que je cherchais.

Merci beaucoup.