Copier valeur et non formule
Résolu
sanchis81
Messages postés
138
Statut
Membre
-
sanchis81 Messages postés 138 Statut Membre -
sanchis81 Messages postés 138 Statut Membre -
Bonjour à tous,
le code Sheets("Feuil1").Range("D7:D31").Copy Sheets("Feuil2").Range("A65536").End(xlUp).Offset(1, 0) copie bien les cellules de la feuille 1 vers la feuille 2.
Par contre, ce code me copie la formule contenu par la cellule et non pas la valeur.
Peut on modifier ce code pour copier uniquement la valeur contenu dans la cellule et non sa formule?
Merci d'avance
Sanchis
le code Sheets("Feuil1").Range("D7:D31").Copy Sheets("Feuil2").Range("A65536").End(xlUp).Offset(1, 0) copie bien les cellules de la feuille 1 vers la feuille 2.
Par contre, ce code me copie la formule contenu par la cellule et non pas la valeur.
Peut on modifier ce code pour copier uniquement la valeur contenu dans la cellule et non sa formule?
Merci d'avance
Sanchis
Configuration: Windows XP Internet Explorer 6.0
1 réponse
-
Salut,
Bien sur, tout est possible avec VBA. Si tu veux "t'entrainer" un peu, tu peux tester quelques codes avec l'enregistreur de macro Excel et les modifier. Par exemple copier / collage spécial valeurs avec l'enregistreur de macro tu aurais obtenu : [dans cet exemple j'ai copié D7 (cellule avec formule) et ai fait un collage spécial "valeur" en F7]
Range("D7").Select
Selection.Copy
Range("F7").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
La partie en gras est à adapter à ton code comme ceci :
Sheets("Feuil1").Range("D7:D31").Copy
Sheets("Feuil2").Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
