Re: VBA Auto Génération de Feuilles à la Volée en fonction d'un Tableau
Salut Florent, le Forum
ET oui Excel 97 génère des erreurs car il lui faut souvent que la feuille soit sélectionnée avant de travailler dessus...
Déjà, applique les conseils que j'avais donnés à DJ-Run en démasquant la feuille "Template" et ensuite essaie de remplacer la macro "Copie" par celle ci :
Sub Copie()
For Each Cell In Plage
Var = Cell.Value
If Cell.Value = "" Then GoTo Suite
L = Sheets(Var).Range("a65535").End(xlUp).Row + 1
Sheets("Base").Select
WSBase.Range(Cells(Cell.Row, 1), Cells(Cell.Row, 3)).Copy
Sheets(Var).Select
ActiveSheet.Paste Destination:=Worksheets(Var).Range("A" & L)
Application.CutCopyMode = False
Suite:
Next Cell
End Sub
Pour éviter le feu d'artifice "Application.DisplayAlerts = False" en début de procédure, remettre à True en sortie.
Bon Courage
@+Thierry