Copier / Coller avec offset

Bonjour,

Je ne comprends pas ce qui cloche sur mon code :

For Each Cellu In Range("E2:E250")
    If Cellu = "X" Then
        Cellu.Offset(0, -1).Copy
        Cellu.Offset(-1, -1).Paste
    End If
Next Cellu

Une petite idée?

Merci

bonjour

à quoi sert cette macro ?

ne peut-on pas mettre une simple égalité à la place ? (ou un SI() )

à te relire

Bonjour jmd,

Comme indiqué ci-dessous, il faut qu'à chaque fois que dans la colonne un "X" est présent, copier la cellule de gauche et la coller juste en dessous.

Il est indispenssable pour moi que cela soit réalisé avec une macro .

Merci

aston01390 a écrit :

Il est indispenssable pour moi que cela soit réalisé avec une macro .

re

je prétends que les macros ne sont JAMAIS indispensables

n'ayant pas encore trouvé de cas concret, je me demande pourquoi ton fichier serait spécial

pourquoi veux-tu du VBA ?

comment es-tu certain que Excel ne peut pas le faire ?

Bonjour,

Essaie ainsi, mais !...

Public Sub XXX()
Dim Cell As Range
    For Each Cell In Range("E2:E250")
        If UCase(Cell.Value) = "X" Then
            Cell.Offset(1, -1).Value = Cell.Offset(, -1).Value
        End If
    Next Cell
End Sub