Copier valeur et non formule Résolu/Fermé

Question

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

pijaku · Answer

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

Copier valeur et non formule

1 réponse

Discussions similaires