Code VBA n'appartient pas à la sélection

Résolu/Fermé

caillasse147 Messages postés 71 Date d'inscription lundi 26 décembre 2016 Statut Membre Dernière intervention 28 juin 2017 - 10 janv. 2017 à 09:34
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

A voir également:

Code VBA n'appartient pas à la sélection
A qui appartient ce numéro - Guide
Code asci - Guide
Code puk bloqué - Guide
Code telephone oublié - Guide
Code blocks free - Télécharger - Langages

2 réponses

Réponse 1 / 2

gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 684
10 janv. 2017 à 10:01

Bonjour,

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

caillasse147 Messages postés 71 Date d'inscription lundi 26 décembre 2016 Statut Membre Dernière intervention 28 juin 2017
10 janv. 2017 à 10:03

Bonjour,

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

Merci

Réponse 2 / 2

momo
10 janv. 2017 à 12:52

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

Discussions similaires

Savoir à qui appartient un numéro

Identifier un numéro de GSM en Belgique

Code de renvoi d'appel : Ooredo, Mobilis...

Trouver propriétaire d'un numéro de téléphone gratuitement

[référencement] Ne pas être référencé

Discussions similaires

Newsletters