Code VBA n'appartient pas à la sélection [Résolu/Fermé]

Messages postés
71
Date d'inscription
lundi 26 décembre 2016
Statut
Membre
Dernière intervention
28 juin 2017
- - Dernière réponse :  momo - 10 janv. 2017 à 12:52
Bonjour à tous,

J'ai un petit problème car j'ai un code VBA qui fonctionnait parfaitement, j'ai dû faire une fausse manipulation et à chaque fois que je clic sur mon bouton, ça me met le message d'erreur suivant : " erreur d'exécution 9, l'indice n'appartient pas à la sélection"
Voici mon code ci-dessous :

Sub Accueil_SUIVI()
With ThisWorkbook.Sheets("Accueil SUIVI")
.Visible = True
.Activate
End With
ThisWorkbook.Sheets("Accueil").Visible = xlVeryHidden
ThisWorkbook.Sheets("CONDUCTEURS").Visible = xlVeryHidden
ThisWorkbook.Sheets("SYNTHESE").Visible = xlVeryHidden
Sheets("Accueil SUIVI").Select
End Sub

Sub RELEVE_KMS()
With ThisWorkbook.Sheets("RELEVE_KMS")
.Visible = True
.Activate
End With
ThisWorkbook.Sheets("Accueil SUIVI").Visible = xlVeryHidden
Sheets("RELEVE_KMS").Select
End Sub

Sub Résultat_CONSO()
With ThisWorkbook.Sheets("Résultat CONSO")
.Visible = True
.Activate
End With

With ThisWorkbook.Sheets("CONDUCTEURS")
.Visible = True
.Activate
End With

With ThisWorkbook.Sheets("SYNTHESE")
.Visible = True
.Activate
End With
Sheets("SYNTHESE").Select

ThisWorkbook.Sheets("Accueil SUIVI").Visible = xlVeryHidden
End Sub



Merci d'avance
Afficher la suite 

2 réponses

Meilleure réponse
Messages postés
15079
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
23 juin 2018
3748
1
Merci
Bonjour,

Tu as sans doute changé un nom de feuille : ajout d'un espace par exemple.

Dire « Merci » 1

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 62749 internautes nous ont dit merci ce mois-ci

caillasse147
Messages postés
71
Date d'inscription
lundi 26 décembre 2016
Statut
Membre
Dernière intervention
28 juin 2017
-
Bonjour,

C'est aussi ce que je me suis dit mais je n'arrive pas encore à la retrouver....

Merci
1
Merci
Bonjour
utilise les CodeName
ex:

Sub Accueil_SUIVI()
Sheets(Feuil1.Name).Visible = -1
Sheets(Feuil2.Name).Visible = 2
Sheets(Feuil3.Name).Visible = 2
Sheets(Feuil4.Name).Visible = 2
Sheets(Feuil1.Name).Select
End Sub
' ou
Sub Accueil()
Feuil1.Visible = -1
Feuil2.Visible = 2
Feuil3.Visible = 2
Feuil4.Visible = 2
Feuil1.Select
Application.Goto [A1], True
End Sub


A+
Maurice

Dire « Merci » 1

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 62749 internautes nous ont dit merci ce mois-ci