barbenault
XLDnaute Nouveau
Bonjour à tous,
J'espère pouvoir trouver sur ce forum des réponses à mes questions. Je vous remercie par avance pour le temps que vous me consacrerez.
Je dispose d'une macro très simple dont le but est de copier / coller une formule d'une plage aux coordonnées fixes vers une plage définie par l'utilisateur (identifier grâce à Active cell).
Pour améliorer ma macro, j'aimerais que cette macro ne s'applique pas seulement à la cellule active mais à une sélection d'une à plusieurs celulles.
Voici mon code :
J'espère pouvoir trouver sur ce forum des réponses à mes questions. Je vous remercie par avance pour le temps que vous me consacrerez.
Je dispose d'une macro très simple dont le but est de copier / coller une formule d'une plage aux coordonnées fixes vers une plage définie par l'utilisateur (identifier grâce à Active cell).
Pour améliorer ma macro, j'aimerais que cette macro ne s'applique pas seulement à la cellule active mais à une sélection d'une à plusieurs celulles.
Voici mon code :
Code:
Sub Auto_forecast()
Dim L As Long, R As Range
L = ActiveCell.Row
Application.ScreenUpdating = False
ActiveSheet.Unprotect Password:=MDP
For Each R In Range("N10,Q10,T10,W10,Z10,AC10,AF10,AI10,AL10,AO10,AR10,AU10")
R.Copy Cells(L, R.Column)
Next
ActiveSheet.Protect UserInterfaceOnly:=True, Password:=MDP, DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowSorting:=True, AllowFiltering:=True, AllowFormattingCells:=False, AllowFormattingColumns:=False, _
AllowFormattingRows:=False
Calculate
Application.ScreenUpdating = True
End Sub