Copier une cellule sans sa formule
Résolu
TeTo
-
Don-G -
Don-G -
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 :
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
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:
- Copier une cellule sans sa formule
- Formule si et - Guide
- Formule excel pour additionner plusieurs cellules - Guide
- Comment copier une vidéo youtube - Guide
- Formule moyenne excel plusieurs colonnes - Guide
- Formule mathématique - Télécharger - Études & Formations
3 réponses
Bonjour
essayez avec
Range("J5:K6").Copy
Range("D7").PasteSpecial Paste:=xlPasteValues
crdlmnt
essayez avec
Range("J5:K6").Copy
Range("D7").PasteSpecial Paste:=xlPasteValues
crdlmnt
TeTo
Merci pour vos réponses :)
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.
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.
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]
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]
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
