sofia64
Nouveau membre
Bonjour à tous,
Je suis une novice en matière de vba et je cherche à ecrire une macro qui normalement devrait etre simple, mais je n'arrive pas à obtenir le résultat attendu.
Lorsque je clicque sur l'onglet Nouvelle feuille, je voudrais que la nouvelle feuille qui se crée soit une copie conforme de la feuille d'avant, mais qu'elle soit renommée avec un nom que je précise. J'arrive à copier la feuille mais le problème c'est qu'une fois que je clique sur l'onglet nouvelle feuille, une feuille en plus se crée portant le nouveau nom que j'ai précisé et qui est vide!
(ma première feuille porte le nom "Situation1", et j'aimerai renommer la feuile qui se crée "Situation2...etc")
Bon, voici mon code:
Merci d'avance,
Sofia
Je suis une novice en matière de vba et je cherche à ecrire une macro qui normalement devrait etre simple, mais je n'arrive pas à obtenir le résultat attendu.
Lorsque je clicque sur l'onglet Nouvelle feuille, je voudrais que la nouvelle feuille qui se crée soit une copie conforme de la feuille d'avant, mais qu'elle soit renommée avec un nom que je précise. J'arrive à copier la feuille mais le problème c'est qu'une fois que je clique sur l'onglet nouvelle feuille, une feuille en plus se crée portant le nouveau nom que j'ai précisé et qui est vide!
(ma première feuille porte le nom "Situation1", et j'aimerai renommer la feuile qui se crée "Situation2...etc")
Bon, voici mon code:
Code:
Sub Workbook_NewSheet(ByVal Sh As Object)
copierenommer (Sh.Name)
End Sub
Sub copierenommer (onglet As String)
onglet = "Situation" & Sheets.Count
Sheets("Situation1").Copy After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = onglet
Sheets(onglet).Select
End Sub
Merci d'avance,
Sofia