Code VBA n'appartient pas à la sélection

Résolu

caillasse147 Messages postés 71 Date d'inscription Statut Membre Dernière intervention -
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

A voir également:

Code VBA n'appartient pas à la sélection
Code ascii - Guide
Comment déverrouiller un téléphone quand on a oublié le code - Guide
A qui appartient ce numéro - Guide
Code puk bloqué - Guide
Code activation windows 10 - Guide

2 réponses

Réponse 1 / 2

gbinforme Messages postés 14946 Date d'inscription Statut Contributeur Dernière intervention 4 724

Bonjour,

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

caillasse147 Messages postés 71 Date d'inscription Statut Membre Dernière intervention

Bonjour,

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

Merci

Réponse 2 / 2

momo

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

sertissage des cables rj45

Votre réponse

Discussions similaires