Comparaison de variables tableaux
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
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
