Remplacement de feuille

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.

Bonjour,

Sub Macro1()
Dim sh1, sh2, fName As String
fName = "Feuil1"
Application.DisplayAlerts = False
Set sh1 = Sheets(fName)
sh1.Copy After:=sh1
Set sh2 = ActiveSheet
sh1.Delete
sh2.Name = fName
Application.DisplayAlerts = True
End Sub

Bonjour et merci,

ça fonctionne j'ai juste inversé SIMULATEUR ET SIMULATEUR 2. Par contre est-il possible que ça ne me rajoute pas d'autres feuilles comme ça le fait ?

Merci encore.

Grég.

Problème résolu, merci encore !!! Et bon week-end !!!

Rechercher des sujets similaires à "remplacement feuille"