Déplacement de cellule

an17_7605 Messages postés 10 Statut Membre -  
jordane45 Messages postés 40050 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

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



End Sub

0

Discussions similaires

couche de destination masquée
on dira petite pomme -
Freg -

27 réponses
Excel formule : savoir si une cellule contient partie texte
plunderer007 -
francois -

14 réponses
Impossible fusionner cellules
aubli -
Christian -

3 réponses
excel fractionner une cellule horizontalement
jalil -
barbiy -

5 réponses
Pb pour insérer lignes
chloe -
Loml -

6 réponses