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

lasitapro

XLDnaute Nouveau
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.
 

turbule

XLDnaute Nouveau
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
 

Pièces jointes

  • Exemple Nom.xlsm
    22.6 KB · Affichages: 5

lasitapro

XLDnaute Nouveau
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
Merciiii !
 

Discussions similaires

Membres actuellement en ligne

Statistiques des forums

Discussions
311 725
Messages
2 081 943
Membres
101 849
dernier inscrit
florentMIG