Copier & Coller colonne sans formule

piga25

XLDnaute Barbatruc

• 22 Novembre 2018

• #2

Bonjour,

Un essai fait avec l'enregistreur macro

Code:

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

 

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 22 Novembre 2018

• #3

Bonjour piga

Je te remercie mais ton code doit manquer quelque chose?

 

Vote positif 0 Vote négatif

piga25

XLDnaute Barbatruc

• 22 Novembre 2018

• #4

Bonjour,
Ou alors peut être comme cela

VB:

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 22 Novembre 2018

• #5

Bonjour maval, piga25,

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

Code:

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

A+

 

Vote positif 0 Vote négatif