Copier & Coller colonne sans formule

[maval]

Bonjour

J'ai une colonne "B5" dans ma feuille Index que je voudrais copier et coller dans la feuille plusieur feuille du même classeur sans Formules.
J'avais fait ceci.

Sheets("Index").Range("B5:B1500").Copy Destination:=Sheets("Patch").Range("B5")

Mais sa colle les uniquement les formules

Je vous remercie d'avance

 

[piga25]

Bonjour,

Un essai fait avec l'enregistreur macro

Sheets("Index").Range("B5:B1500").Copy Destination:=Sheets("Patch").Range("B5").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone

 

[maval]

Bonjour piga

Je te remercie mais ton code doit manquer quelque chose?

 

[piga25]

Bonjour,
Ou alors peut être comme cela

Sheets("Index").Range("B5:B1500").Copy Destination:=Sheets("Patch").Range("B5")
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

 

[job75]

Bonjour maval, piga25,

Le b a ba pour copier-coller uniquement les valeurs :

Sheets("Patch").Range("B5:B1500") = Sheets("Index").Range("B5:B1500").Value

A+