Problème de VBA
Bonjour,
Étant nouveau sur VBA, j'essai de masquer plusieurs onglets à l'aide d'une case à cocher dans excel, tout va bien jusqu'à une ligne qui m'indique une erreur 9 "L'indice n'appartient pas à la sélection", pourtant les noms en causes sont bel et bien dans le chiffrier.
Voici le code:
Private Sub CheckBox9_Click()
If CheckBox9.Value = True Then
Afficherongletdescription
Afficherongletcomm
Else
Masquerongletdescription
Masquerongletcomm
End If
End Sub
Sub Afficherongletcomm()
Sheets("Intro").Visible = True
Sheets("Visite").Visible = True
Sheets("Extérieur").Visible = True
Sheets("Intérieur").Visible = True
Sheets("ChoixM&T").Visible = True
Sheets("Composantes").Visible = True
End Sub
Sub Masquerongletcomm()
Sheets("Intro").Visible = False
Sheets("Visite").Visible = False
Sheets("Extérieur").Visible = False
Sheets("Intérieur").Visible = False
Sheets("ChoixM&T").Visible = False
Sheets("Composantes").Visible = False
End Sub
Étant nouveau sur VBA, j'essai de masquer plusieurs onglets à l'aide d'une case à cocher dans excel, tout va bien jusqu'à une ligne qui m'indique une erreur 9 "L'indice n'appartient pas à la sélection", pourtant les noms en causes sont bel et bien dans le chiffrier.
Voici le code:
Private Sub CheckBox9_Click()
If CheckBox9.Value = True Then
Afficherongletdescription
Afficherongletcomm
Else
Masquerongletdescription
Masquerongletcomm
End If
End Sub
Sub Afficherongletcomm()
Sheets("Intro").Visible = True
Sheets("Visite").Visible = True
Sheets("Extérieur").Visible = True
Sheets("Intérieur").Visible = True
Sheets("ChoixM&T").Visible = True
Sheets("Composantes").Visible = True
End Sub
Sub Masquerongletcomm()
Sheets("Intro").Visible = False
Sheets("Visite").Visible = False
Sheets("Extérieur").Visible = False
Sheets("Intérieur").Visible = False
Sheets("ChoixM&T").Visible = False
Sheets("Composantes").Visible = False
End Sub
1 réponse
-
ContributeurSalut le forum
Ton classeur doit contenir au moins un onglet non masqué.
Que contient les macros Afficherongletdescription et Masquerongletdescription
Mytå
Quelle prétention de prétendre que l'informatique est récente
Adam et Eve avaient déjà un Apple ! [MsProject 2003(FR), Excel 2003-2007(FR)]