Macro condition SI trop volumineuse

[Usine à gaz]

Bonjour,

J’ai deux problèmes que je ne sais pas résoudre et j’ai besoin de votre aide :

J’ai besoin de copier une colonne en fonction d’un numéro de semaine comme indiquée ci-dessous

If [ld1] = 1 Then (si ld1 = semaine 1 copie colonne I vers colonne B ) etc pour 53 semaines, soit 53 conditions)

1 – cela fait une macro très longues et peut-être auriez-vous une solution pour qu’elle soit plus courte ?
2 – Ld1 est dans une autre feuille (If [ld1] = 1 Then ) et je ne sais pas le traduire dans la macro.


Mini partie de la macro pour infos :

Sub CopieExped()
'
' CopieExped Macro
'

'
If [ld1] = 1 Then
Sheets("Exped").Select
ActiveSheet.Unprotect
Columns("I:I").Select
Selection.Copy
Columns("B:B").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A3").Select
Application.CutCopyMode = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Exit Sub
End If


If [ld1] = 2 Then
Sheets("Exped").Select
ActiveSheet.Unprotect
Columns("J:J").Select
Selection.Copy
Columns("B:B").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A3").Select
Application.CutCopyMode = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Exit Sub
End sub

En espèrant avoir été compréhensible, je vous adresse un grand merci pour vos réponses.
Amicalement,
Lionel,

 

[Usine à gaz]

Re : Macro condition SI trop volumineuse

Je suis nul, j'ai pas compris où je dois mettre tas formule :

- je dois mettre en B1 de ma feuille ("Exped") et tirer vers le bas ta formule : =INDIRECT("L"&LIGNE(A1)&"C"&'SM (2)'!$LD$1+8;FAUX) ?
Mais LD1 est dans une autre feuille nommée SM (2)

Cette formule remplace-t-elle la macro ?

 

[Usine à gaz]

Re : Macro condition SI trop volumineuse

J'ai enfin compris et plus besoin de la macro.
Un grand merci, vraiment.
Amicalement,
Lionel,