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

Vérification de l'existance d'une feuille par UserForm

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Nagrom
  • 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 !

S'inscrire
N

Nagrom

XLDnaute Occasionnel
Bonjour à tous,

J'ai fais une UserForm avec une liste déroulante donc l'action du bouton est la suivante:

Code: 
ate Sub CommandButton1_Click()
 
If Sheets.Name = ComboBox1.Value Then
    
    MsgBox "L'onglet existe déjà!", , "Info"
    Else:

   Sheets("Ref").Visible = True
   Sheets("Ref").Select
   Sheets("Ref").Copy After:=Sheets(Sheets.Count)
   
With Sheets("Ref (2)")
Cells(3, 4) = ComboBox1.Value
End With
 
    Sheets("Ref").Select
    ActiveWindow.SelectedSheets.Visible = False

Unload UserForm

End If

End Sub

Le code ne fonctionne pas, j'ai fais plusieurs modifications dont une que je croyais la bonne, m'indiqué systématiquement que la feuille existait même quand c'était faux.

Des suggestions?

Merci.
 
Trier par date Trier par votes
Re : Vérification de l'existance d'une feuille par UserForm

Bonjour Nagrom,

pas trés clair... ce qui est sûr c'est que :
If Sheets.Name = ComboBox1.Value Then
ne peut pas fonctionner... on ne peut pas comparer le nom de toutes les feuilles à une valeur.
regarde en bas de ce fil, dans "Discussions similaires", plusieurs fils pour vérifier l'existence d'une feuille
 
Vote positif 0 Vote négatif
Re : Vérification de l'existance d'une feuille par UserForm

J'ai regardé quelques postes et j'ai trouvé ceci:

Code: 
For i = 1 To ThisWorkbook.Worksheets.Count
    If ThisWorkbook.Worksheets(i).Name = ComboBox1.Value Then
        MsgBox "La feuille existe!"
                 
    End If
Next i

Par contre, je vois pas comment insérer cette partie du code qui doit être éxecutée si au final la feuille n'existe pas:

Code: 
Sheets("Ref").Visible = True
        Sheets("Ref").Select
        Sheets("Ref").Copy After:=Sheets(Sheets.Count)
   
        With Sheets("Ref (2)")
        Cells(3, 4) = ComboBox1.Value
        End With
 
        Sheets("Ref").Select
        ActiveWindow.SelectedSheets.Visible = False

        Unload Fiche_Synthèse

Merci de vos explications.
 
Vote positif 0 Vote négatif
Re : Vérification de l'existance d'une feuille par UserForm

Bonsoir
Avec ce code là ça devrait être mieux:
Private Sub CommandButton1_Click()
For i = 1 To Sheets.Count
If Sheets(i).Name = ComboBox1.Value Then
MsgBox "L'onglet existe déjà!", , "Info"
Exit Sub
End If
Next
Sheets("Ref").Visible = True
Sheets("Ref").Select
Sheets("Ref").Copy After:=Sheets(Sheets.Count)
With Sheets("Ref (2)")
Cells(3, 4) = ComboBox1.Value
End With
Sheets("Ref").Select
ActiveWindow.SelectedSheets.Visible = False
Unload UserForm1
End Sub

A+ François
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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

  • Question Question
XL 2016 intégrer une macro sur les nouvelles feuilles crées
Réponses
6
Affichages
247
pascal21
  • Question Question
XL 2016 Filtrer plage via le contrôle ActiveX : combobox
Réponses
7
Affichages
531
KTM
D
  • Résolu(e)
XL 2021 Combobox vide
Réponses
9
Affichages
389
Did25
D
K
  • Résolu(e)
XL 2016 Affichage TextBox
Réponses
6
Affichages
825
KRUG WOO
K
B
  • Question Question
XL 2019 Dans une macro de démarrage de fichier masquer le code par des Astérix ou point
Réponses
3
Affichages
552
sylvanu
T
  • Résolu(e)
Microsoft 365 VBA Exporter une sélection de plages nommées au format PDF
Réponses
12
Affichages
1 K
tnion
T
  • Question Question
Microsoft 365 Format Nombre Combobox dans Feuille
Réponses
3
Affichages
662
fanch55
N
  • Résolu(e)
Microsoft 365 Transfère de données d'un Userform vers un tableau structuré d'une feuille de calcul
Réponses
4
Affichages
535
NONO14
N
  • Question Question
Microsoft 365 Méthode Evaluate pour se dispenser d'une boucle imbriquée
Réponses
14
Affichages
830
patricktoulon
C
  • Question Question
XL 2016 accès feuilles masquées par bouton
2
Réponses
26
Affichages
1 K
vgendron
  • Question Question
XL 2019 code pour tous les disques
Réponses
3
Affichages
924
AtTheOne
N
  • Résolu(e)
Microsoft 365 Modification impossible d'une TextBox
2 3 4
Réponses
56
Affichages
3 K
NONO14
N
B
  • Question Question
XL 2016 Interférence entre une boucle et un copie de feuille
Réponses
4
Affichages
662
Oneida
D
  • Question Question
XL 2021 Filtre Multi Critères Listview VBA
2
Réponses
21
Affichages
3 K
Dranreb
S
  • Résolu(e)
XL 2019 Problème de remplissage cellule en vba
Réponses
5
Affichages
607
snoopy07
S
F
  • Résolu(e)
Microsoft 365 Recherche à partir d'une TextBox
Réponses
4
Affichages
620
Francky79
F
F
  • Question Question
Microsoft 365 Poursuivre ou pas la macro
Réponses
2
Affichages
589
Francky79
F
M
  • Question Question
XL 2010 Calcul possible dans la zone de liste pour le débit et le crédit lors d'une recherche basée sur la zone de texte
Réponses
0
Affichages
922
Mody200
M
  • Question Question
XL 2021 Comment supprimer des noms du gestionnaire de noms dans un classeur
Réponses
7
Affichages
1 K
jeff1494
Z
  • Question Question
Microsoft 365 Ajouter une étiquette de confidentialité via macro
Réponses
4
Affichages
3 K
onobyone
O
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…