Bonjour,

"MAUVAISE SECTION VEUILLEZ M'EXCUSER"

Mon but est simple : identifier les écarts de contrats entre les matrices tImport et tExport. Mon problème est que je n'arrive pas à trouver la syntaxe neccésaire en utilisant des modules de classes pour mes 2 matrices.

Je déclare mes variables :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
 
'Déclaration de mon module 
Public Type MatriceDonnees
    sContrat As String
    sSerie As String
    sSituation As String
End Type
 
'Tables
Public tImport() As MatriceDonnees
Public tExport() As MatriceDonnees
La macro censé relever tous les contrats de la matrice tImport qui ne sont pas présents dans tExport :

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
 
Sub ContratsEcarts()
 
Dim i As Integer
Dim k as Integer
 
k = 1
For i = 1 To 100
    If IsError(Application.Match(tImport(i).sContrat, tExport().sContrat, 0)) Then
        Sheets("feuil1").Range("A1").Offset(k, 0) = tImport(i).sContrat
        k = k + 1
    End If
Next i
 
End Sub
La syntaxe de "IsError(Application.Match(tImport(i).sContrat, tExport().sContrat, 0))" est fausse, plus précisément de """tExport().scontrat", j'ai essayé tout type de syntaxe mais je ne trouve pas.

Merci d'avance pour votre aide.