Discussion :

[jerem488]

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 :

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
 
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 !

[Menhir]

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

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
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

[jerem488]

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

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
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

[Thumb down]

Code :

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

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