Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Une Macro trop généreuse !

  • Initiateur de la discussion Initiateur de la discussion Philippe95
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

P

Philippe95

Guest
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
 
Re : Une Macro trop généreuse !

bonjour Philippe,

avec ce code:
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
 
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
 
Re : Une Macro trop généreuse !

bonjour a tous
oups phlaurent est passé devant😎
chez moi pas d'erreur
Code:
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
 
Dernière édition:
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
 

Pièces jointes

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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

B
  • Résolu(e)
2
Réponses
16
Affichages
2 K
benbella1991
B
A
Réponses
7
Affichages
1 K
A
O
Réponses
5
Affichages
865
L
Réponses
1
Affichages
1 K
L
L
Réponses
9
Affichages
1 K
A
Réponses
2
Affichages
1 K
AlexAGEMS
A
J
Réponses
22
Affichages
3 K
jui42
J
Réponses
4
Affichages
995
S
Réponses
8
Affichages
2 K
S
P
Réponses
11
Affichages
1 K
Piksaw
P
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…