Rmplacement de feuille

Grégf

XLDnaute Junior
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

XLDnaute Barbatruc
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
 

Pièces jointes

  • copie feuille.xlsm
    15 KB · Affichages: 22

Grégf

XLDnaute Junior
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

XLDnaute Junior
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
 

Discussions similaires

Statistiques des forums

Discussions
312 884
Messages
2 093 248
Membres
105 658
dernier inscrit
Mario Richard