Masquer/afficher les feuille d'un classeur
daysiiie
-
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
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
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
A voir également:
- Masquer/afficher les feuille d'un classeur
- Comment masquer les amis sur facebook - Guide
- Bruler feuille de laurier - Guide
- Feuille de pointage excel - Télécharger - Tableur
- Comment faire un livret avec des feuilles a4 - Guide
- Masquer conversation whatsapp - Guide
1 réponse
Bonjour,
Evitez les noms de variable avec les noms reserves Excel (feuil1)
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
