Copier des valeurs sans formules [VB] Résolu

Question

Bonjour, 
Alors pour une seule et unique feuille c'est :

Range('B3').Select: Selection.Copy
Range('D5').Select
Selection.PasteSpecial Paste:=xlPasteValues 

ça fonctionne. 

Mais pour moi j'ai 2 feuille et je copiais avec :

Sheets("calc").Range("H2.H80").Copy Sheets("appartenir").Range("C2")

Alors ou puis-je placer le : "Selection.PasteSpecial Paste:=xlPasteValues" ?

Merci.

pijaku · Accepted Answer

Salut,
Simplement :
Si tu es positionné dans la feuille de destination :
With Sheets(Source)
    .Range("H2.H80").Copy
End With
ActiveSheet.Range("C2").PasteSpecial Paste:=xlPasteValues
Si tu es positionné dans la feuille source :
ActiveSheet.Range("H2.H80").Copy
With Sheets(Destination)
    .Range("C2").PasteSpecial Paste:=xlPasteValues
End With

alphonse · Answer

Je ne suis ni dans la source, ni dans la destination ;)... Je cherche et je bloque...

alphonse · Answer

Ah en effet, parfait. ça marche parfaitement bien. Merci beaucoup pijaku !

Copier des valeurs sans formules [VB]

3 réponses

Discussions similaires

Newsletters