déplacer selection et offset

Bonjour,

je souhaite déplacer une selection, pour cela j'ai code :

Code:

---

1 2 3 4 5 6

WsListes.Range("A" & (intNoLigneContrat + 1) & ":D" & intDerniereLigne).Select Selection.Cut Selection.Offset(-1, 0).Activate Selection.PasteSpecial Application.CutCopyMode = False

---

mais cela bug au niveau Selection.PasteSpecial, l'erreur est que la méthode pastepecial de l'objet Range a échoué

Une idée?

Merci d'avance

Nath

bonjour Nath ,

après un couper tu ne peut pas faire un Collage spécial, seul Coller est disponible. essaie la manipulation directement dans la feuille.

Code:

---

WsListes.Range("A" & intNoLigneContrat & ":D" & intDerniereLigne).Value = WsListes.Range("A" & intNoLigneContrat + 1 & ":D" & intDerniereLigne + 1).Value

---

ahh oui en effet mercatog, c'est tout bête.....ou ai-je la tête...:oops: merci pour ta solution...

par contre,sabaz, je serais curieuse de savoir comment c'est possible de le faire avec les offset, car avec paste, cela ne fonctionne pas non plus....

bonjour Nath,

Code:

---

1 2 3

Selection.Cut Selection.Offset(-1, 0).Select ActiveSheet.Paste

---

merci sabzzz (cette fois sans écorcher ton pseudo) ;)