Un select case avec "erreur 438"
adamfred
Messages postés
11
Date d'inscription
Statut
Membre
Dernière intervention
-
adamfred Messages postés 11 Date d'inscription Statut Membre Dernière intervention -
adamfred Messages postés 11 Date d'inscription Statut Membre Dernière intervention -
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
..............
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
..............
A voir également:
- Un select case avec "erreur 438"
- Erreur 3000 france tv - Forum Lecteurs et supports vidéo
- Aller à la ligne dans une case excel - Guide
- Erreur 0x80070643 - Accueil - Windows
- Erreur t32 ✓ - Forum Livebox
- Erreur 0x80070643 Windows 10 : comment résoudre le problème de la mise à jour KB5001716 - Accueil - Windows
2 réponses
Je ne vois pas trop l'intérêt de ce code mais bon ... :
Cordialement
Patrice
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