Par cette belle journ=E9e, quelqu'un pourrait -il m'aider=20
pour le probl=E8me suivant :
dans VBA, j'initialise un tableau nomm=E9 tablo1 qui=20
contient par exemple les valeurs suivantes : 1,=20
2,3,4,5,6,7,8,9,10,11,12 et un second nomm=E9 tablo2 qui=20
contient les valeurs 4,5,6,9 et 10.
Est-il possible de r=E9cup=E8rer dans une troisi=E8me tableau=20
les valeurs suivantes: 1,2,3,7,8,11,12.C'est =E0 dire les=20
valeurs qui appartiennent =E0 tablo1 mais pas =E0 tablo2 ?
For Each C In Arr If IsError(Application.Match(C, Arr1, 0)) Then ReDim Preserve Arr2(A) Arr2(A) = C A = A + 1 On Error GoTo 0 End If Next
'pour afficher le résultat dans la feuille Range("A1").Resize(UBound(Arr2)) = Application.Transpose(Arr2)
End Sub '---------------------
Salutations!
"Thierry" a écrit dans le message de news:e02d01c43c0f$a4f67dd0$ Bonjour à tous,
Par cette belle journée, quelqu'un pourrait -il m'aider pour le problème suivant :
dans VBA, j'initialise un tableau nommé tablo1 qui contient par exemple les valeurs suivantes : 1, 2,3,4,5,6,7,8,9,10,11,12 et un second nommé tablo2 qui contient les valeurs 4,5,6,9 et 10. Est-il possible de récupèrer dans une troisième tableau les valeurs suivantes: 1,2,3,7,8,11,12.C'est à dire les valeurs qui appartiennent à tablo1 mais pas à tablo2 ?
For Each C In Arr
If IsError(Application.Match(C, Arr1, 0)) Then
ReDim Preserve Arr2(A)
Arr2(A) = C
A = A + 1
On Error GoTo 0
End If
Next
'pour afficher le résultat dans la feuille
Range("A1").Resize(UBound(Arr2)) = Application.Transpose(Arr2)
End Sub
'---------------------
Salutations!
"Thierry" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:e02d01c43c0f$a4f67dd0$a101280a@phx.gbl...
Bonjour à tous,
Par cette belle journée, quelqu'un pourrait -il m'aider
pour le problème suivant :
dans VBA, j'initialise un tableau nommé tablo1 qui
contient par exemple les valeurs suivantes : 1,
2,3,4,5,6,7,8,9,10,11,12 et un second nommé tablo2 qui
contient les valeurs 4,5,6,9 et 10.
Est-il possible de récupèrer dans une troisième tableau
les valeurs suivantes: 1,2,3,7,8,11,12.C'est à dire les
valeurs qui appartiennent à tablo1 mais pas à tablo2 ?
For Each C In Arr If IsError(Application.Match(C, Arr1, 0)) Then ReDim Preserve Arr2(A) Arr2(A) = C A = A + 1 On Error GoTo 0 End If Next
'pour afficher le résultat dans la feuille Range("A1").Resize(UBound(Arr2)) = Application.Transpose(Arr2)
End Sub '---------------------
Salutations!
"Thierry" a écrit dans le message de news:e02d01c43c0f$a4f67dd0$ Bonjour à tous,
Par cette belle journée, quelqu'un pourrait -il m'aider pour le problème suivant :
dans VBA, j'initialise un tableau nommé tablo1 qui contient par exemple les valeurs suivantes : 1, 2,3,4,5,6,7,8,9,10,11,12 et un second nommé tablo2 qui contient les valeurs 4,5,6,9 et 10. Est-il possible de récupèrer dans une troisième tableau les valeurs suivantes: 1,2,3,7,8,11,12.C'est à dire les valeurs qui appartiennent à tablo1 mais pas à tablo2 ?
