bonjour à tous
J'ai un classeur avec un onglet nommée 167
Je voudrais créer par copie de l'onglet 167, les onglets 168 à 174
J'aurais juste besoin que dans chaque nouveau onglet crée, dans la cellule A6, les nombres s'incrémentent aussi de 168 à 174).
j'ai parcouru le forum et essayé d'adapter ce que j'ai trouvé mais ce n'est pas à ma portée.
D'autant plus que quand j'exécute la macro ça me mets"End Sub attendu"
merci de votre aide
Sub Macro1()
'
' Macro1 Macro
' dupliquer onglet
'
Sub TestAjoutFeuilles()
'
Sheets(Sheets.Count).Copy After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Select
ActiveSheet.Name = "Sem " & CInt(Mid(ActiveSheet.Name, 2, "167 ")) + 1
End Sub
J'ai un classeur avec un onglet nommée 167
Je voudrais créer par copie de l'onglet 167, les onglets 168 à 174
J'aurais juste besoin que dans chaque nouveau onglet crée, dans la cellule A6, les nombres s'incrémentent aussi de 168 à 174).
j'ai parcouru le forum et essayé d'adapter ce que j'ai trouvé mais ce n'est pas à ma portée.
D'autant plus que quand j'exécute la macro ça me mets"End Sub attendu"
merci de votre aide
Sub Macro1()
'
' Macro1 Macro
' dupliquer onglet
'
Sub TestAjoutFeuilles()
'
Sheets(Sheets.Count).Copy After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Select
ActiveSheet.Name = "Sem " & CInt(Mid(ActiveSheet.Name, 2, "167 ")) + 1
End Sub