Discussion :

[jtk77]

Bonjour,
Je suis novice en VB.
Voilà je cherche à copier x feuille en fonction de x valeurs de cellules.
La fonction qui suit fonctionne pour une feuille mais la fonction d'après avec boucle me donne erreur 13 (incompatibilité de type)

Quelqu'un pourrait-il m'aider ?

Merci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 'copy feuille et renomme la nouvelle feuille
Function CopyFeuille(NomFeuille As String, NewFeuille As String) As Boolean
   Sheets(NomFeuille).Select
   Sheets(NomFeuille).Copy After:=Sheets(ThisWorkbook.Sheets.Count)
   ActiveSheet.Name = NewFeuille
   CopyFeuille = True
End Function
 
 
 'copy feuille et renomme la nouvelle feuille avec une boucle
 Function Copy_Feuille(NomFeuille As Range, NewFeuille As Range) As Boolean
    For x = 1 To 12
      If NomFeuille.Cells(x, 1) = "" Then Copy_Feuille = True
      If NomFeuille.Cells(x, 1) <> "" Then Sheets(NomFeuille.Cells(x, 1)).Select
        'Sheets(NomFeuille.Cells(x, 1)).Copy After:=Sheets(ThisWorkbook.Sheets.Count)
        'ActiveSheet.Name = NewFeuille
    Next x
 End Function

[jfontaine]

Bonjour,

Dans ton code tu ne donne pas le nom de chaque feuille a créer.
dans ton cas, il n'y a pas d'utilité d'utiliser une fonction.
Une fonction sert a retourner une information, et dans ton cas j ene vois pas quoi

Ci dessous une procédure qui duplique une feuille autant de fois que le nombre de noms fournis dans la range fournie en paramètre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub Creation_Feuilles(Sh As Worksheet, Rg_Nom As Range)
 
For Each cell In Rg_Nom
    Sh.Copy after:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
    ActiveSheet.Name = cell.Value
Next
 
End Sub

on appel comme cela

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Creation_Feuilles ThisWorkbook.Sheets("Feuil1"), ThisWorkbook.Sheets("Feuil2").Range("C1:C5")