Simplifier code VBA copier Coller
Bonjour, et merci à tous pour votre aide.
1) Tout d'abord : J'aimerais simplifier le code ci-dessous (ici il n'y a que 2 "If" mais en fait il y en aurait au moins 30).
En résumé en langage courant je voudrais qu'en fonction de la valeur de F16 (If F16=....) je puisse copier une plage donnée variable (30 variables environ qui peuvent être nommée par exemple "B38:J35" serait SAMICS6) pour la coller dans une autre plage nommée fixe (S1SA1).
2) En BONUS Je souhaiterais aussi (dans la même macro si c'est possible??) qu'en fonction de la valeur de F17(If F17=...) je puisse aussi copier une plage donnée pour la coller dans une autre plage nommée fixe (S1SA2).
Avez vous une idée pour simplifier ce code?
Merci beaucoup
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
|
Sub CREERSEANCE1()
'
' CREERSEANCE1 Macro
'
'1ere situation
If Range("F16").Value = "6" Then
Sheets("SAMIC").Range("B38:J50").Copy
Sheets("S1").Select
Range("S1SA1").Select
ActiveSheet.Paste
End If
If Range("F16").Value = "2" Then
Sheets("SAMIC").Range("B53:J62").Copy
Sheets("S1").Select
Range("S1SA1").Select
ActiveSheet.Paste
End If
'
End Sub |