Code VBA n'appartient pas à la sélection
Résolu
caillasse147
Messages postés
71
Statut
Membre
-
momo -
momo -
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
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
2 réponses
-
Bonjour,
Tu as sans doute changé un nom de feuille : ajout d'un espace par exemple. -
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
