L’exécution du code suivant :
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
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
Sub removeEmptyLines()
    For lineIndex = 0 To UBound(inputData)
        If inputData(lineIndex).fsf <> "" Then
            GoTo ContinueFor
        ElseIf inputData(lineIndex).plantState <> "" Then
            GoTo ContinueFor
        ElseIf inputData(lineIndex).plantLevelSafetyFunction <> "" Then
            GoTo ContinueFor
        ElseIf inputData(lineIndex).lowerLeverSafetyFunction <> "" Then
            GoTo ContinueFor
        ElseIf inputData(lineIndex).lineOfDefence <> "" Then
            GoTo ContinueFor
        ElseIf inputData(lineIndex).additionalInformation <> "" Then
            GoTo ContinueFor
        ElseIf inputData(lineIndex).categoryAndCriterion <> "" Then
            GoTo ContinueFor
        ElseIf inputData(lineIndex).safetyFunctionType <> "" Then
            GoTo ContinueFor
        ElseIf inputData(lineIndex).safetyFeatureGroup <> "" Then
            GoTo ContinueFor
        ElseIf inputData(lineIndex).safetyFeatureLabel <> "" Then
            GoTo ContinueFor
        ElseIf inputData(lineIndex).safetyFeatureDesignation <> "" Then
            GoTo ContinueFor
        ElseIf inputData(lineIndex).frontlineOrSupportSF <> "" Then
            GoTo ContinueFor
        ElseIf inputData(lineIndex).sfClass <> "" Then
            GoTo ContinueFor
        ElseIf inputData(lineIndex).sfActuationMode <> "" Then
            GoTo ContinueFor
        ElseIf inputData(lineIndex).sfActuationSignal <> "" Then
            GoTo ContinueFor
        ElseIf inputData(lineIndex).hbsc <> "" Then
            GoTo ContinueFor
        ElseIf inputData(lineIndex).robustnessAgainstSFC <> "" Then
            GoTo ContinueFor
        ElseIf inputData(lineIndex).physicalSeparation <> "" Then
            GoTo ContinueFor
        ElseIf inputData(lineIndex).robustnessAgainstLOOP <> "" Then
            GoTo ContinueFor
        ElseIf inputData(lineIndex).robustnessAgainstSBO <> "" Then
            GoTo ContinueFor
        ElseIf inputData(lineIndex).robustnessAgainstEarthquake <> "" Then
            GoTo ContinueFor
        ElseIf inputData(lineIndex).qualificationForAccidentCondition <> "" Then
            GoTo ContinueFor
        ElseIf inputData(lineIndex).labelForICAndOperabilityTraceability <> "" Then
            GoTo ContinueFor
        ElseIf inputData(lineIndex).Comments <> "" Then
            GoTo ContinueFor
        ElseIf inputData(lineIndex).reference <> "" Then
            GoTo ContinueFor
        Else
            inputData = RemoveIndexedItemFromList(inputData, lineIndex)
 
        End If
ContinueFor:
    Next lineIndex
End Sub
J'ai u ce message :

Erreur de compilation
Type d'argument ByRef incompatible


Je suis débutant et je comprend pas d’où viens le problème.

Merci d'avance