× Aidez la recherche contre le COVID-19 avec votre ordi ! Rejoignez l'équipe PC Astuces Folding@home
 > Tous les forums > Forum Bureautique
 VBA : Comment copier le résultat d'un calcul dans une cellule.Sujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
tofff
  Posté le 02/08/2019 @ 16:38 
Aller en bas de la page 
Petit astucien

Bonjour.

Je cherche à modifier une macro Excel pour copier le résultat des formules contenues dans les cases F57 à F66 dans les cellules C57 à C66.

J'ai écris ceci :

Range("F57:F66").Select
Selection.Copy
Range("C57:C66").Select
ActiveSheet.Paste

Mais ça ne fonctionne pas, ça copie les formules, et non les valeurs, il faut donc faire un collage spécial, mais je ne trouve pas la formule.

Si dans la case F57 il y a la formule suivant : =B2+B3, et que le résultat affiché est 7, je veux que dans la case C57, ce soit le chiffre 7 qui est rentré, et pas la formule.

Merci

Publicité
Lui
 Posté le 02/08/2019 à 18:26 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Bonjour,

L'enregistreur de macro donne ceci

J'ai enlevé les "select" inutiles

Sub CollerResultat()

Range("F57:F66").Copy

Range("C57:C66").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

End Sub

tofff
 Posté le 03/08/2019 à 11:05 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonjour.

Merci pour ton aide, mais ça ne fonctionne pas.

Les cellule ("C57:C66") ne prennent pas les valeurs affichées dans les cellules ("F57:F66"). Au lieu de ça, elles affichent #VALEUR!

Elles affichent #VALEUR! comme si on l'avais écris dans la cellule, ce en sont pas des cellules qui contiennent une formule qui ne fonctionne pas.

nainconnu.bis
 Posté le 03/08/2019 à 11:13 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Message original par tofff

Bonjour.

Je cherche à modifier une macro Excel pour copier le résultat des formules contenues dans les cases F57 à F66 dans les cellules C57 à C66.

J'ai écris ceci :

Range("F57:F66").Select
Selection.Copy
Range("C57:C66").Select
ActiveSheet.Paste

Mais ça ne fonctionne pas, ça copie les formules, et non les valeurs, il faut donc faire un collage spécial, mais je ne trouve pas la formule.

Si dans la case F57 il y a la formule suivant : =B2+B3, et que le résultat affiché est 7, je veux que dans la case C57, ce soit le chiffre 7 qui est rentré, et pas la formule.

Merci

pourquoi faire compliqué lorsque l'on peut faire simple ? ? ? ?

pour avoir en C57 le résultat de ta formule se trouvant dans F57 il te suffit tout simplement d'écrire dans C57 =F57 et tu obtiendras le résulta de la formule comme en F57 et non pas la formule comme tu le dis

et pour cela inutile de s'encombrer d'une Macro !.

.

.

.

tofff
 Posté le 03/08/2019 à 11:23 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

C'est bon, ça fonctionne. J'avais pas fait attention, mais les cellules ("F57:F66") font référence à d’autres cellules qui sont effacées en début de macro, du coup pendant la macro, les cellules
("F57:F66") perdaient leurs valeurs et affichaient #VALEUR!. Le problème a été réglé en plaçant les lignes de code en tout début de macro.

Merci Lui.

tofff
 Posté le 03/08/2019 à 11:28 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien
nainconnu.bis a écrit :

pourquoi faire compliqué lorsque l'on peut faire simple ? ? ? ?

pour avoir en C57 le résultat de ta formule se trouvant dans F57 il te suffit tout simplement d'écrire dans C57 =F57 et tu obtiendras le résulta de la formule comme en F57 et non pas la formule comme tu le dis

et pour cela inutile de s'encombrer d'une Macro !.

.

.

.

Merci, mais Ça ne peut pas fonctionné, si ça avait été aussi simple, je l'aurais fait tout de suite. Car les cellules (C57:C66) doivent afficher les valeurs contenues dans (F57:F66) à un moment donné. Car ensuite les valeurs contenues dans (F57:F66) changent, et je ne veux pas qu'elles changent aussi dans (C57:C66) si je ne le demande pas.

en faisant ce que tu dis, les valeurs affichées sont toujours les mêmes dans les colonnes F et C, ce n'est pas ce que je cherche à faire.

nainconnu.bis
 Posté le 03/08/2019 à 12:08 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

ben oui mais il aurait fallu le préciser au début car on ne pouvait pas le deviner

toi seul sachant ce que tu voulais exactement !.

.

.

.

.

.

gpa2loq
 Posté le 06/08/2019 à 10:03 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

c'est effectivement la réaction que j' ai eue en lisant le premier message en pensant "macro ? pourquoi faire simple quand on peut faire compliqué"

j' ai parcouru par curiosité avant de répondre, ce qui fut une bonne idée finalement

tofff
 Posté le 07/08/2019 à 07:49 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonjour.

C'est pourtant précisé dans mon premier message que c'est une macro que je cherche à modifier.

Message original par tofff

Bonjour.

Je cherche à modifier une macro Excel pour copier le résultat des formules contenues dans les cases F57 à F66 dans les cellules C57 à C66.

J'ai écris ceci :

Range("F57:F66").Select
Selection.Copy
Range("C57:C66").Select
ActiveSheet.Paste

Mais ça ne fonctionne pas, ça copie les formules, et non les valeurs, il faut donc faire un collage spécial, mais je ne trouve pas la formule.

Si dans la case F57 il y a la formule suivant : =B2+B3, et que le résultat affiché est 7, je veux que dans la case C57, ce soit le chiffre 7 qui est rentré, et pas la formule.

Merci

En tout cas merci, j'ai réussi à faire ce que je voulais.

Bonne journée.



Modifié par tofff le 07/08/2019 07:51
Page : [1] 
Page 1 sur 1

Vous devez être connecté pour poster des messages. Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !


Les bons plans du moment PC Astuces

Tous les Bons Plans
206,25 €Tablette 10.1 pouces Galaxy Tab A 2019 (64 Go, Wifi, Full HD+, RAM 3 Go) à 206,25 € livrée
Valable jusqu'au 14 Août

Amazon Allemagne fait une promotion sur la tablette 10.1 pouces Galaxy Tab A 2019 qui passe à 200,66 € (avec la TVA ajustée). Comptez 5,59 € pour la livraison en France soit un total de 206,25 € livrée. On la trouve ailleurs à partir de 260 €. Cette tablette possède un écran 10.1 pouces FullHD+ (1920x1200), un processeur octa-core 1.8 GHz, 3 Go de RAM, un espace de stockage de 64 Go extensible par MicroSD, le WiFi, le bluetooth et tourne sous Android 9. La tablette pourra être mise en français dès le premier démarrage et vous bénéficiez d'une garantie européenne de 2 ans.

Vous pouvez utiliser votre compte Amazon France sur Amazon Allemagne et il n'y a pas de douane. Si vous êtes perdu en allemand, vous pouvez traduire le site en anglais.


> Voir l'offre
62,38 €Kit mémoire 16 Go DDR4 SO-DIMM HyperX (2x8 Go) à 62,38 € livré
Valable jusqu'au 12 Août

Amazon Allemagne propose actuellement le Kit mémoire 16 Go DDR4 SO-DIMM HyperX Impact à 57,83 €. Comptez 4,55 € pour la livraison en France soit un total de 62,38 € livré alors qu'on le trouve ailleurs à partir de 75 €. Un excellent prix pour ce kit mémoire dédié aux ordinateurs portables et composé de 2 modules de 8 Go DDR4 2666 MHz CL15. Notez que la version 32 Go (2x16 Go) est également en promotion à 114,10 € livrée.


> Voir l'offre
598,99 €Disque dur externe Western Digital My Book Duo 28 To USB 3.1 à 598, 99 €
Valable jusqu'au 12 Août

Amazon propose actuellement le disque dur externe Western Digital My Book 24 To USB 3.1 à 598, 99€ livré alors qu'on le trouve ailleurs à partir de 900 €. Le My Book Duo est une solution de stockage RAID de bureau d’une très grande capacité, idéale pour stocker des photos, des vidéos, des documents et de la musique. Vous pourrez l'utiliser en mode RAID 0 pour des perfomances ultrarapides (vitesse de lecture séquentielle pouvant atteindre 360 Mo/s) ou bien en mode RAID 1 pour bénéficier d’une redondance et mettre vos données en miroir sur les disques durs installés dans le boîtier. Ce dernier comporte en effet 2 disques durs Western Digital RED de 14 To adaptés aux NAS et qui peuvent être récupérés pour être utilisés ailleurs. Sachant qu'un disque dur RED 14 To coûte au moins 450 €, l'achat du Western Digital My Book Duo 28 To peut aussi être une solution économique si vous avez besoin de 2 disques durs 14 To pour votre NAS.


> Voir l'offre

Sujets relatifs
Comment écrire dans un autre onglet en excel à partird'une cellule
calcul dans cellule tableau O.O.
comment fait-on pour centrer un titre verticalement dans une cellule ?
Comment insérer un tableau Excel de calcul dans un site?
Excel: valeur cellule impliquée dans calcul ailleurs -> connexions
Afficher résultat cellule dans textBox sans virgule
copier une cellule dans un autre classeur
Excel 2007 résultat formule dans une autre cellule
comment copier dans exel un fichier exel scanne
Copier Coller dans Nouv Classeur avec Nom Cellule
Plus de sujets relatifs à VBA : Comment copier le résultat d''un calcul dans une cellule.
 > Tous les forums > Forum Bureautique