Comparaison de variables tableaux Fermé

Question

Bonjour, 

Je découvre les variables tableaux, mais j'ai encore des difficultés à m'en servir :

J'enregistre deux tableaux à une dimension, qui ne font pas la même taille. 

' 1er tableau Req (Données String, par exemple "RENAULT MEGANE 1.6L")
derligR = Cells(Rows.Count, 2).End(xlUp).Row
Dim tabReq()
ReDim tabReq(derligR)
For i = 2 To derligR
    tabReq(i) = Range("R" & i)
Next

' 2ème tableau Zap (Données String, par exemple "MEGANE")
derligZ = Workbooks("Zap.xlsx").Sheets("ReqDE").Cells(Rows.Count, 2).End(xlUp).Row
Dim tabZap()
ReDim tabZap(derligZ)
For j = 5 To derligZ
    tabZap(j) = Workbooks("Zap.xlsx").Sheets("ReqDE").Range("B" & i)
Next

Une fois toutes mes données récupérées, j'aimerais savoir si un ou plusieurs tabZap (par exemple MEGANE) se trouvent dans tabReq (RENAULT MEGANE 1.6L), si c'est le cas, je lance une autre procédure.

Quelqu'un pourrait-il m'aider ?

En vous remerciant,

Nb


Configuration: Windows 7 / Firefox 18.0

gbinforme · Answer

Bonjour,

Tu as une fonction adaptée pour les  tableaux à une dimension : filter
 res = Filter(tabReq, tabZap élément recherché, True, 1)                    If UBound(res) < 0 Then                         l'élément n'est pas trouvé                    Else                         UBound(res)= nombre de présences                    end if

Comparaison de variables tableaux

1 réponse

Discussions similaires