Pb de code VBA

JC de Lorient · 18 Avril 2005

Bonjour le forum

Bien que fortement déconseillé, je me permets de changer de post puisque mon souci n'a plus rien a voir avec l'intitulé du précédent post

j'ai ce bout de code :

ActiveWorkbook.Sheets('mars').Range('B67:AB67').Copy Destination:= _
Workbooks('Copie de Calcul.xls').Sheets('SAISIE').Range('B' & Ligne & ':AB' & Ligne)

sur le fond il fonctionne bien mais en fait je souhaiterais qu'il me copie les valeurs et non pas les formules
Que faudrait il rajouter au code pour obtenir ce que je souhaite ?

merci a vous

JC

Riddick · 18 Avril 2005

Bonjour JC, le forum
Il me semble que ceci doit marcher
Ce n'est surement pas le plus leger et le plus beau code qui existe mais bon....

ActiveWorkbook.Sheets('mars').Range('B67:AB67').Copy

Workbooks('Copie de Calcul.xls').Sheets('SAISIE').Range('B' & Ligne & ':AB' & Ligne).select

Selection.PasteSpecial Paste:=xlValues

Dan · 18 Avril 2005

Bonjour,

j'ai un peu transformé ta macro. Essaie donc ceci :

Code:

Set Plage = ActiveWorkbook.Sheets('SAISIE').Range('B' & Ligne & ':AB' & Ligne)
ActiveWorkbook.Sheets('mars').Range('B67:AB67').Copy

With Plage
       .PasteSpecial Paste:=xlValues
       .PasteSpecial Paste:=xlFormats
End With

La macro colle les valeurs et formats.

JC de Lorient · 18 Avril 2005

Bonjour Dan, re Riddick, le forum

Merci a tous les deux

avec bcp de peine suis enfin arrivé aux bouts de mes attentes
grace a vous tous

Merci à vous et très bonne journée

JC

Pb de code VBA

JC de Lorient

Guest

Riddick

XLDnaute Occasionnel

Dan

XLDnaute Barbatruc

JC de Lorient

Guest

Discussions similaires