Recherche Texte Macro de Recherche conditionnelle

**NONOSSONV** · 03/04/2015, 17h50

Bonjour mes Chers Amis,
j'ai essayé toutes les journée précédentes de trouver une solution de mon problème, et j'ai pas encore réussi,
le problème est le suivant:On a des colonnes A/ B/ C/ D:
A: on a par exemple des sociétés: Alpha, Beta, Z, Y,M...
B: on trouve le Taxe pro,
C: TVA
D: gestion de paie
dans chaque colonne on trouve 3 critères: cellule vide, NA ou X
La significations des 3 critères:
une cellule vide = Dossier encours,
NA = Dossier non applicable
X = Dossier fini,
je souhaite avec votre aide d'avoir une macro, avec un tableau contient: une case vide dédiée pour la nomination des colonnes B/C/D et les 3 critères fixes,
exemple si je tape Taxe pro et je coche la case de Dossier fini, elle fait la recherche et il masque tous les sociétés de Taxe pro encours et NA et elle garde les sociétés avec les critères recherchés,
NB: la recherche peut contient deux critères différents,
voici le fichier ci-joint pour la démonstration.
merci 1000 fois pour les personnes qui vont essayer de m'aider
merci infiniment

**joe.levrai** · 03/04/2015, 18h13

Bonjour,

tu peux t'orienter sur les filtres automatiques : méthode Autofilter en VBA

Si Philippe passe par là, il ne manquera pas de te conseiller les filtres avancés (oui oui ... faut que je m'y mette je sais

)

**NONOSSONV** · 03/04/2015, 18h22

s'il est possible je veux une macro stp? très rapide et possessionnelle

**joe.levrai** · 03/04/2015, 18h28

tu peux utiliser l'enregistreur de macro sur un seul scenario en utilisant les filtres automatiques dans Excel

ensuite tu postes ton code et on va t'aider à l'optimiser.

**NONOSSONV** · 03/04/2015, 18h40

pour être honnête je suis pas un développeur, je suis un comptable et je suis en besoin de cette macro
si vous pouvez m'aider,
merci

**gnain** · 03/04/2015, 19h36

Bonjour,
essaie ceci

dans le module de ta feuille (voir fichier joint en bas)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$E$12" Then
    Dim colonne
    Dim Ligne As String
 
    Cells.EntireRow.Hidden = False
 
    If Cells(12, 5) = "TVA" Then
        colonne = 2
    ElseIf Cells(12, 5) = "Taxe Pro" Then
        colonne = 3
    ElseIf Cells(12, 5) = "Paie" Then
        colonne = 4
    ElseIf Cells(12, 5) = "IS" Then
        colonne = 5
    End If
 
    For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
 
        If Cells(13, 5) = "" And Cells(14, 5) = "" And Cells(15, 5) = "" Then
            Ligne = Ligne & "," & i & ":" & i
        ElseIf Cells(13, 5) <> "" And Cells(14, 5) = "" And Cells(15, 5) = "" Then
            If Cells(i, colonne) <> "" Then Ligne = Ligne & "," & i & ":" & i
 
        ElseIf Cells(13, 5) = "" And Cells(14, 5) <> "" And Cells(15, 5) = "" Then
            If UCase(Cells(i, colonne)) <> "X" Then Ligne = Ligne & "," & i & ":" & i
 
        ElseIf Cells(13, 5) = "" And Cells(14, 5) = "" And Cells(15, 5) <> "" Then
            If UCase(Cells(i, colonne)) <> "NA" Then Ligne = Ligne & "," & i & ":" & i
 
        ElseIf Cells(13, 5) <> "" And Cells(14, 5) <> "" And Cells(15, 5) = "" Then
            If Cells(i, colonne) <> "" And UCase(Cells(i, colonne)) <> "X" Then Ligne = Ligne & "," & i & ":" & i
 
        ElseIf Cells(13, 5) = "" And Cells(14, 5) <> "" And Cells(15, 5) <> "" Then
            If UCase(Cells(i, colonne)) <> "X" And UCase(Cells(i, colonne)) <> "NA" Then Ligne = Ligne & "," & i & ":" & i
 
        ElseIf Cells(13, 5) <> "" And Cells(14, 5) = "" And Cells(15, 5) <> "" Then
            If Cells(i, colonne) <> "" And UCase(Cells(i, colonne)) <> "NA" Then Ligne = Ligne & "," & i & ":" & i
 
        ElseIf Cells(13, 5) <> "" And Cells(14, 5) <> "" And Cells(15, 5) <> "" Then
            If Cells(i, colonne) <> "" And UCase(Cells(i, colonne)) <> "X" And UCase(Cells(i, colonne)) <> "NA" Then Ligne = Ligne & "," & i & ":" & i
 
        End If  
    Next
 
    Ligne = Mid(Ligne, 2)
    If Ligne <> "" Then
        Range(Ligne).EntireRow.Hidden = True
    End If
 
End If
End Sub