Menu

Déplacement de cellule

Messages postés
2
Date d'inscription
jeudi 10 janvier 2019
Dernière intervention
14 janvier 2019
- - Dernière réponse : jordane45
Messages postés
23956
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
14 janvier 2019
- 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
Afficher la suite 

Votre réponse

1 réponse

Messages postés
23956
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
14 janvier 2019
2120
0
Merci
Sub test()
If ActiveCell.Column > 2 Then
    Cells(ActiveCell.Row + 1, ActiveCell.Column - 2).Value = ActiveCell.Value
    ActiveCell.Value = ""
End If



End Sub


Commenter la réponse de jordane45