Masquer/afficher les feuille d'un classeur Fermé

Question

Bonjour, je viens de faire un userform (Accueil) qui s'ouvre à l'ouverture du classeur. Je souhaite ouvrir et fermer à partir d'un bouton de ce userform. j'ai trouvé un code qui marche dans certains cas, et pas dans d'autres et je ne comprends pas pourquoi. ci-dessous le fichier Private Sub Valider_ldv_Click() If Langue_devis.Value = "Anglais" Then Sheets("Quote").Visible = True Sheets("Quote").Activate Dim feuil1 As Object For Each feuil1 In ThisWorkbook.Sheets If feuil1.Name <> "Quote" Then feuil1.Visible = False Next feuil1 Else Sheets("Devis").Visible = True Sheets("Devis").Activate Dim feuil2 As Object For Each feuil1 In ThisWorkbook.Sheets If feuil1.Name <> "Devis" Or feuil1.Name <> "Accueil" Then feuil1.Visible = False Next feuil1 End If Unload Me End Sub

f894009 · Answer

Bonjour, Evitez les noms de variable avec les noms reserves Excel (feuil1) Private Sub Valider_ldv_Click() Dim feuil As Object 'affiche tout For x = 1 To Sheets.Count Sheets(x).Visible = True Next x If Langue_devis = "Anglais" Then For Each feuil In ThisWorkbook.Sheets If feuil.Name <> "Quote" Then feuil.Visible = False Next feuil Else For Each feuil In ThisWorkbook.Sheets x = feuil.Name If feuil.Name <> "Devis" And feuil.Name <> "Accueil" Then feuil.Visible = False Next feuil End If Unload Me End Sub

Masquer/afficher les feuille d'un classeur

1 réponse

Discussions similaires