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

[RESOLUTO]suppression des onglets masquées

  • Initiateur de la discussion Initiateur de la discussion Ilino
  • 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 !

Ilino

XLDnaute Barbatruc
Bonsoir forum
j'ai un code qui supprime des onglets qui fonctionne parfaitement
HTML:
Private Sub CommandButton1_Click()
    Application.DisplayAlerts = False
    If Sheets.Count > 1 And ComboBox1.Value <> "" Then Sheets(ComboBox1.Value).Delete
    
    Application.DisplayAlerts = True
    UserForm_Initialize
End Sub
Private Sub CommandButton2_Click()
    Unload UserForm1
End Sub
Private Sub UserForm_Initialize()
    ComboBox1.Clear
    For Each X In Sheets
        If X.Name <> "Feuil1" Then ComboBox1.AddItem X.Name
    Next
End Sub

mon souci , j'ai des feuilles qui sont masquées "VeryHidden" lors de la suppression j'ai une erreur d'exécution 1004
La méthode Delete de la classe Worksheet a échoué
dans cette ligne
HTML:
If Sheets.Count > 1 And ComboBox1.Value <> "" [U]Then Sheets(ComboBox1.Value).Delete[/U]
GRAZIE
 
Dernière édition:
Re : suppression des onglets masquées

bONSOIR JCGL
merci d'avoir répondu
toutes mes onglets sont masquées !!!!!!! ( qui sont crées automatiquement "VeryHidden"via une feuille modèle) 🙄
a+
 
Dernière édition:
Re : suppression des onglets masquées

Bonjour à tous,

Peux-tu essayer avec :

VB:
Private Sub CommandButton1_Click()    Application.DisplayAlerts = False
    If Sheets.Count > 1 And ComboBox1.Value <> "" Then
        If Sheets(ComboBox1.Value).Visible = xlVeryHidden Then Sheets(ComboBox1.Value).Visible = True
        Sheets(ComboBox1.Value).Delete
        End If
        Application.DisplayAlerts = True
        UserForm_Initialize
    End Sub

A+ à tous
 
- 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
10
Affichages
531
Réponses
3
Affichages
265
Réponses
5
Affichages
703
Réponses
3
Affichages
834
Réponses
5
Affichages
312
  • Question Question
Microsoft 365 worksheet_change
Réponses
29
Affichages
1 K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…