Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Insertion de feuille en automatique

Insertion de feuille en automatique

2 réponses
Avatar
Tof
Bonjour,

Je souhaiterai faire une macro pour insérer des feuilles en automatique mais
aussi en les renommant :ex insérer 52 feuille qui se nommeraient 01-2005 ;
02-2005.... ; 52-2005
Merci d'avance pour vos lumières

Christophe
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
anonymousA
Bonjour,

For I = 1 To 52
Sheets.Add(, Sheets(Sheets.Count)).Name = IIf(I < 10, "0" & I & "-2005",
I & "-2005")
Next

A+


Bonjour,

Je souhaiterai faire une macro pour insérer des feuilles en automatique mais
aussi en les renommant :ex insérer 52 feuille qui se nommeraient 01-2005 ;
02-2005.... ; 52-2005
Merci d'avance pour vos lumières

Christophe


Avatar
JLuc
Tof avait soumis l'idée :
Bonjour,

Je souhaiterai faire une macro pour insérer des feuilles en automatique mais
aussi en les renommant :ex insérer 52 feuille qui se nommeraient 01-2005 ;
02-2005.... ; 52-2005
Merci d'avance pour vos lumières

Christophe


Sub test()
For x = 1 To 52
Worksheets.Add after:=Sheets(Sheets.Count)
Worksheets(Sheets.Count).Name = x & "-2005)"
Next
End Sub