Filtre avec plus de 2 criteres

Résolu
hmcirta Messages postés 249 Date d'inscription   Statut Membre Dernière intervention   -  
hmcirta Messages postés 249 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

6 réponses

  1. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     

    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
  2. danielc0 Messages postés 2181 Date d'inscription   Statut Membre Dernière intervention   287
     

    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
  3. hmcirta Messages postés 249 Date d'inscription   Statut Membre Dernière intervention   23
     

    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
  4. via55 Messages postés 14391 Date d'inscription   Statut Membre Dernière intervention   2 759
     

    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
  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  6. danielc0 Messages postés 2181 Date d'inscription   Statut Membre Dernière intervention   287
     

    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
  7. hmcirta Messages postés 249 Date d'inscription   Statut Membre Dernière intervention   23
     

    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