Copier automatiquement avec macro
amandine.amara
Messages postés
5
Statut
Membre
-
cs_Le Pivert Messages postés 8437 Statut Contributeur -
cs_Le Pivert Messages postés 8437 Statut Contributeur -
Bonjour, alors je souhaite copier automatiquement plusieurs tableaux dans des feuilles excel selon le résultat d'une cellule.
J'ai testé avec une macro mais cela ne fonctionne pas.
Voici le code:
If Range("c5").Value = "aerzen-MSB7" Then
Sheets("aerzen-MSB7").Select
Columns("A:M").Select
Selection.Copy
Sheets("Feuil4").Select
Range("D4").Select
ActiveSheet.Paste
If Range("c5").Value = "adicomp-renner" Then
Sheets("Adicomp-renner").Select
Columns("A:M").Select
Selection.Copy
Sheets("Feuil4").Select
Range("D4").Select
ActiveSheet.Paste
End If
End If
End Sub
J'ai testé avec une macro mais cela ne fonctionne pas.
Voici le code:
If Range("c5").Value = "aerzen-MSB7" Then
Sheets("aerzen-MSB7").Select
Columns("A:M").Select
Selection.Copy
Sheets("Feuil4").Select
Range("D4").Select
ActiveSheet.Paste
If Range("c5").Value = "adicomp-renner" Then
Sheets("Adicomp-renner").Select
Columns("A:M").Select
Selection.Copy
Sheets("Feuil4").Select
Range("D4").Select
ActiveSheet.Paste
End If
End If
End Sub
1 réponse
-
Bonjour,
Tu n'as pas suivi les recommandations données ici:
https://forums.commentcamarche.net/forum/affich-35819842-probleme-avec-fonction-si-dans-macro
