Bonjour

Je n'arrive pas à faire simple (pourtant, ça devrait être simple pour certains)

Question dans le titre

TabA de réference donne 10-50, 50-100, et 100-50 (TabA varie peut être 4-5 4-50 50-4 et TabB idem x valeur)

Dans l'exemple en cherchant, avec la TabB sur TabA, il doit trouver 10-50 (Lig 2) ,50-100 (Lig 4) et 100-50 (Lig 5)

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
37
38
39
 
Function Test1
Dim I as integer
Dim TabA()
Dim TabB()
Dim RechercheLaPaire as string
 
'NbDeRecherche= (3 * (3 - 1)) / 1     ' toujour resultat fixe 10(1)-50(2)-100(3) => 10-50/10-100/...50-100 ou 100-50
 
Redim TabA(1 to 3)
 
TabA(1)=10
TabA(2)=50
TabA(3)=100
 
ReDim TabB(1 To 5, 1 To 2)
 
TabB(1,1)=41
TabB(1,2)=45
 
TabB(2,1)=10
TabB(2,2)=50
 
TabB(3,1)=14
TabB(3,2)=45
 
TabB(4,1)=50
TabB(4,2)=100
 
TabB(5,1)=100
TabB(5,2)=50
 
'Soit par boucle ou Do ou select case?......
For I = 1 to Ubound(TabB)
'.......
if Ok then msgbox RechercheLaPaire 
next I
 
end function
Merci pour votre aide

En gros je recherche les 6x2 combi du TabA dans tabB à 2 Combi fois x Lig