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.

A voir également:

Xlpastevalues
Dessin sms copier coller zizi ✓ - Forum Réseaux sociaux
Vb - Télécharger - Langages
Excel copier formule sans incrémentation ✓ - Forum Bureautique
Copier une vidéo youtube - Guide
Vb cable - Télécharger - Audio & Musique

3 réponses

Réponse 1 / 3

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 751
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

Discussions similaires

Macro copier valeurs sans formules

Excel si cellule contient texte alors...

Excel VBA : Récupérer la valeur d'une cellule

VBA .Copier valeur cellule excel sans formule

VBA - NE copier que la valeur et non la formule

Afficher le numéro de ligne de la cellule