KTM
XLDnaute Impliqué
Salut chers Amis du Forum
Je vous présente ma macro suivante qui doit faire ceci:
-Dans les feuilles sélectionnées ; Copier la Plage I13:I47 et la coller en valeur dans D1347 et mettre le signe égal (=) devant les valeurs dans D1347
- Le problème est que seule la première feuille de la sélection est affectée. Je ne comprends pas pourquoi.
Quelqu'un pourrait-il apporter une correction à mon code ?
Merci
Sub Coopt ()
Sheets(Array("RM", "RMCe", "Rnan", "R",RMm", "Rdp", "RMCSha")).Select
Sheets("RM").Activate
Range("I13:I47").Select
Selection.Copy
Range("D13").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Dim cel As Range
For Each cel In Range("D1347")
cel.Formula = "=" & cel
Next cel
End Sub
Je vous présente ma macro suivante qui doit faire ceci:
-Dans les feuilles sélectionnées ; Copier la Plage I13:I47 et la coller en valeur dans D1347 et mettre le signe égal (=) devant les valeurs dans D1347
- Le problème est que seule la première feuille de la sélection est affectée. Je ne comprends pas pourquoi.
Quelqu'un pourrait-il apporter une correction à mon code ?
Merci
Sub Coopt ()
Sheets(Array("RM", "RMCe", "Rnan", "R",RMm", "Rdp", "RMCSha")).Select
Sheets("RM").Activate
Range("I13:I47").Select
Selection.Copy
Range("D13").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Dim cel As Range
For Each cel In Range("D1347")
cel.Formula = "=" & cel
Next cel
End Sub