Discussion :

[nath-0-0]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[sabzzz]

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.

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[nath-0-0]

ahh oui en effet mercatog, c'est tout bête.....ou ai-je la tête... 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....

[sabzzz]

bonjour Nath,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[nath-0-0]

merci sabzzz (cette fois sans écorcher ton pseudo)