Rmplacement de feuille

[Grégf]

Bonjour,

je cherche à remplacer une feuille nommée SIMULATEUR via une autre feuille nommée SIMULATEUR2 dans un même classeur via un bouton : ce qui serait beaucoup plus rapide qu'une recopie d'une feuille.
La difficulté c'est que j'insère des lignes dans SIMULATEUR et que je voudrais que le nom SIMULATEUR ne se transforme en SIMULATEUR2.
En cherchant j'ai trouver des codes que j'ai essayé d'adapter (je n'y connais rien en VBA) mais ça ne passe.
Voici ce que j'ai essayé :

Sub Copy()
Sheets("SIMULATEUR2").Range("A1:Z600").Copy
Sheets ("SIMULATEUR").Activate
Sheets(1).Paste Destination:=Range("A1 :z600")
Application.CutCopyMode = False
End Sub

Si vous avez une solution je suis preneur.
Merci.
Cordialement.
Grég.

 

[Jacky67]

Bonjour,

je cherche à remplacer une feuille nommée SIMULATEUR via une autre feuille nommée SIMULATEUR2
En cherchant j'ai trouver des codes que j'ai essayé d'adapter (je n'y connais rien en VBA) mais ça ne passe.

Grég.

Bonjour,
Pas certain d'avoir compris...
Néanmoins ceci fait une copie conforme de la feuille "Simulateur" et la nomme "Simulateur2"

Sub Copy()
On Error Resume Next
Application.DisplayAlerts = False
Sheets("SIMULATEUR2").Delete
Application.DisplayAlerts = True
On Error GoTo 0
Sheets("SIMULATEUR").Copy After:=Sheets("SIMULATEUR")
ActiveSheet.Name = "SIMULATEUR2"
End Sub

 

[Grégf]

Bonjour,

et merci, en fait je ne veux pas créer de copie mais je voudrais en quelque sorte que la sauvegarde (simulateur2) vienne se copier dans la feuille de base sans rajoute de nouvelle feuille.
Un code qui fonctionne mais qui me rajoute des feuilles au cas ou vous auriez la solution ???
En attendant merci quand même.
Grég.

On Error Resume Next
Application.DisplayAlerts = False
Sheets("SIMULATEUR").Delete
Application.DisplayAlerts = True
On Error GoTo 0
Sheets("SIMULATEUR2").Copy After:=Sheets(("SIMULATEUR2"))
ActiveSheet.Name = "SIMULATEUR"

 

[Grégf]

Problème résolu. Merci encore et bon week-end !

 

[Grégf]

Grace à toi et sans connaissances encore merci !
Voici en remettant un bouton sur la deuxième feuille et ça fonctionne nickel !!!


Sub SIMULATEUR2_Bouton3_Cliquer()

On Error Resume Next
Application.DisplayAlerts = False
Sheets("SIMULATEUR").Delete
Application.DisplayAlerts = True
On Error GoTo 0
Sheets("SIMULATEUR2").Copy After:=Sheets(("SIMULATEUR2"))
ActiveSheet.Name = "SIMULATEUR"

End Sub

Sub Bouton5_Cliquer()

On Error Resume Next
Application.DisplayAlerts = False
Sheets("SIMULATEUR").Delete
Application.DisplayAlerts = True
On Error GoTo 0
Sheets("SIMULATEUR2").Copy After:=Sheets(("SIMULATEUR2"))
ActiveSheet.Name = "SIMULATEUR"


End Sub

 

[Jacky67]

Re...
Donne un classeur exemple avec les feuilles de départ et une autre feuille avec le résultat que tu souhaites obtenir.

**Bravo, si tu as réussi a résoudre le problème