Valeur egale si

Bonjour tout le monde

pouvez vous me dire ce que je peut mettre comme code pour:

sur une liste : si valeur cellule E = "arrivée" alors cellule F= cellule G .sinon, on laisse comme c'est.

et ce pour toutes les lignes (de A2 jusqu'a ce que A soit vide..)

merci de votre aide.

Bonjour,

.sinon, on laisse comme c'est.

et c'est quoi qu'on laisse ?

tu ne peux pas modifier la cellule F depuis la formule en A

amicalement

Claude.

re,

j'avais mal compris

Sub essai()
    [a2].Select
    Do While ActiveCell <> ""
        If ActiveCell.Offset(0, 4) = "arrivée" Then
            ActiveCell.Offset(0, 5) = ActiveCell.Offset(0, 6)
        End If
            ActiveCell.Offset(1, 0).Select
    Loop
End Sub

claude

Un autre :

Sub code()
Dim cel As Range

For Each cel In Range("F2:F" & Range("A2").End(xlDown).Row)
    If cel.Offset(0, -1) = "arrivée" Then
        cel = cel.Offset(0, 1)
    End If
Next cel
End Sub

re:

merci a vous deux, les deux fonctionnent, mais je prends la solution a Dubois qui est plus rapide.

cordialement, a+