Bonjour à tous
Je n'arrive pas à incrémenter la lecture de mes cellules pour créer plusiseurs nouvelles feuilles avec ce nom
je m'explique en a1 j'ai nom1 en a2 j'ai nom 2 etc.. et je voudrais créer à partir de la une feuille qui se nomme nom1 une feuille nom 2 etc
voici le code
merci d'avance pour vos suggestions
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11 Dim Nom As String Dim Cpt As Integer Sub ren_feuille() Sheets("feuil1").Activate Cpt = 1 Nom = Cells(Cpt, "a").Value Cpt = Cpt + 1 Sheets.Add.Name = Nom End Sub
Partager