Code VBA - Creation feuille qui ne fonctionne pas

gourdin

XLDnaute Impliqué
Bonjour,

En bas de page le code qui me pose problème.
Il ajoute un nouvelle feuille dont le nom correspond à la valeur d'une cellule et cela fonctionne.
Il est également censé afficher un message et arrêter la macro si cette feuille existe déjà mais cela ne fonctionne pas et un message de débogage s'affiche ("Impossible de renommer une feuille comme une autre feuille etc.")
Voir fichier joint.
Merci de votre aide

Sub creation_page()
Dim TEST As Worksheet
On Error Resume Next
Set TEST = Sheets("Feuil1").Range("F5").Value
On Error GoTo 0
If Not TEST Is Nothing Then
MsgBox "Cette feuille existe déjà !"
Else
Sheets("modele").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = Sheets("Feuil1").Range("F5").Value
End If
End Sub
 

Pièces jointes

  • Classeur3.xls
    35 KB · Affichages: 37

Bebere

XLDnaute Barbatruc
Re : Code VBA - Creation feuille qui ne fonctionne pas

bonjour gourdin
il faut une boucle pour tester si le nom existe
Sub creation_page()
Dim NomFeuille As String, Test As Boolean, Ws As Worksheet

NomFeuille = Sheets("Feuil1").Range("F5").Value

For Each Ws In Worksheets
If Ws.Name = NomFeuille Then Test = True: Exit For
Next Ws

If Test Then
MsgBox "Cette feuille existe déjà !"
Else
Sheets("modele").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = NomFeuille
End If

End Sub
 

Statistiques des forums

Discussions
311 725
Messages
2 081 949
Membres
101 852
dernier inscrit
dthi16088