Déplacement de cellule

Bonjour,

en V B A je voudrais déplacer la cellule active 1 ligne en dessous et 3 colonnes à gauche
A B C
mettre la cellule active de la colonne C en A

j'utilise Offset(1, -2) ou Offset(1, -3) donne erreur

L'un de vous peut-il me donner la solution.
Merci

Configuration: Windows / Firefox 64.0

1 réponse

  1. Modérateur
    Sub test()
    If ActiveCell.Column > 2 Then
        Cells(ActiveCell.Row + 1, ActiveCell.Column - 2).Value = ActiveCell.Value
        ActiveCell.Value = ""
    End If
    
    
    
    End Sub
    
    

    0