Скачать с ютуб Excel - VBA - Ajouter et Renommer des feuilles в хорошем качестве

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