Déplacement de cellule

Fermé
an17_7605 Messages postés 8 Date d'inscription jeudi 10 janvier 2019 Statut Membre Dernière intervention 12 février 2019 - 14 janv. 2019 à 12:17
jordane45 Messages postés 38138 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 17 avril 2024 - 14 janv. 2019 à 12:29
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 38138 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 17 avril 2024 4 649
14 janv. 2019 à 12:29
Sub test()
If ActiveCell.Column > 2 Then
    Cells(ActiveCell.Row + 1, ActiveCell.Column - 2).Value = ActiveCell.Value
    ActiveCell.Value = ""
End If



End Sub


0