Discussion :

[Adel31]

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

[BENNASR]

bonsoir Mr ADEL la forum
aussi débutant mais je crois que tu utilise une fonction personnalisée pour insérer ou supprimer des lignes : donc tu dois afficher aussi cette fonction.
Si tu explique qu'est ce que tu cherches à faire avec ton code?? supprimer des lignes vides ou quoi?? peut être y a une autre chemin plus courte.
BONNE CONTINUATION

[Adel31]

Bonsoir Mr BENNASR,

Merci pour la réponse, oui je souhaite supprimer les lignes vides.

Merci d'avance.

[Patrice740]

aussi débutant mais je crois que tu utilise une fonction personnalisée pour insérer ou supprimer des lignes : donc tu dois afficher aussi cette fonction.

Merci pour la réponse, oui je souhaite supprimer les lignes vides.

Bonjour,

Tu ne réponds pas à la question !
Mais avant de publier le code, commences par écrire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Option Explicit

Au début du module, puis corriges les erreurs signalées à l'exécution.

[Philippe Tulliez]

Bonjour,
Tu dis vouloir supprimer des lignes vides alors que tu effectues plusieurs tests. Pourrais-tu nous éclairer ?
Petite remarque : Mis à part dans la détection d'erreur où l'on n'a pas le choix, les Goto sont à proscrire.
Pour supprimer des lignes, on commence par la dernière et on remonte à l'aide d'une boucle.