[VBA-E] Recherche sur plusieurs colonnes ?

Version imprimable

13/11/2006, 14h38
Kokito

[VBA-E] Recherche sur plusieurs colonnes ?
Bonjour tout le monde :)

Voilà, j'ai besoin d'aide, je suis un peu coincé :?

J'vais d'abord vous montrer un exemple avant d'expliquer mon problème :D

Prenons ce tableau en exemple :
Code:

1 2 3 4 5 6 7 Col A | Col B | Col C | -------|-------|-------| A | BC | 34 | A | CD | 23 | A | EF | 12 | B | BC | 45 |
Je souhaiterais récupérer la valeur de la Col C en passant en paramètres une valeur de la Col A et une valeur de la Col B ...

En sachant que j'ai 6 colonnes au total et près de 12000 lignes ... j'ai essayé de faire des boucles imbriquées mais ca devient vite lourd et ingérable ...

Je ne sais pas trop vers quelle fonction me diriger pour faire cela ...

J'espère avoir été assez clair dans mon post ;)

Merci à tous de votre aide :D
13/11/2006, 16h00
illight

Tu veux la mettre ou ta valeur ?

Tu as regardé du coté de la fonction Find ? :) C'est ce que les gens d'ici utilisent le plus souvent (perso je sais pas l'utiliser :mrgreen: ) mais je crois que c'est que pour une valeur cherchée par contre..Faut aller voir dans l'aide :)

Sinon tu peux nous montrer le programme avec les boucles imbriquées ? yaurait peut etre moyen de le réduire ;) :D
13/11/2006, 16h21
marsupilami34

Sinon regarde du coté de la fonction RECHERCHEV

Citation:

Envoyé par illight

Tu veux la mettre ou ta valeur ?

Tu as regardé du coté de la fonction Find ? :) C'est ce que les gens d'ici utilisent le plus souvent (perso je sais pas l'utiliser :mrgreen: ) mais je crois que c'est que pour une valeur cherchée par contre..Faut aller voir dans l'aide :)

Sinon tu peux nous montrer le programme avec les boucles imbriquées ? yaurait peut etre moyen de le réduire ;) :D

Voilà ce que je fais à l'heure actuelle, c'est lourd et ca prend au moins 3 minutes de traitement :mrgreen:

En fait le principe est que je vérifie que dans le tableau tous les cas possibles soient présents sinon j'écris dans le fichier log comme quoi il manque un cas ... :mrgreen:

La Fonction Log, c'est une fonction qui écrit dans un fichier Log ... :D

Tiens d'ailleurs petite question à part, comment peut-on sauter une ligne dans un IF, dans une fonction ou une chaine on met un "_" je crois mais dans un IF ? :mrgreen:

Code:

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
 
' Module principal :
    For a = 0 To 100
        If ((a > 20) And EstPair(Val(a))) Or (a <= 20) Then
            For b = 1 To UBound(DatasColB) ' vaut 23
                For c = 1 To UBound(DatasColC) ' vaut 3
                    For d = 1 To UBound(DatasColD) ' vaut 3
                        If FindCalcul(DatasColB(b), DatasColC(c), DatasColD(d), a) = False Then                            
                            Log True, "bla bla bla bla"
                        End If
                    Next d
                Next c
            Next b
        End If
    Next a
 
 
' Ma fonction appelée FindCalcul :
Function FindCalcul(ParamColB As String, ParamColC As String, ParamColD As String, ParamColE As Integer) As Boolean
    Dim RG As Range
    Dim FirstRow As String
 
    FindCalcul = False
 
    With Worksheets(1).Range("E2:E65536")
        Set RG = .Find(What:=ParamColE, LookAt:=xlWhole)
        If Not RG Is Nothing Then
            FirstRow = RG.row
            Do
                With Workbooks(1).Sheets(1)
                    If (Range("C" & RG.row).value = ParamColC) And (Range("D" & RG.row).value = ParamColD) And (Range("B" & RG.row).value = ParamColB) Then
                        FindCalcul = True
                        Exit Function
                    End If
                End With
                Set RG = .FindNext(RG)
            Loop While Not RG Is Nothing And RG.row <> FirstRow
        Else
            Exit Function
        End If
    End With
End Function

Bon courage et merci :mrgreen:

13/11/2006, 16h45
Kokito

Citation:

Envoyé par marsupilami34

Sinon regarde du coté de la fonction RECHERCHEV

J'vais zieuter ca :mrgreen:
13/11/2006, 23h34
Kokito

J'ai regardé du côté de RECHERCHEV, ca m'a conduit jusqu'à VLookUp ...

Mais pas moyen de faire marcher cette fonction grrrrrrrrrr :aie: :aie:

Soit erreur 1004, soit incompatibilité de type ... j'ai la poisse qui me colle on dirait :aie: :aie:
14/11/2006, 12h51
SilkyRoad

bonjour

tu peux aussi utiliser une fonction de ce type
(formule matricielle à valider par Ctrl+Shift+Entree)

Code:

=INDEX(D1:D12000;EQUIV(1;(A1:A12000="A")*(B1:B12000="CD")*(C1:C12000="XX");0))

L'exemple récupère la valeur de la colonne D en fonction des données contenues dans les colonnes A , B et C

bonne journée
michel
14/11/2006, 13h27
Kokito

Citation:

Envoyé par SilkyRoad

bonjour

tu peux aussi utiliser une fonction de ce type
(formule matricielle à valider par Ctrl+Shift+Entree)

Code:

=INDEX(D1:D12000;EQUIV(1;(A1:A12000="A")*(B1:B12000="CD")*(C1:C12000="XX");0))

L'exemple récupère la valeur de la colonne D en fonction des données contenues dans les colonnes A , B et C

bonne journée
michel

Wouaaahhhouuuu merci beaucoup c'est génial ca :mrgreen:

Encore merci, hop résolu :mouarf: