XL 2016 Dupliquer et renommer feuille

[KTM]

Bonjour chers tous
Dans mon classeur j'ai une de mes feuille Nommée "DASHBORDr".
Je veux faire une macro qui va la dupliquer ,renommer la copie "DASHBORD" et la placer juste avant "DASHBORDr".
Merci et bonne journée...

 

[sylvanu]

Bonjour KTM,
Essayez :

Sub Dupliquer()
    On Error GoTo Fin
    Sheets("DASHBORDr").Copy before:=Sheets("DASHBORDr"): ActiveSheet.Name = "DASHBORD"
Exit Sub
Fin:
    MsgBox "La feuille DASHBORD existe déjà"
End Sub

 

[mapomme]

Bonjour à tous😉,

J'aurais plutôt inversé la condition pour ne pas créer une copie à chaque fois qu'on lance la macro (même quand la feuille "DASHBORD" existe déjà).

Sub Dupliquer()
   On Error GoTo Creation
   Sheets("DASHBORD").Select
   MsgBox "La feuille DASHBORD existe déjà", vbInformation: Exit Sub
Creation:
   Sheets("DASHBORDr").Copy before:=Sheets("DASHBORDr")
   ActiveSheet.Name = "DASHBORD"
End Sub

 

[KTM]

Bonjour KTM,
Essayez :

Sub Dupliquer()
    On Error GoTo Fin
    Sheets("DASHBORDr").Copy before:=Sheets("DASHBORDr"): ActiveSheet.Name = "DASHBORD"
Exit Sub
Fin:
    MsgBox "La feuille DASHBORD existe déjà"
End Sub

Tout simplement !!!!! Grand Merci....

 

[KTM]

Bonjour à tous😉,

J'aurais plutôt inversé la condition pour ne pas créer une copie à chaque fois qu'on lance la macro (même quand la feuille "DASHBORD" existe déjà).

Sub Dupliquer()
   On Error GoTo Creation
   Sheets("DASHBORD").Select
   MsgBox "La feuille DASHBORD existe déjà", vbInformation: Exit Sub
Creation:
   Sheets("DASHBORDr").Copy before:=Sheets("DASHBORDr")
   ActiveSheet.Name = "DASHBORD"
End Sub

Grand Merci....
Vous êtes un vrai Coach