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

turbule à dit:

Bonsoir

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

VB:

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

Cliquez pour agrandir...