Rmplacement de feuille

Grégf · 28 Avril 2017

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 · 28 Avril 2017

Grégf à dit:
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"

Code:

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 · 28 Avril 2017

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 · 28 Avril 2017

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

Grégf · 28 Avril 2017

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 · 28 Avril 2017

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

Rmplacement de feuille

Grégf

XLDnaute Junior

Jacky67

XLDnaute Barbatruc

Pièces jointes

Grégf

XLDnaute Junior

Grégf

XLDnaute Junior

Grégf

XLDnaute Junior

Jacky67

XLDnaute Barbatruc

Discussions similaires