Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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
 

Discussions similaires

Réponses
2
Affichages
136
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…