Remplacer Goto line

Version imprimable

Remplacer Goto line

Bonjour tout le monde. Cela va sembler facile pour beaucoup d'entre vous mais les divers tests que j'ai fait ne fonctionne pas !!

Dans mon code je souhaite remplacer le Goto line par une boucle "Do while" ou autre.

Code:

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
 
line1:
    Windows("0-Base de données _ SAE.xlsx").Activate
    Base1a = Cells(a, 1)
    Base12a = Cells(a, 12)
    Base13a = Cells(a, 13)
    Base14a = Cells(a, 14)
    Base16a = Cells(a, 16)
    Base18a = Cells(a, 18)
 
    Windows("0-bdd réception _ SAE.xlsx").Activate
    Base1b = Cells(a, 1)
    Base12b = Cells(a, 12)
    Base13b = Cells(a, 13)
    Base14b = Cells(a, 14)
    Base16b = Cells(a, 16)
    Base18b = Cells(a, 18)
 
    If Base1a <> "" Then
        If Base18b = Base18a And Base16b = Base16a And Base14b = Base14a And Base13b = Base13a And Base12b = Base12a Then
            a = a + 1
            GoTo line1
        Else
             ....
             ....
        End If
    Else
           ....
           ....
    End If

Merci de vos lumières !

En supposant que ta variable "a" est initialisée à 1.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Do
    ....
    If Base1a <> "" Then
        If Base18b = Base18a And Base16b = Base16a And Base14b = Base14a And Base13b = Base13a And Base12b = Base12a Then
            a = a + 1
        Else
             ....
             ....
            Exit Do
        End If
    Else
         ....
         ....
         Exit Do
    End If
Loop

A lire : https://docs.microsoft.com/fr-fr/off...loop-statement

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
For a = 1 To 10
    Base1b = Cells(a, 1)
    Base12b = Cells(a, 12)
    Base13b = Cells(a, 13)
    Base14b = Cells(a, 14)
    Base16b = Cells(a, 16)
    Base18b = Cells(a, 18)
    If Base1a = "" Then Exit For
      If Not (Base18b = Base18a And Base16b = Base16a And Base14b = Base14a And Base13b = Base13a And Base12b = Base12a) Then
 
'             ....
'             ....
        End If
Next

Citation:
Envoyé par Menhir
En supposant que ta variable "a" est initialisée à 1.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Do .... If Base1a <> "" Then If Base18b = Base18a And Base16b = Base16a And Base14b = Base14a And Base13b = Base13a And Base12b = Base12a Then a = a + 1 Else .... .... Exit Do End If Else .... .... Exit Do End If Loop
A lire : https://docs.microsoft.com/fr-fr/off...loop-statement
Avec ton code, peu importe à combien est initiliasé ma variable non ? Car ma variable est initialement déclaré à 2