Discussion :

[goofyto8]

bonjour,

je voudrais avoir un exemple de programmation la plus basique possible , avec des boucles imbriquées et uniquement des instructions

For ...To

Next

et l'instruction de condition

If ...Then

Pour comparer un à un, les i éléments d'un tableau Ta() avec les j éléments d'un second tableau Tb() et stocker dans un troisième tableau Tc () uniquement les éléments du second tableau qui diffèrent de ceux du premier tableau Ta()

[gnain]

Bonjour,

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
Sub test()
 
    Dim Tb(2) As String
    Dim Ta(2) As String
    Dim Tc(2) As String
 
    Ta(0) = "123"
    Ta(1) = "456"
    Ta(2) = "789"
 
    Tb(0) = "123"
    Tb(1) = "455"
    Tb(2) = "789"
 
    Dim pareil As Boolean
    Dim i As Integer
    Dim j As Integer
    Dim k As Integer
 
    k = 0
 
    For i = 0 To 2
 
        For j = 0 To 2
            If Tb(i) = Ta(j) Then
                pareil = True
                Exit For
            Else
                pareil = False
            End If
        Next
 
        If pareil = False Then
            Tc(k) = Tb(i)
            k = k + 1
        End If
 
    Next
 
End Sub

[Marc-L]

Bonjour,

voici une démonstration général VBA universelle :

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
Sub Demo()
    TA = Split("A B C")
    TB = Split("F C E A D B")
 
    For Each B In TB
        For Each A In TA
              If A = B Then Exit For
        Next
 
        If A = "" Then TC = TC & B & " "
    Next
 
    TC = Split(RTrim(TC))
 
    MsgBox "TA :  " & Join(TA) & vbLf & vbLf & "TB :  " & Join(TB) _
                               & vbLf & vbLf & "TC :  " & Join(TC)
End Sub

Dans le cas d'une procédure VBA Excel avec des variables tableau de milliers d'éléments,
une méthode à double boucle n'est pas la plus efficace, voire limite idiote !
Mieux vaut privilégier par exemple une simple boucle combinée à la fonction de feuille de calculs EQUIV (Match en VBA),
à consulter dans l'aide et dans les discussions du forum dédié …

__________________________________________________________________________________________________
Je suis Charlie - Je suis Bardo

[goofyto8]

merci.