Un select case avec "erreur 438"

Question

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

..............

Configuration: Windows 7 / Chrome 27.0.1453.116

Patrice33740 · Answer

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

adamfred · Answer

merci, c'était l'erreur

Un select case avec "erreur 438"

2 réponses

Votre réponse

Discussions similaires

Newsletters