Pb de code VBA

[JC de Lorient]

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]

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]

Bonjour,

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

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]

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