Discussion :

[GESCOM2000]

Bonjour

dans un TabloA de reference => Redim TabloA(1 to 3) j'ai 1-2-3
dans un TabloB pour la recherche => ReDim TabloB(1 To 5, 1 To 2) j'ai 1-2 1-3 2-3 1-5 etc...

J'aimerais trouver à quel index se trouve les lignes du tableau B en fonction du tablo A

Exemple le 1-2 se trouve a la ligne 1 du tableau B (==> TabbloB(1,1)=1 TabbloB(1,2)=2 <==)SANS passer par application.transpose(Apllication.index......prefere une boucle for ou un DO plus fiable dans le temps.

Merci pour votre aide

[Invité]

Bonjour,

Pas sûr que cela réponde à votre demande. Nb : Si vous n'avez pas mis Option Base 1 en tête de votre module, le premier indice de vos matrices est l'indice 0 comme dans mon code.

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
 
Sub TestMatrice()
 
Dim TabloA(2) As Variant, TabloB(4, 1) As Variant
Dim I As Integer, J As Integer
Dim ContenuA As Variant, ContenuB1 As Variant, ContenuB2 As Variant
 
    ContenuA = Array(1, 2, 3)
    ContenuB1 = Array(1, 1, 2, 1, 2)
    ContenuB2 = Array(2, 3, 3, 5, 4)
 
    For I = LBound(TabloA) To UBound(TabloA)
        TabloA(I) = ContenuA(I)
    Next I
    For I = LBound(TabloB, 1) To UBound(TabloB, 1)
        TabloB(I, 0) = ContenuB1(I)
        TabloB(I, 1) = ContenuB2(I)
    Next I
 
 
    'Debug.Print TabloB(UBound(TabloB, 1), 0)
 
    For I = LBound(TabloA) To UBound(TabloA)
        For J = LBound(TabloB, 1) To UBound(TabloB, 1)
            If TabloA(I) = TabloB(J, 0) Then
               MsgBox "Tableau A : valeur " & TabloA(I) & ", Indice : " & I & Chr(10) & "Tableau B : valeur " & TabloB(J, 0) & ", Indice : " & J
            End If
        Next J
    Next I
 
End Sub

[unparia]

Bonjour

J'aimerais trouver à quel index se trouve les lignes du tableau B en fonction du tablo A

n'est pas suffisamment clair pour moi, dès lors que la matrice A a une seule dimension et que la matrice B en a deux.
S'agit-il d'une correspondance dans la seule colonne 1 de la matrice B ou dans l'une ou l'autre des deux colonnes de la matrice B ?

[GESCOM2000]

Bonjour

c'est bien comme ca