erreur activesheet.sapes

[nrdz83]

Bonjour juste un renseignement a quoi correspond l'erreur suivante?

Sub masquefeuillespharma()
Dim I As Integer, MesSht As String, TSht() As String, TxtShp As String
' Tableau des feuilles à AFFICHER/CACHER séparée par des virgule
' Mettre en premier n'importe quel texte, ne sera pas pris en compte
MesSht = "X,Affections,Remèdes"
TSht = Split(MesSht, ",")
' Sélectionner la forme automatique 18
ActiveSheet.Shapes("AutoShape 18").Select
' Récupérer le texte de la forme
TxtShp = Selection.Characters.Text
' Suivant le texte que contient la forme automatique
If TxtShp = "Afficher les feuilles" Then
' Demander le mot de passe
Usf_Mdp.TextBox1.Value = ""
Usf_Mdp.Show
If FlgOk = False Then
MsgBox "Mot de passe érroné !"
Exit Sub
End If
' Si OK, masquer les feuilles
For I = 1 To UBound(TSht)
Sheets(TSht(I)).Visible = True
Next I
Selection.Characters.Text = "Masquer les feuilles"
Else
For I = 1 To UBound(TSht)
Sheets(TSht(I)).Visible = False
Next I
Selection.Characters.Text = "Afficher les feuilles"
End If
Range("A2").Select
End Sub

j'ai essayé d'importer une maccro vba qui fonctionne dans un classeur mais à celui là j'ai cette erreur mais je ne sais pas à quoi elle correspond merci d'avance

 

[jeanpierre]

Re : erreur activesheet.sapes

Bonjour nrdz83,

Un problème de numérotation, revois, sur ta feuille réelle, le numéro de ton objet.

Cliques dessus et regardes dans la barre Zone Nom à gauche de la barre d'adresse et tu modifie le code en conséquence.

Bon dimanche et à te lire.

Jean-Pierre

 

[nrdz83]

Re : erreur activesheet.sapes

merci jean pierre , je savais pas qu'on nommait les boutons comme cela ça parait simple quand on a la réponse mais ça y est ça fonctionne donc vais pouvoir l'adapter a pleins de classer je te remercie infiniment bye et bon dimanche à toi également 😎