Comparaison de variables tableaux

nabhalia Messages postés 23 Date d'inscription   Statut Membre Dernière intervention   -  
gbinforme Messages postés 14946 Date d'inscription   Statut Contributeur Dernière intervention   -
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


A voir également:

1 réponse

gbinforme Messages postés 14946 Date d'inscription   Statut Contributeur Dernière intervention   4 724
 
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
0