Deux boucles dans une VBA

Bonjour

Je voudrais qu'il y ait deux boucles dans cette vba, mais seul e première fonctionne.

Y a t il un manque entre les deux ?

Private Sub Workbook_SheetActivate(ByVal Sh As Object)

Dim I As Integer
Dim J As Integer

    For I = 7 To 18

        If Month(Range("G" & I)) = Month(Now()) Then
        Range("H" & I).Value = Range("H4").Value

        ElseIf Month(Range("G" & I)) > Month(Now()) Then
        Range("H" & I).Value = "En attente"

        Else

        End If

    Next I

    For J = 27 To 38

        If Month(Range("G" & J)) = Month(Now()) Then
        Range("H" & I).Value = Range("H24").Value

        ElseIf Month(Range("G" & J)) > Month(Now()) Then
        Range("H" & J).Value = "En attente"

        Else

        End If

    Next J

End Sub

Merci de votre patience

Bonjour,

Si, ça semble correct. Mais sur la deuxième boucle, il y a un i qui traine.

Ici, 2 variables ne sont pas nécessaires, il n'y aura jamais de conflit :

Private Sub Workbook_SheetActivate(ByVal Sh As Object)

Dim i As Integer

For i = 7 To 18
    If Month(Range("G" & i)) = Month(Now()) Then
        Range("H" & i).Value = Range("H4").Value
    ElseIf Month(Range("G" & i)) > Month(Now()) Then
        Range("H" & i).Value = "En attente"
    End If
Next i
For i = 27 To 38
    If Month(Range("G" & i)) = Month(Now()) Then
        Range("H" & i).Value = Range("H24").Value
    ElseIf Month(Range("G" & i)) > Month(Now()) Then
        Range("H" & i).Value = "En attente"
    End If
Next i

End Sub

Cdlt,