Filtre avec plus de 2 criteres

Résolu
hmcirta Messages postés 239 Date d'inscription   Statut Membre Dernière intervention   -  
hmcirta Messages postés 239 Date d'inscription   Statut Membre Dernière intervention   -

Bonjour,

j'ai un tableau dont les en-tetes sont sur la 2eme ligne. Les cellules de la colonne A contiennent du texte. je veux appliquer un filtre sur cette colonne pour n'afficher que les lignes qui contiennent Dies ou Mix ou Prod.

Merci de votre aide 


Excel2010

A voir également:

6 réponses

f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 

Bonjour,

Si filtre manuel, vous definissez un filtre sur votre tableau et click sur la colonne A du filtre et vous cochez que les mots que vous voulez.

0
danielc0 Messages postés 1856 Date d'inscription   Statut Membre Dernière intervention   229
 

Bonjour à tous,

Est-ce que les cellules sont égales à Dies ou Mix ou Prod ou est-ce que les cellules contiennent aussi autre chose (eg. "blabla dies blabla") ?

Daniel


0
hmcirta Messages postés 239 Date d'inscription   Statut Membre Dernière intervention   21
 

Bonjour,

Oui danielc0, c'est du texte du ce type.

J'ai oublié dans ma question de préciser que je veux le faire via VBA si possible.

Merci de vos reponses.

0
via55 Messages postés 14512 Date d'inscription   Statut Membre Dernière intervention   2 746
 

Bonjour

Si tu veux un code VBA adéquat il faut fournir ton fichier en le postant sur cjoint.com, en faisant créer un lien et en revenant le coller ici

Dans l'attente

Via


0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
danielc0 Messages postés 1856 Date d'inscription   Statut Membre Dernière intervention   229
 

En attendant le classeur, un essai :

Sub test()
  Dim Plage As Range, Tabl() As String, C As Range, Ctr As Long
  Set Plage = Range("A2", Cells(Rows.Count, 1).End(xlUp))
  Plage.AutoFilter
  ReDim Tabl(0)
  Ctr = -1
  For Each C In Plage
    If InStr(1, UCase(C.Value), "MIX") > 0 Or _
      InStr(1, UCase(C.Value), "DIES") > 0 Or _
      InStr(1, UCase(C.Value), "PROD") > 0 Then
      Ctr = Ctr + 1
      ReDim Preserve Tabl(Ctr)
      Tabl(Ctr) = C.Value
    End If
  Next C
  Plage.AutoFilter 1, Tabl, xlFilterValues
End Sub

Daniel


0
hmcirta Messages postés 239 Date d'inscription   Statut Membre Dernière intervention   21
 

Ca marche impecablement !!

Merci beaucoup, ca m'a pris la tete hier et ce matin ....Enfin je vais pouvoir gagner du temps.

Merci Daniel

0