Copier des valeurs sans formules [VB]

Résolu/Fermé
alphonse - 21 janv. 2011 à 10:59
 alphonse - 21 janv. 2011 à 11:24
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.

3 réponses

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 743
21 janv. 2011 à 11:11
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
2