Création de feuilles selon la valeur des cellules

[Guest]

Bonjour à tous!

J'ai (déjà) besoin de vous en cette nouvelle année. Dans mon fichier, j'ai une première feuille "Général" et je voudrais écrire un code qui me permette:
de créer autant de feuilles nouvelles qu'il y a d'Entreprises différentes (Colonne A), donc dans mon expemlpe, création de 3 nouvelles feuilles
de donner à ces nouvelles feuilles le nom de l'entreprise correspondant...

Même en 2007, je suis toujours une bille en programmation VBA! Mais, m'améliorer fait partie de mes résolutions 😉
Merci et bonne soirée!

 

[ERIC S]

Re : Création de feuilles selon la valeur des cellules

Bonjour
je pars donc pas le temps
un début mais il y a un message de suppression de feuille qui apparaît et
application.displayalerts ne fonctionne pas car sans doute conflit avec on error

Sub Insertion_Feuille()
On Error GoTo efface
For Each c In Range("A2", [A2].End(xlDown))
Sheets.Add.Move After:=Sheets(Sheets.Count)
ActiveSheet.Name = c.Value
Sheets("Général").Activate
Next c
Exit Sub
efface:
ActiveSheet.Delete
Resume Next
End Sub

 

[ziopizza]

Re : Création de feuilles selon la valeur des cellules

Bonjour lililette,Eric s,
Regarde le fichier joint.
Meilleurs voeux 2007
Salut Yves

 

[max47]

Re : Création de feuilles selon la valeur des cellules

Bonjour
je viens de tomber sur ce fil qui est tout a fait ce que je cherches dans l exemple ce sont les données de la col A qui servent de references pour creer les onglets, que faut t il modifier dans la macro pour que se soit la col B ou C ou D qui servent de réferences
merci par avance