Bonjour à tous,
Je vais essayer de vous expliquer mon problème concernant VBA.
Feuilles déjà existantes :
- Master : avec une liste d'entreprises en colonne A et leurs pays respectifs en colonne B
- Entreprise 1 : avec son nom (Entreprise 1) en A1 et son pays (France) en a2
Mon objectif : créer une procédure VBA qui permet de copier une feuille déjà existante (Entreprise 1), en modifiant son nom (entreprise coca, etc...), et en modifiant les 2 premieres lignes de la colonne A avec des données issues de la feuille Master.
Voici mon code VBA actuel qui rencontre un probleme (la 3e ligne en partant de la fin) et qui marche pratiquement : cela me creer bien des feuilles nouvelles remplies, sauf qu'une feuille sans nom est ajoutée à la toute fin, et un message d'erreur apparait (application defined error or object defined error)
Desolé de ne pouvoir vous envoyer un fichier
Merci d'avance
Sub copie_renomme()
nb_entreprises = Sheets("Master").Rows.Count
For i = 2 To nb_entreprises
Sheets("A2A").Select
Cells.Copy
Sheets.Add after:=Sheets(Worksheets.Count)
ActiveSheet.Paste
ActiveSheet.Cells(1, 1) = Sheets("Master").Cells(i, 1)
ActiveSheet.Cells(2, 1) = Sheets("Master").Cells(i, 2)
ActiveSheet.Name = Cells(1, 1)
Next
End Sub
Je vais essayer de vous expliquer mon problème concernant VBA.
Feuilles déjà existantes :
- Master : avec une liste d'entreprises en colonne A et leurs pays respectifs en colonne B
- Entreprise 1 : avec son nom (Entreprise 1) en A1 et son pays (France) en a2
Mon objectif : créer une procédure VBA qui permet de copier une feuille déjà existante (Entreprise 1), en modifiant son nom (entreprise coca, etc...), et en modifiant les 2 premieres lignes de la colonne A avec des données issues de la feuille Master.
Voici mon code VBA actuel qui rencontre un probleme (la 3e ligne en partant de la fin) et qui marche pratiquement : cela me creer bien des feuilles nouvelles remplies, sauf qu'une feuille sans nom est ajoutée à la toute fin, et un message d'erreur apparait (application defined error or object defined error)
Desolé de ne pouvoir vous envoyer un fichier
Merci d'avance
Sub copie_renomme()
nb_entreprises = Sheets("Master").Rows.Count
For i = 2 To nb_entreprises
Sheets("A2A").Select
Cells.Copy
Sheets.Add after:=Sheets(Worksheets.Count)
ActiveSheet.Paste
ActiveSheet.Cells(1, 1) = Sheets("Master").Cells(i, 1)
ActiveSheet.Cells(2, 1) = Sheets("Master").Cells(i, 2)
ActiveSheet.Name = Cells(1, 1)
Next
End Sub