Copier une cellule sans sa formule

Résolu/Fermé
TeTo - Modifié par TeTo le 22/07/2015 à 07:54
 Don-G - 22 juil. 2015 à 12:47
Bonjour,

J'ai une cellule contenant la formule
=aujourdhui()

Je souhaite, à l'aide d'une macro, insérer la date du jour dans une autre cellule lorsque je clique sur un bouton.
j'ai essayé une simple macro copier/Coller mais cela copie la formule aujourdhui() et non la date en elle même, donc chaque jour la date et remise à jour alors que le but et de savoir à quelle date l'opération à été faite... Voici mon code :

    Range("J5:K6").Select
Application.CutCopyMode = False
Selection.Copy
Range("D7:E8").Select
ActiveSheet.Paste


NB:J5:K6 est un ensemble de cellule fusionnées comme D7:E8

je voudrais simplement copier le résultat et non la formule afin que dans la case D:E8 il y ai 22/07/2015 et non =aujourdhui()

cordialement
TeTo
A voir également:

3 réponses

Vaucluse Messages postés 26496 Date d'inscription lundi 23 juillet 2007 Statut Contributeur Dernière intervention 1 avril 2022 6 395
22 juil. 2015 à 08:01
Bonjour
essayez avec

Range("J5:K6").Copy
Range("D7").PasteSpecial Paste:=xlPasteValues

crdlmnt
0
Merci pour vos réponses :)
0
Mike-31 Messages postés 18313 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 21 avril 2024 5 073
Modifié par Mike-31 le 22/07/2015 à 08:06
Bonjour,
pourquoi faire compliqué, essaye ce code

Range("J5:K6").Copy
Range("D7:E8").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False

A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.
0
Merci
0
Mike-31 Messages postés 18313 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 21 avril 2024 5 073
22 juil. 2015 à 11:45
Re,

Tu peux également écrire comme cela ce qui permet de copier des valeurs de cellules non contiguës

[D7] = [J5]
[E7] = [K5]
[D8] = [J6]
[E8] = [K6]
0
Bonjour La communauté voila moi je suis Assistant-HR dans une petite boite, j'ai parmi mes Objectifs scanner chaque pièce du dossier de personnel (une vingtaine) et de créer une base de données(dans laquelle on a toutes les informations sur chaque employé) et pouvoir faire la mise a jour en fonction des évolutions, des nouvelles pièces a ajouter a chaque dossier, je suis déjà très avancé dans le scanne des pièces et je me tourne vers vous pour savoir d'abord si avec MS Acess il est possible de la créer et me guider éventuellement, et si non j'attends vos propositions, et merci d'avance
0