salut tt le monde !
mon problème c'est que j'ai 2 tableaux qui sont trié et je veux les combiné dans un seul tableau en ordre croissant, j'ai utilisé ce code, mais ça n'a pas marché, le déboguage me renvoie à la première ligne après le while (il me dit l'indice n'appartient pas à la ligne)

voici le 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
32
33
34
35
36
37
38
39
40
41
42
 
Sub main()
Dim ta(1 To 5), tb(1 To 5), tc(1 To 10), i As Integer, j As Integer, k As Integer
 
For i = 1 To 5
    ta(i) = InputBox("entrez ta(" & i & ")")
Next
 
For j = 1 To 5
    tb(j) = InputBox("entrez tb(" & j & ")")
Next
 
k = 1
j = 1
i = 1
 
While k <= 10
 
        If ta(i) < tb(j) Then
            tc(k) = ta(i)
            k = k + 1
            i = i + 1
 
        ElseIf tc(k) = ta(i) Then
            tc(k) = ta(i)
            k = k + 1
            tc(k) = tb(j)
            k = k + 1
        Else
            tc(k) = tb(j)
            k = k + 1
            j = j + 1
        End If
Wend
 
For i = k To 10
    s = s & tc(k) & " "
Next
 
MsgBox (s)
 
End Sub

et merci d'avance de vos réponses