Sujet Précédent Sujet Suivant

HELP : Variable sous excel

Résolu
braddybrad Messages postés 2 Date d'inscription samedi 17 janvier 2004 Statut Membre Dernière intervention 23 novembre 2006 - 23 nov. 2006 à 11:15
braddybrad Messages postés 2 Date d'inscription samedi 17 janvier 2004 Statut Membre Dernière intervention 23 novembre 2006 - 23 nov. 2006 à 17:13
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

Réponse 1 / 2
Molenn Messages postés 797 Date d'inscription mardi 7 juin 2005 Statut Membre Dernière intervention 23 février 2011 7
23 nov. 2006 à 11:34
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
3
Réponse 2 / 2
braddybrad Messages postés 2 Date d'inscription samedi 17 janvier 2004 Statut Membre Dernière intervention 23 novembre 2006
23 nov. 2006 à 17:13
Parfait, c'est exactement ce que je cherchais.

Merci beaucoup. 
0
Rejoignez-nous