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.
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.
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
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"