problème de macro sur déplacer valeur cellule

[archi]

Bsr,

j'ai un code du type:
Sub Macro1()
Range("AI52").Select
Selection.Cut Destination:=Range("AE52")
End Sub

pour me permettre de couper une cellule vers une autre...
mais ce code bug...pourquoi ??

merci
bye

 

[JYLL]

Re : problème de macro sur déplacer valeur cellule

Bonsoir Archi et le forum,

J'ai testé ta macro avec Excel 2000 PC et elle est OK. Je ne vois pas pourqu'oi elle ne fonctionne pas chez toi.

Amicalement.

Jean-Yves

 

[ziopizza]

Re : problème de macro sur déplacer valeur cellule

Salut à tous,
pareil testé sur excel 2003 elle marche.
Yves

 

[archi]

Re : problème de macro sur déplacer valeur cellule

merci,

moi j'ai un message qui me dit:
"Erreur d'automation, l'objet invoqué s'est déconnecté de ses client"
?????

 

[archi]

Re : problème de macro sur déplacer valeur cellule

voici mon classeur pour plus d'explication

bye

 

[ziopizza]

Re : problème de macro sur déplacer valeur cellule

Re,
Dans ton code une erreur à cette ligne,
Selection.Cut Destination=Range("J19:j22")
il manque les 2points.

Sub test()

Sub test()
Range("C19:C22").Select
Selection.Cut Destination:=Range("J19:j22")
End Sub
Salut Yves

 

[archi]

Re : problème de macro sur déplacer valeur cellule

merci pour le rectif, mais ca n'a pas résolu le problème de fond
le bug est toujours présent ???

 

[ziopizza]

Re : problème de macro sur déplacer valeur cellule

Comprend pas ton fichier,et cette macro fonctionne chez moi.
Essaye comme ça,mais ça m'étonnerai
Selection.Cut Destination:=Range("J19")

 

[archi]

Re : problème de macro sur déplacer valeur cellule

as tu testé cette macro dans mon fichier ou dans l'un des tiens ??

 

[ziopizza]

Re : problème de macro sur déplacer valeur cellule

Dans ton fichier

 

[archi]

Re : problème de macro sur déplacer valeur cellule

donc elle marche dans mon fichier joint....mais sous un autre excel !!!
je ne comprend plus rien là

help please help

 

[ziopizza]

Re : problème de macro sur déplacer valeur cellule

Essaye de cette façon,peut être,

Sub test()
Range("C19:C22").Select
Selection.Cut
Range("j19").Select
ActiveSheet.Paste
End Sub
Yves

 

[archi]

Re : problème de macro sur déplacer valeur cellule

merci ziopizza,

je viens de réinstaller execl 2000
et cela fonctionne maintenant
bye