Erreur d’exécution macro ''l'indice n'appartient pas a la sélect

Buzz -  
Bonjour/Bonsoir le club, ce probleme à été posé ici plusieurs fois mais les réponses ne ressoudent mon souci j'ai le même souci pour exécuter mon macro sous excel et je sollicite votre aide SVP.
J'ai comme message d'erreur ''l'indice n'appartient pas a la sélection" voici le code:

Sub OpenDossiercreditdeTVAJanvier2015()
Sheets("TVA Déductible Janv 15").Visible = True
Sheets("CA Janv 15").Visible = True
Sheets("Etat Dossier Janv 15").Visible = True
Sheets("Action Plan Meeting").Visible = False
Sheets("Home").Visible = False
Sheets("Synthése de Conex au 26 01").Visible = False
Sheets("Suivi Comptable TVA").Visible = False
Sheets("Synthése de Gécamines au 26 01").Visible = False
End Sub
Sub OpenProcedurecreditdeTVA2016()
Sheets("Action Plan Meeting").Visible = True
Sheets("TVA Déductible Janv15").Visible = False
Sheets("CA Janv 15").Visible = False
Sheets("Etat Dossier Janv 15").Visible = False
Sheets("Home").Visible = False
Sheets("Synthése de Conex au26 01").Visible = False
Sheets("Suivi Comptable TVA").Visible = False
Sheets("Synthése de Gécamines au 26 01").Visible = False
End Sub
Sub OpenSynthesecreditdeTVA20072015()
Sheets("Synthése de Conex au26 01").Visible = True
Sheets("Suivi Comptable TVA").Visible = True
Sheets("Synthése de Gécamines au 26 01").Visible = True
Sheets("TVA Déductible Janv 15").Visible = False
Sheets("Home").Visible = False
Sheets("CA Janv 15").Visible = False
Sheets("Etat Dossier Janv 15").Visible = False
Sheets("Action Plan Meeting").Visible = False
End Sub

Sub ReturnDossiercreditdeTVAJanvier2015()
Sheets("HOME").Visible = True
Sheets("TVA Déductible Janv 15").Visible = False
Sheets("CA Janv 15").Visible = False
Sheets("Etat Dossier Janv 15").Visible = False
Sheets("Action Plan Meeting").Visible = False
Sheets("Synthése de Conex au26 01").Visible = False
Sheets("Suivi Comptable TVA").Visible = False
Sheets("Synthése de Gécamines au 26 01").Visible = False
End Sub
Sub ReturnProcedurecreditdeTVA2016()
Sheets("HOME").Visible = True
Sheets("Action Plan Meeting").Visible = False
Sheets("TVA Déductible Janv 15").Visible = False
Sheets("CA Janv 15").Visible = False
Sheets("Etat Dossier Janv 15").Visible = False
Sheets("Synthése de Conex au26 01").Visible = False
Sheets("Suivi Comptable TVA").Visible = False
Sheets("Synthése de Gécamines au 26 01").Visible = False
End Sub
Sub ReturnSynthesecreditdeTVA20072015()
Sheets("Home").Visible = True
Sheets("Synthése de Conex au26 01").Visible = False
Sheets("Suivi Comptable TVA").Visible = False
Sheets("Synthése de Gécamines au 26 01").Visible = False
Sheets("TVA Déductible Janv 15").Visible = False
Sheets("CA Janv 15").Visible = False
Sheets("Etat Dossier Janv 15").Visible = False
Sheets("Action Plan Meeting").Visible = False
End Sub
Sub Openall()
Sheets("Home").Visible = True
Sheets("Synthése de Conex au26 01").Visible = True
Sheets("Suivi Comptable TVA").Visible = True
Sheets("Synthése de Gécamines au 26 01").Visible = True
Sheets("TVA Déductible Janv 15").Visible = True
Sheets("CA Janv 15").Visible = True
Sheets("Etat Dossier Janv 15").Visible = True
Sheets("Action Plan Meeting").Visible = True
End Sub
Sub Hideall()
Sheets("Home").Visible = True
Sheets("Synthése de Conex au26 01").Visible = False
Sheets("Suivi Comptable TVA").Visible = False
Sheets("Synthése de Gécamines au 26 01").Visible = False
Sheets("TVA Déductible Janv 15").Visible = False
Sheets("CA Janv 15").Visible = False
Sheets("Etat Dossier Janv15").Visible = False
Sheets("Action Plan Meeting").Visible = False
End Sub

Merci d'avance!

