VBA: Copier feuille et renommer

Y compris Power BI, Power Query et toute autre question en lien avec Excel
s
sofia64
Nouveau venu
Nouveau venu
Messages : 1
Inscrit le : 6 mars 2007

Message par sofia64 » 6 mars 2007, 11:35

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:

   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,

Sofia
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message