Créer et nommer plusieurs feuilles selon un format
Bonjour,
Est-ce que quelqu'un sait comment créer autant de feuille que la plage de cellule b3:H3 du fichier joint, et qu'elles soient nommées selon le modèle:
3 lettres du mois en cours virgule espace 2 chiffres année en cours tiret nom de la chaine (exemple: avr, 19-Chaine_1)
J'ai bien trouvé sheet.add.name mais cela ne le fait qu'une fois, et pour le format de la date, rien du tout
merci de votre aide
cdt
Ericmzi
Bonjour.
J'écrit et testé ceci ça marche nickel.
à toi de l'essayer
Sub CréerRenomme()
Dim NomFeuil As String, i As Integer, Cell As Range
For Each Cell In Sheets("feuil1").Range("PlageNom")
'J'ai nommé la plage contenant les noms en PlageNom
NomFeuil = Cell.Value
Sheets.Add After:=Sheets(Sheets.Count)
With ActiveSheet
.Name = Format(Date, "mmm") & ", " & Format(Date, "yy") & "-" & NomFeuil
End With
Next Cell
End Subbonjour à tous
perso, je déconseille de créer de multiples feuilles pour gérer des données identiques
mieux vaut tout saisir dans un onglet unique, sans fin
c'est une vraie table de données
ensuite on peut faire un TCD, et le filtrer selon les besoins (par année, mois, etc. )
il y a bien d'autres avantages
VBA n'est pas nécessaire ici
amitiés à tous