4 réponses

  2. ccm81
    Bonjour

    1. J'ai comme message d'erreur ''l'indice n'appartient pas a la sélection"
    Sur quelle lugne se situe l'erreur ?
    Peut être un nom de feuille incorrect ?
    2. Utilises cjoint.com pour joindre ton fichier
    1) Tu vas dans https://www.cjoint.com/
    2) Tu cliques sur [Parcourir] pour sélectionner ton fichier (8192 Ko maxi)
    3) Tu défiles vers le bas pour cliquer sur le bouton bleu [Créer le lien Cjoint]
    4) Au bout de quelques secondes la deuxième page s'affiche, avec le lien en gras ; tu le sélectionnes et tu fais "Copier"
    5) Tu reviens dans ta discussion sur CCM, et dans ton message de réponse tu fais "Coller".=>Voir la fiche https://www.commentcamarche.net/faq/29493-utiliser-cjoint-pour-heberger-des-fichiers

    > f894009 salutations amicales au passage.

    Cdlmnt
    0
    1. Buzz1
      Bonsoir ccm81,
      Merci pour le lien https://www.cjoint.com/ bien utile et la RMQ aussi. Problème résolu.
      @+
      0
    2. f894009
      Bonjour ccm81,
      Problème résolu hier, buzz1 étant passé par les MP
      0
  3. Maurice
    Bonjour

    Pour éviter tous problème utilise les CodeName
    et mette les macro dan un module 
    Sub OpenDossiercreditdeTVAJanvier2015()
   Feuil5.Visible = True
'Sheets("TVA Déductible Janv 15").Visible = True
   Feuil7.Visible = True
'Sheets("CA Janv 15").Visible = True
   Feuil7.Visible = True
'Sheets("Etat Dossier Janv 15").Visible = True
   Feuil8.Visible = False
'Sheets("Action Plan Meeting").Visible = False
   Feuil1.Visible = False
'Sheets("Home").Visible = False
   Feuil2.Visible = False
'Sheets("Synthése de Conex au 26 01").Visible = False
   Feuil4.Visible = False
'Sheets("Suivi Comptable TVA").Visible = False
   Feuil3.Visible = False
'Sheets("Synthése de Gécamines au 26 01").Visible = False
End Sub

    A+
    Maurice
    0
    1. Buzz1
      Bonsoir Maurice, Merci beaucoup pour ton aide. Très efficace!!! J'ai pu me retrouver avec la proposition de f894009
      ccm81 Merci pour le lien https://www.cjoint.com/ bien utile et la RMQ aussi.
      Merci à tous
      @+(y)
      0
  4. Maurice
    Bonjour
    avec retour Home 
    Sub OpenDossiercredit()
Application.ScreenUpdating = False
   Feuil5.Visible = True
'Sheets("TVA Déductible Janv 15").Visible = True
   Feuil6.Visible = True
'Sheets("CA Janv 15").Visible = True
   Feuil7.Visible = True
'Sheets("Etat Dossier Janv 15").Visible = True
   Feuil8.Visible = False
'Sheets("Action Plan Meeting").Visible = False
   Feuil1.Visible = False
'Sheets("Home").Visible = False
   Feuil2.Visible = False
'Sheets("Synthése de Conex au 26 01").Visible = False
   Feuil4.Visible = False
'Sheets("Suivi Comptable TVA").Visible = False
   Feuil3.Visible = False
'Sheets("Synthése de Gécamines au 26 01").Visible = False
Application.Goto [A1], True
End Sub

Sub ReturnDossier()
Application.ScreenUpdating = False
Feuille = Feuil1.Name
Feuil1.Visible = -1
   For Each Feuil In Worksheets
      If Feuil.Name <> Feuille Then
         Feuil.Visible = 0
      End If
   Next
Application.Goto [A1], True
End Sub

Sub DecacheTous()
Application.ScreenUpdating = False
   For Each Feuil In Worksheets
      Feuil.Visible = -1
   Next
End Sub

    A+
    Maurice
    0

    Discussions similaires

    erreur d'execution 9, l'indice n'appartient pas à la sélection
    isidoh

    18 réponses
    "L'indice n'appartient à la sélection" + VBA
    fleur.31

    2 réponses
    Erreur '9' l'indice n'appartient pas à la sélection
    Ela_1005

    5 réponses
    Erreur 3005 sur France TV
    Cambodgil

    6 réponses
    Symbole "appartient à" sous word 2010
    rature92

    12 réponses