Boucle

Bonjour,

j'ai ce morceau de code qui fonctionne

If Range("I6") = 0 Then
        Range("I6").MergeArea.ClearContents
        Range("I6").Select
        Selection.NumberFormat = "m/d/yyyy"
        Range("H6").Copy
        Range("I6") = Range("H6")

ElseIf Range("I6") <> "" Then
        Range("H6").Copy
        Range("I6") = Range("I6") & " - " & Range("H6")

    Else
    If Range("I6") = "" Then
        If Range("H6") <> "" Then
            Range("H6").Copy
            Range("I6").Select
            ActiveSheet.Paste

        End If
    End If
End If

J'essai de faire une boucle qui aille de " I6 à F dernière ligne " mais je ni arrive pas.

Pourriez vous m'aider. merci

bonjour

une proposition

    For i = 6 To Cells(Rows.Count, "I").End(xlUp).Row
        If Range("I" & i) = 0 Then
            Range("I" & i).MergeArea.ClearContents
            Range("I" & i).Select
            Selection.NumberFormat = "m/d/yyyy"
            Range("H" & i).Copy
            Range("I" & i) = Range("H" & i)
        ElseIf Range("I" & i) <> "" Then
            Range("H" & i).Copy
            Range("I" & i) = Range("I" & i) & " - " & Range("H" & i)
        ElseIf Range("I" & i) = "" Then
            If Range("H" & i) <> "" Then
                Range("H" & i).Copy
                Range("I" & i).Select
                ActiveSheet.Paste
            End If
        End If
    Next i

ça fonctionne parfaitement un grand à toi h2so4 pour ton aide