Filtre sur plusieurs critères (dans des champs de saisie)

Question

J'essaie de créer un filtre sur 9 critères au maximum quand les 9 champs sont renseignés. j'ai créé un bouton de recherche qui me renvoie vers un userform dans lequel je dois renseigner au moins 1 critère de recherche minimum. je bloque je n'ai jamais fais ce style de recherche. Est ce que vous pourriez m'aider? J'ai l'impression que c'est très simple mais je n'y arrive pas. Tout les lignes sont supprimé quand j'ai fait des essais. Merci de votre aide. Mon fichier Ci-joint...

BrunoM45 · Accepted Answer

Re,

Je m'aperçois que tu n'as pas compris ou lu mon code pour ne pas faire une boucle au départ pour tes TextBox

Sinon le bug vient du fait que tu veux afficher toutes les données alors que le filtre est déjà désactivé,
il faut donc effectuer un test.

Pour finir, il faudra voir ou revoir la programmation objet

 Private Sub CommandButton1_Click()
  Dim Ind As Integer, dLig As Long
  For Ind = 1 To 9
    Me.Controls("TextBox" & Ind).Value = ""
  Next Ind
  ' Test si filtre est activé, affiché toutes les données
  If ActiveSheet.AutoFilterMode = True Then ActiveSheet.ShowAllData
  ' Effectuer le tri
  With ActiveWorkbook.Worksheets("RCR")
    dLig = .Range("A" & Rows.Count).End(clup).Row
    With .AutoFilter.Sort
      .SortFields.Clear
      .SortFields.Add Key:=Range("A6:A" & dLig), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
      .Header = xlYes
      .MatchCase = False
      .Orientation = xlTopToBottom
      .SortMethod = xlPinYin
      '   .Apply
    End With
  End With
End Sub

A+

BrunoM45 · Accepted Answer

Re, Punaise un minimum de recherche svp mon doigt à dérapé, c'est XlUp...

BrunoM45 · Answer

Je vous invite à lire la charte du forum &#91;A LIRE AVANT DE POSTER&#93; et notamment Dans tous les cas, ne postez JAMAIS de fichiers avec des informations personnelles ou confidentielles ( cet utilitaire peut vous aider à les retirer). A+...

BrunoM45 · Answer

Re,

Et bien pas de chance une adresse mail testée au hasard existe (et je tombe dessus )
je n'ai pas vérifier le reste du coup

Merci d'utiliser l'utilitaire de ce site pour anonymiser les données

A+

BrunoM45 · Answer

Re,

Merci en revanche je vois un soucis pour le filtrage

En effet vous avez de lignes fusionnées (Destinataires, Sujet, Volet) avec une seule valeur pour toutes les lignes

Le filtre ne fonctionnera donc pas comme il faut !

A+

BrunoM45 · Answer

Re, Un 1er jet de ma vision des choses, ça n'a pas l'air tout à fait fonctionnel encore (donc à modifier) A+...

BrunoM45 · Answer

Re,

Tu as tout à fait raison effectivement

Voici le code, qui fonctionnera beaucoup mieux

Private Sub CommandButton2_Click()
  Dim Ind As Integer, dLig As Long, sCrit As String
  Dim TabCol As Variant, NumCol As Long
  ' Liste des colonnes à prendre en compte
  TabCol = Split("A,B,G,H,I,J,K,R,T", ",")
  ' Avec la feuille active
  With ActiveSheet
    ' Définir la plage à traiter
    Set Rng = .Range("A6").CurrentRegion
    ' Déplacer la plage d'une ligne vers le bas et la redimensionner
    Set Rng = Rng.Resize(Rng.Rows.Count - 1, Rng.Columns.Count).Offset(1, 0)
    ' Suis l'ordre des TextBox
    For Ind = 1 To 9
      ' Préparer le critère de filtre
      sCrit = ""
      ' Si le TextBox contient une valeur
      If Me.Controls("Textbox" & Ind) <> "" Then
        ' Définir le numéro de colonen à traiter
        NumCol = Range(TabCol(Ind - 1) & "1").Column
        ' Critère de filtre
        sCrit = Me.Controls("Textbox" & Ind).Value
        ' Appliquer le filtre à la colonne
        Rng.AutoFilter Field:=NumCol, Criteria1:=sCrit
      End If
    Next Ind
  End With
End Sub

A tester

BrunoM45 · Answer

Re, De rien c'est gratuit Ce n'est pas de la programmation objet là, c'est simplement effectuer une recherche sur cette ligne https://www.google.com/search?q=excel+vba+trouver+derniere+cellule+non+vide https://www.excel-pratique.com/fr/astuces_vba/derniere-ligne Et encore plus simple https://www.google.com/search?q=dLig+%3D+.Range%28%22A%22+%26+Rows.Count%29.End%28clup%29.Row No comment.....