Discussion :

[apdf1]

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.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Mais sa colle les uniquement les formules

Je vous remercie d'avance

Max

[MarcelG]

Bonjour,

Sans VBA
Collage Spécial Valeurs

Avec VBA
PasteSpecial

Aide VBA sur ce lien
PasteSpecial

[apdf1]

Bonjour Marcel

Oui je suis aller voir le lien j'ai essayer sans résultat. Je ne suis pas doué pour le VBA

Merci

Max

[apdf1]

Salut BENNASR

Nickel je te remercie et te souhaite une bonne soirée

Max

[MarcelG]

Bonjour apdf, BENNASR, Bonjour le Forum,

apdf,

Sauf erreur, BENNASR et moi-même t'avons, en définitive, donné la même indication.

BENNASR,

Pour compléter, je dirais qu'il est opportun de quitter le mode copy après collage (ce que ne stipule d'ailleurs pas l'aide Microsoft)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.CutCopyMode = False

Cela revient, sur le tableur, à désactiver les pointillés qui délimitent la zone à copier.

[apdf1]

Bonjour Marcel

Ton idée est pertinente mais j'ai voulu la joindre au code de BENNASR

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Sheets("Index").Range("A5:A1500").copy Application.CutCopyMode = False
Sheets("Patch").Range("B5").PasteSpecial Paste:=xlPasteValues

sa me donne un message d'erreur "La méthode copy de la classe range a echoué"

Alors je suppose que j'ai du faire une erreur?

Merci

Max

[BENNASR]

bonsoir
essayez avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Sheets("Index").Range("B5:B1500").copy
Sheets("Patch").Range("B5").PasteSpecial Paste:=xlPasteValues