Deux boucles

Bonjour,

Je ne comprends pas pourquoi ma macro ne fonctionne pas...

Elle marchait très bien avant de rajouter la partie en rouge (la nouvelle boucle), je voudrait que mon code qui suit fonctionne pour chaque colonne y de 24 à 35

Merci d'avance pour votre aide

Cordialement

Dim N As Long
    Dim i As Long
    Dim NbLignes As Long
    Dim rg As Range
    Dim y As Long
    Dim w As Long

    With Sheets("Customer")
        NbLignes = .Range("T12").End(xlDown).Row
        i = 4
        For N = 12 To NbLignes
            If .Cells(N, 21) = "Yes" Then

                  [color=#FF0000]  For y = 24 To 35

                            If .Cells(N, y) = x Then[/color]

                        w = y - 22

                    While Sheets("Planning").Cells(i, w) <> 0
                        i = i + 1
                    Wend

              code.....

                    Else

            End If

        Next

Bonjour,

Pas possible désolé...

Le message d'erreur est "erreur de coompilation, variable de controle for dejà utilisée"

re,

à tester,

Sub Macro1()
Dim N As Long
Dim i As Long
Dim NbLignes As Long
Dim rg As Range
Dim y As Long
Dim w As Long

With Sheets("Customer")
    NbLignes = .Range("T12").End(xlDown).Row
    i = 4
    For N = 12 To NbLignes
        If .Cells(N, 21) = "Yes" Then

            For y = 24 To 35

                If .Cells(N, y) = x Then

                    w = y - 22

                    While Sheets("Planning").Cells(i, w) <> 0
                    i = i + 1
                    Wend

    '            code.....
                End If

            Next y
        Else

        End If

    Next N
End With
End Sub

ps/ merci de mettre ton code entre balise,

pour éditer ton 1er message

clic sur

sélectionne tout le code

et appui sur

Super merci beaucoup !