Discussion :

[AmauryLondon]

Bonjour a tous

jai un array avec 70 colonnes environ ( je sais ca fait beaucoup)
suivant mes recherches jaimerai quil filtre les mots qui sont dans certaines colonnes.
et quil me les affiche.

mais je narrive pas a faire sauf a base de dizaine de if le bon code

il y aurait il une fonction
par exemple rechercher(colonne4: "XYZ", colonne7: "15.30" ...)
et que ligne par ligne mon array reponde true/false?

merci par avance

Cordialement

[Kimy_Ire]

Hum...
Prenons ton exemple. Tu veux savoir si dans la colonne4 on trouve "XYZ" et à la même ligne dans la colonne7 "15.30" ?
Tu souhaites afficher ces lignes "True" dans un nouvel onglet ? Tu veux une MsgBox qui récapitule toutes les lignes "True" ?

Je n'ai pas bien compris ce que tu souhaites au final.

[Invité]

Bonjour,
Est-ce-que c’est ça que tu cherches ?

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
Function RechercheArray(Tableau, ParamArray args() As Variant) As Boolean
Dim L As Long
Dim C As Long
Dim Touve() As Boolean
 
ReDim Touve(UBound(args))
Debug.Print UBound(args)
    For L = 0 To UBound(Tableau)
        t = Tableau(L)
        For C = 0 To UBound(args) Step 2
            If UCase(Trim("" & t(args(C) - 1))) = UCase(Trim("" & args(C + 1))) Then
                Touve(C) = True
            End If
        Next
        RechercheArray = True
        For C = 0 To UBound(args) Step 2
            RechercheArray = RechercheArray And Touve(C)
        Next
        If RechercheArray = True Then Exit Function
    Next
 
End Function
Sub Test()
 
Dim Tableau()
ReDim Preserve Tableau(0)
Tableau(0) = Array("TEXT1", "TEXT2", "TEXT3", "TEXT4", "TEXT5", "TEXT6", "TEXT7", "TEXT8", "TEXT9", "TEXT10", "TEXT11", "TEXT12", "TEXT13", "TEXT14", "TEXT15", "TEXT16", "TEXT17", "TEXT18", "TEXT19", "TEXT20", "TEXT21", "TEXT22", "TEXT23", "TEXT24", "TEXT25", "TEXT26", "TEXT27", "TEXT28", "TEXT29", "TEXT30", "TEXT31", "TEXT32", "TEXT33", "TEXT34", "TEXT35", "TEXT36", "TEXT37", "TEXT38", "TEXT39", "TEXT40", "TEXT41", "TEXT42", "TEXT43", "TEXT44", "TEXT45", "TEXT46", "TEXT47", "TEXT48", "TEXT49", "TEXT50", "TEXT51", "TEXT52", "TEXT53", "TEXT54", "TEXT55", "TEXT56", "TEXT57", "TEXT58", "TEXT59", "TEXT60", "TEXT61", "TEXT62", "TEXT63", "TEXT64", "TEXT65", "TEXT66", "TEXT67", "TEXT68", "TEXT69", "TEXT70")
ReDim Preserve Tableau(1)
Tableau(1) = Array("TEXT1", "TEXT2", "TEXT3", "TEXT4", "TEXT5", "TEXT6", "TEXT7", "TEXT8", "TEXT9", "TEXT10", "TEXT11", "TEXT12", "TEXT13", "TEXT14", "TEXT15", "TEXT16", "TEXT17", "TEXT18", "TEXT19", "TEXT20", "TEXT21", "TEXT22", "TEXT23", "TEXT24", "TEXT25", "TEXT26", "TEXT27", "TEXT28", "TEXT29", "TEXT30", "TEXT31", "TEXT32", "TEXT33", "TEXT34", "TEXT35", "TEXT36", "TEXT37", "TEXT38", "TEXT39", "TEXT40", "TEXT41", "TEXT42", "TEXT43", "TEXT44", "TEXT45", "TEXT46", "TEXT47", "TEXT48", "TEXT49", "TEXT50", "TEXT51", "TEXT52", "TEXT53", "TEXT54", "TEXT55", "TEXT56", "TEXT57", "TEXT58", "TEXT59", "TEXT60", "TEXT61", "TEXT62", "TEXT63", "TEXT64", "TEXT65", "TEXT66", "TEXT67", "TEXT68", "TEXT69", "TEXT70")
 
MsgBox RechercheArray(Tableau, 5, "TEXT1", 10, "TEXT2", 20, "TEXT3")
MsgBox RechercheArray(Tableau, 1, "TEXT1")
MsgBox RechercheArray(Tableau, 1, "TEXT1", 25,"TEXT25",70,"TEXT70"  )
 
MsgBox RechercheArray(Tableau, 5, "TEXT1", 10, "TEXT2", 20, "TEXT3", 25, "TEXT4")
End Sub