Discussion :

[jerem488]

Bonjour tout le monde,

je dois reprendre un code vba blindé de Goto !

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

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

[halaster08]

A priori ça peut se simplifier avec une boucle while

Code :

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

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

[Menhir]

je dois reprendre un code vba blindé de Goto !

Bon courage.

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

Code :

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

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
Ca m'apprendra à faire autre chose pendant que je réponds.