Déplacement de cellule

an17_7605 Messages postés 8 Date d'inscription   Statut Membre Dernière intervention   -  
jordane45 Messages postés 38486 Date d'inscription   Statut Modérateur Dernière intervention   -
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

jordane45 Messages postés 38486 Date d'inscription   Statut Modérateur Dernière intervention   4 752
 
Sub test()
If ActiveCell.Column > 2 Then
    Cells(ActiveCell.Row + 1, ActiveCell.Column - 2).Value = ActiveCell.Value
    ActiveCell.Value = ""
End If



End Sub


0