Bonjour à tous, je bloque sur une macro excel visant à copier une feuille portant le nom du choix d'une liste déroulante.
Feuille 1 : Je fais le choix "Feuille x"
Feuille 1 : Je copie "Feuille X"
Si je fais un autre choix, la copie est remplacée par la bonne feuille.
J'ai tapé la macro suivante :
Private Sub Saisie_Change(ByVal Target As Range)
Dim Ws As Worksheet
Dim Sh As String
If Not Application.Intersect(Target, Range("M5")) Is Nothing Then
Sh = Target.Value
Sheets(Sh).Range("A7:L28").Copy ActiveSheet.Range("A16")
End If
End Sub
Ça ne fonctionne pas.. Pouvez-vous m'aider svp ?
Feuille 1 : Je fais le choix "Feuille x"
Feuille 1 : Je copie "Feuille X"
Si je fais un autre choix, la copie est remplacée par la bonne feuille.
J'ai tapé la macro suivante :
Private Sub Saisie_Change(ByVal Target As Range)
Dim Ws As Worksheet
Dim Sh As String
If Not Application.Intersect(Target, Range("M5")) Is Nothing Then
Sh = Target.Value
Sheets(Sh).Range("A7:L28").Copy ActiveSheet.Range("A16")
End If
End Sub
Ça ne fonctionne pas.. Pouvez-vous m'aider svp ?