Code VBA - Creation feuille qui ne fonctionne pas

  • Initiateur de la discussion Initiateur de la discussion gourdin
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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

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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
4
Affichages
363
  • Question Question
XL 2021 VBA excel
Réponses
4
Affichages
80
Réponses
2
Affichages
409
Réponses
12
Affichages
909
  • Question Question
Microsoft 365 Excel VBA
Réponses
5
Affichages
354
Réponses
4
Affichages
151
Retour