XL pour MAC Cas VBA à rendre... je suis bloquée

[lasitapro]

Bonjour !

Je viens pour vous demander de l'aide au sujet d'un devoir maison de VBA.
Je dois créer 29 feuilles nommées comme les 29 noms présents dans une colonne de mon tableau, et y insérer dans chaque feuille, le même tableau présent dans une autre feuille.

Quelqu'un sait comment faire ?

Merci de votre aide,
Bonne soirée.

 

[ChTi160]

Bonsoir Lasitapro
Bienvenu sur XLD
je vois que tu n'as pas encore commencé tes devoirs !
Dans l'attente dun fichier
Bonne fin de Soirée
Jean marie

 

[turbule]

Bonsoir

Tu trouveras un petit code que tu peux t'inspirer pour réaliser ton devoir 😉

Sub Nomfeuille()

Dim wb As Workbook
Dim ws As Worksheet, wstab As Worksheet
Dim ln As Integer, i As Integer
Dim Nom As String


Set wb = ThisWorkbook
Set ws = wb.Worksheets("Test")
Set wstab = wb.Worksheets("Tableau")

For i = 2 To 4

    Worksheets.Add After:=ActiveWorkbook.Worksheets(ActiveWorkbook.Worksheets.Count)
    Nom = ws.Cells(i, 1)
    ActiveSheet.Name = Nom
    wstab.Range("A2:H19").Copy Destination:=Worksheets(Nom).Range("A2:H19")
    

Next i

End Sub

 

[lasitapro]

Bonsoir

Tu trouveras un petit code que tu peux t'inspirer pour réaliser ton devoir 😉

Sub Nomfeuille()

Dim wb As Workbook
Dim ws As Worksheet, wstab As Worksheet
Dim ln As Integer, i As Integer
Dim Nom As String


Set wb = ThisWorkbook
Set ws = wb.Worksheets("Test")
Set wstab = wb.Worksheets("Tableau")

For i = 2 To 4

    Worksheets.Add After:=ActiveWorkbook.Worksheets(ActiveWorkbook.Worksheets.Count)
    Nom = ws.Cells(i, 1)
    ActiveSheet.Name = Nom
    wstab.Range("A2:H19").Copy Destination:=Worksheets(Nom).Range("A2:H19")
   

Next i

End Sub

Merciiii !