Un select case avec "erreur 438"

Fermé
adamfred Messages postés 11 Date d'inscription lundi 10 juin 2013 Statut Membre Dernière intervention 4 juillet 2013 - 24 juin 2013 à 19:22
adamfred Messages postés 11 Date d'inscription lundi 10 juin 2013 Statut Membre Dernière intervention 4 juillet 2013 - 25 juin 2013 à 17:14
Bonjour,
Débutant donc bricoleur
j'ai écrit ce code mais il apparaît une erreur à la ligne " Select case mySheet " avec comme message Erreur '438'
Propriété ou méthode non gérée par ce objet "
Quelqu'un pourrait il me mettre sur le bon chemin et me dire pourquoi il ne fonctionne pas.


Dim mySheet as worksheet
Dim m as integer

For m = 1 To 8
Set mySheet = Worksheets(m)

Select case mySheet

Case mySheet.Name = "Recap Fr"
Worksheets("Recap Fr").Select
Case mySheet.Name = "Recap Angl"
Worksheets("Recap Angl").Select
Case mySheet.Name = "Récap prim FR"
Worksheets("Récap prim FR").Select
Case mySheet.Name = "Récap Prim Angl"
Worksheets("Récap Prim Angl").Select
Case mySheet.Name = "Récap Maternelle Angl"
Worksheets("Récap Maternelle Angl").Select
Case WmySheet.Name = "Recap Maternelle Fr"
Worksheets("Recap Maternelle Fr").Select
End Select

Next m
merci

..............

2 réponses

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 779
Modifié par Patrice33740 le 24/06/2013 à 22:19
Je ne vois pas trop l'intérêt de ce code mais bon ... :
Dim mySheet As Worksheet
Dim m As Integer
For m = 1 To 8
  Set mySheet = Worksheets(m)
  Select Case mySheet.Name
    Case "Recap Fr", _
         "Recap Angl", _
         "Récap prim FR", _
         "Récap Prim Angl", _
         "Récap Maternelle Angl", _
         "Recap Maternelle Fr"
      mySheet.Select
  End Select
Next m




Cordialement
Patrice
0
adamfred Messages postés 11 Date d'inscription lundi 10 juin 2013 Statut Membre Dernière intervention 4 juillet 2013 2
25 juin 2013 à 17:14
merci, c'était l'erreur
0

Discussions similaires