Création de feuilles selon la valeur des cellules

Guest · 6 Janvier 2007

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 · 7 Janvier 2007

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 · 7 Janvier 2007

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

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

max47 · 24 Mars 2008

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

Création de feuilles selon la valeur des cellules

Guest

Guest

ERIC S

XLDnaute Barbatruc

ziopizza

XLDnaute Occasionnel

Pièces jointes

max47

XLDnaute Nouveau

Discussions similaires