Une Macro trop généreuse !

[Philippe95]

Bonjours !
Ce n’est surement pas sorcier, mais je ne parviens pas à faire complètement ce que je souhaite.

Copier la valeur, pas la formule, d’une cellule dans une autre avec une macro, que j’associerai à un bouton ensuite.

Sub Macro2()
' remplace la valeur du cours apres un achat au cours
' Touche de raccourci du clavier: Ctrl+b
Range("X9:X10").Select
Selection.Copy
Range("A10:C10").Select
ActiveSheet.Paste
End Sub

Mais je dois ensuite appuyer sur échappe Et si je fais entrer cela recopie une seconde fois la valeur, ce qui est pire …
Je voudrais que lorsque la macro est finie, la valeur soit copiée une seul fois.

Merci encore pour ce que vous ne manquerz pas de faire pour moi

Philippe

 

[phlaurent55]

Re : Une Macro trop généreuse !

bonjour Philippe,

avec ce code:

Sub Macro2()
' remplace la valeur du cours apres un achat au cours
' Touche de raccourci du clavier: Ctrl+b
Range("X9:X10").Select
Selection.Copy
Range("A10:C10").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

à+
Philippe

 

[Philippe95]

Re : Une Macro trop généreuse !

Merci !
Quelle réactivité … Houa !

Il y a des cellules fusionnées, et il n’aime pas !

En surbrillance jaune par le débogueur :
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

C’est grave ?

Merci

Philippe

 

[grisan29]

Re : Une Macro trop généreuse !

bonjour a tous
oups phlaurent est passé devant
chez moi pas d'erreur

Sub Macro2()
' remplace la valeur du cours apres un achat au cours
' Touche de raccourci du clavier: Ctrl+b
Range("X9:X10").Copy
Range("A10:C10").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

j'au juste enlevé les .select mais quelle cellules sont fusioonées
Pascal

 

[Philippe95]

Re : Une Macro trop généreuse !

Bonjour Tous !

Avec un fichier ce sera plus explicite !
C’est la valeur de X9 qui doit être copiée sur A10, les deux sont des cellules fusionnées et non pas la même taille.

Merci !

Philippe

 

[phlaurent55]

Re : Une Macro trop généreuse !

Re,

tout simplement avec ceci:

[A10] = Range("X9").Value

à+
Philippe

 

[phlaurent55]

Re : Une Macro trop généreuse !

Re,
encore plus simple:

[A10] = [X9]

à+
Philippe

 

[Philippe95]

Re : Une Macro trop généreuse !

Merci beaucoup !

C’est super sa fonctionne bien, comme quoi la simplicité !

Merci !

Philippe

 

[phlaurent55]

Re : Une Macro trop généreuse !

Re,

C’est super sa fonctionne bien, comme quoi la simplicité !

.......... il suffisait de poser la question de manière plus simple (claire)

à+
Philippe

 

[Philippe95]

Re : Une Macro trop généreuse !

Oui, je suis désolé de vous avoir induit en erreur, j’essayerais d’être plus claire à l’avenir …
Promis !
Philippe