Problème macro collage spécial

[timmy1]

Bonjour à tous,

Je veux faire un copier/collage spécial valeurs multiplication d'une page à une autre, ce qui fonctionne très bien, par contre la macro me donne un résultat incohérent.
Y-a-t_il un problème de macro pour ces choix?

Voilà l'extrait de mon code

Workbooks.Open Filename:=rep_fich_act
Cells.Replace What:=".", Replacement:=",", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Range("B3:S9").Select
Selection.NumberFormat = "0.00"
ActiveWorkbook.Save
Selection.Copy
Windows("activite_2009.xls").Activate
Range("B6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlMultiply, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False

Par avance merci

 

[JNP]

Re : Problème macro collage spécial

Bonjour Timmy1 🙂,
De base, je dirais que tu travailles à l'envers

Range("B3:S9").Select[B][COLOR=#ff0000]-> c'est là qu'est ton multiplicateur[/COLOR][/B]
Selection.NumberFormat = "0.00"
ActiveWorkbook.Save
Selection.Copy
Windows("activite_2009.xls").Activate
Range("B6").Select[B][COLOR=red] -> et là l'emplacement de la copie[/COLOR][/B]
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlMultiply, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False

Il faut donc que tu copie B6, et que tu colles en mutipliant dans B3:S9. De plus, tu doit faire 2 étapes : copier/coller les valeurs que tu veux multiplier, puis sélectionner la cellule qui contient le multiplicateur pour l'appliquer aux valeurs copiées.
Bonne journée 😎