Problème de VBA
Pprev
-
Mytå Messages postés 4246 Date d'inscription Statut Contributeur Dernière intervention -
Mytå Messages postés 4246 Date d'inscription Statut Contributeur Dernière intervention -
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