Logique de goto

Bonjour tout le monde,

je dois reprendre un code vba blindé de Goto ! 8O

J'ai besoin de vos lumières sur ce code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Line1:
    If Cells(a, 1) <> "" Then
        If Cells(a, 18) = Base18 Then
            If Cells(a, 23) = "" Then
........ code
                GoTo Line1
            Else
........ code
                GoTo Line1 '---------------------------------------------------------------------------------------
            End If
        Else
            a = a + 1
            GoTo Line1 '-------------------------------------------------------------------------------------------
        End If
    End If

Merci pour votre aide

A priori ça peut se simplifier avec une boucle while

Code:

1
2
3
4
5
6
7
8
9
10
11
 
 do while  Cells(a, 1) <> "" 
        If Cells(a, 18) = Base18 then
            if Cells(a, 23) = "" then
........ code
            Else
........ code
            end if
        end if
a = a + 1
loop

Citation:

Envoyé par jerem488

je dois reprendre un code vba blindé de Goto ! 8O

Bon courage. :mrgreen:

Citation:

J'ai besoin de vos lumières sur ce code :
Code:

1 2 3 4 5 6 7 8 9 10 11 Do until Cells(a, 1) = "" If Cells(a, 18) = Base18 Then If Cells(a, 23) = "" Then ........ code Else ........ code End If Else a = a + 1 End If Loop
Cependant, si je comprends bien, il s'agit de tourner tant qu'une cellule n'est pas vide.
Dans ce cas, il serait plus propre de commencer par repérer la fin de liste avec une propriété End(xlDown) et faire une boucle For To de la première à la dernière ligne, en supprimant le premier niveau de If.

Edit : Grillé par halaster08 :coucou:
Ca m'apprendra à faire autre chose pendant que je réponds. :calim2: