Macro copi valeur d'une cellule

Yous00 36 Messages postés lundi 29 janvier 2007Date d'inscription 17 janvier 2017 Dernière intervention - 14 janv. 2017 à 16:43 - Dernière réponse : Yous00 36 Messages postés lundi 29 janvier 2007Date d'inscription 17 janvier 2017 Dernière intervention
- 17 janv. 2017 à 12:58
VBA Office (Excel, Word ...) Posez votre question Signaler Répondre au sujet
Bonjour,
Voici ma macro qui consiste à copier des valeurs dans un tableau récapitulatif mais sur 2 cellules à copier j'ai des formules et cela met des =#REF! ce serait les copies 5 & 6 à modifier en incluant value mais cela fait 5, 6 ans que je ne fais plus de macro c'est pas comme le vélo merci de vos aides.

'Copie 1
Sheets(1).Cells(6, 10).Copy Sheets(3).Cells(65535, 2).End(xlUp)(2)
'Copie 2
Sheets(1).Cells(7, 10).Copy Sheets(3).Cells(65535, 3).End(xlUp)(2)
'Copie 3
Sheets(1).Cells(11, 11).Copy Sheets(3).Cells(65535, 4).End(xlUp)(2)
'Copie 4
Sheets(1).Cells(40, 7).Copy Sheets(3).Cells(65535, 5).End(xlUp)(2)
'copie 5
Sheets(1).Cells(40, 10).Copy Sheets(3).Cells(65535, 6).End(xlUp)(2)
'Copie 6
Sheets(1).Cells(40, 10).Copy Sheets(3).Cells(65535, 7).End(xlUp)(2)
Afficher la suite 

4 réponses

Répondre au sujet
jordane45 19316 Messages postés mercredi 22 octobre 2003Date d'inscriptionModérateurStatut 17 décembre 2017 Dernière intervention - 14 janv. 2017 à 17:21
0
Utile
Bonjour,
Si tu ne veux que les valeurs (sans les formules donc...) tu peux regarder du côté de :
PasteSpecial xlPasteValues

Commenter la réponse de jordane45
Yous00 36 Messages postés lundi 29 janvier 2007Date d'inscription 17 janvier 2017 Dernière intervention - 14 janv. 2017 à 17:56
0
Utile
slt je pense pas que se soit idéal pour mon comme il est écris merci quand même :)
Commenter la réponse de Yous00
ucfoutu 18022 Messages postés lundi 7 décembre 2009Date d'inscriptionModérateurStatut 13 décembre 2017 Dernière intervention - Modifié par ucfoutu le 14/01/2017 à 18:27
0
Utile
1
Bonjour
Si A LA FOIS les valeurs à copier sont des valeurs numériques et que tu ne veux copier QUE les valeurs, tu peux ajouter une ligne de code après la copie, pour "figer"
Exemple à main levée
'Copie 6
Sheets(1).Cells(40, 10).Copy Sheets(3).Cells(65535, 7).End(xlUp)(2)
<code>Sheets(3).Cells(65535, 7).End(xlUp)(2).value = Sheets(3).Cells(65535, 7).End(xlUp)(2).value

essaye</code>
________________________
Nul ne saurait valablement coder ce qu'il ne saurait exposer clairement.
Yous00 36 Messages postés lundi 29 janvier 2007Date d'inscription 17 janvier 2017 Dernière intervention - 17 janv. 2017 à 12:58
Bonjour,

J'ai essayer mais le résultat et pareil merci quand même
Commenter la réponse de ucfoutu

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.