Excel - VBA - Ajouter et Renommer des feuilles

Nous allons voir aujourd'hui comment ajouter des feuilles à la suite puis de les renommer en fonction des valeurs de cellules.
Vous trouverez ci-dessous le code utilisé pendant la vidéo :
Sub renommefeuille()
Dim nbfeuille As Integer
Dim feuille As Integer
Dim nbligne As Integer
Dim numfeuille As Integer
Dim ligne As Integer
nbfeuille = Feuil1.Range("D1") 'Correspond au nombre de feuille que nous voulons ajouter
'Boucle permettant de rajouter de 1 à 12 (nombre de la cellule D1) les feuilles
For feuille = 1 To nbfeuille
Sheets.Add after:=Sheets(Sheets.Count)
Next feuille
nbligne = Feuil1.Range("D1") 'nbligne permet de savoir jusqu'à quelle ligne la liste des mois se termine. En autre c'est 12
numfeuille = 1 'Permet, lors de la boucle, de prendre la bonne feuille pour la renommer
' Boucle permettant de commencer à la feuille 2 jusqu'à la feuille 13 pour les renommer aux memes valeurs que les cellules A1 à A12
For ligne = 1 To nbligne
numfeuille = numfeuille + 1
Sheets(numfeuille).Name = Feuil1.Cells(ligne, 1).Value
Next ligne
Feuil1.Select
End Sub

[@IlayCodeur]

Merci bro tu le sauve la vie 😊😊

[@dometine1441]

Bonjour et merci pour la vidéo. Je veux faire le même travail mais avec des données dans chaque feuille. Comment faire pour amener les données en même temps ? S'il vous plait.

[@sarahb8031]

merci pour ce partage super interessant, je voulais savoir si y'a une formule qui renomme les feuilles après que celles ci soit nommé?

[@remiboilard3241]

Bonjour sarah B, afin d'effectuer cette tâche, il faut au préalable mettre le nom des feuilles dans des cellules et avec l'aide du VBA écrire :
Feuil12.Name = Feuil1.Range("AA2").Value

[@remiboilard3241]

Si tu as plus de 6 feuilles, mieux vaut utiliser une boucle For

[@aureliedenoeud853]

Bonjour, je viens de tester mais au moment de la lecture, rien ne se passe, comment faire