[VBA] Création de feuille depuis userform

Bonjour à tous,

Je viens vers vous car je tombe sur un problème, j'utilise un userForm qui fonctionne très bien, cet userForm permet lorsque l'on clique sur enregistrer de :
1 - Copier la feuille model en avant dernière position et la renomme (Cette feuille contient de cellules nommées)
2 - Insère les information de l'userForm dans certaine cellule

Jusque là pas de soucis, sauf que lorsque je clique sur Enregistrer, j’obtiens un message d'erreur pour toutes les cellules nommées disant que le nom existe déjà
(le Nom "xxx" existe déjà voulez-vous modifié la référence par celle-ci ou la renomer)

Je clic sur Oui pour chaque alert (autant de fois qu'une cellule nommée est rencontrée)

Ma feuille est bien créer, les informations y figurent bien, les références fonctionnes aussi dans le tableau résumé qui se trouve en 1ère feuille

En gros tout fonctionne sauf que j'ai cette multitude de fenêtre alerte me signalant que le Nom existe déjà.

Voici la source du bouton enregistrer

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32

' Crée une nouvelle feuille (fiche) : Artiste Private Sub CommandButton1_Click()   ' Copie la feuille model en avant dernière position Sheets("Model").Copy after:=Sheets(Sheets.Count - 1) ' <= C est à partir d'ici que ca pose problème   ' Renomme la feuille ActiveSheet.Name = denome & " (art)"   ' Ajoute les informations dans la feuille ActiveSheet.Range("art_name").Value = AddArtiste.denome ActiveSheet.Range("art_name2").Value = AddArtiste.art_name ActiveSheet.Range("art_rue").Value = AddArtiste.art_rue ActiveSheet.Range("art_com").Value = AddArtiste.art_com ActiveSheet.Range("art_tel").Value = AddArtiste.art_tel ActiveSheet.Range("art_mail").Value = AddArtiste.art_mail ActiveSheet.Range("art_retro").Value = AddArtiste.art_retro ActiveSheet.Range("ent_name2").Value = AddArtiste.ent_name ActiveSheet.Range("ent_rue").Value = AddArtiste.ent_rue ActiveSheet.Range("ent_com").Value = AddArtiste.ent_com ActiveSheet.Range("art_tva").Value = AddArtiste.ent_tva ActiveSheet.Range("ent_web").Value = AddArtiste.ent_web ActiveSheet.Range("ent_cb").Value = AddArtiste.art_cb   ' Reinitialise le formulaire Dim Ctrl As Control For Each Ctrl In Me.Controls If TypeOf Ctrl Is MSForms.TextBox Then Ctrl.Value = "" Next   ' Je ne met pas de End car je compte réutiliser le formulaire, je le réinitialise uniquement End Sub

---

Comment empêcher cette alerte d'apparaître ?

D'avance merci de votre aide

Bonjours,

je pense que ce code devrait convenir

Code:

---

1 2 3

Application.DisplayAlerts = False '... tes exécutions Application.DisplayAlerts = True

---

A bientôt

Bonjour et merci pour votre participation,

En effet cela à masqué les alertes, le problème est que le débogueur se met en route, du coup impossible de modifier une cellule directement après, je suis obliger d’arrêter le débogueur pour continuer à travailler.

En faite, il va créer la nouvelle feuille mais quand je clique sur une cellule pour la modifiée, il me modifie la même cellule mais sur la première feuille qui n'a même rien à voir avec le Model et pas la cellule de la feuille affichée.

---

Fichiers joints dans les discussions

---

J'ai rajouter à la fin

Code:

---

Sheets(1).Select

---

Il m'affiche donc la feuille 1 après ajout, j'ai plus qu'a cliquer sur ma feuille et modifier les cellules voulue, sujet résolut je dirais.

Encore merci pour votre contribution