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

Buzz -  
f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   -
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 Messages postés 11033 Statut Membre 2 434
     
    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 Messages postés 4 Statut Membre
       
      Bonsoir ccm81,
      Merci pour le lien https://www.cjoint.com/ bien utile et la RMQ aussi. Problème résolu.
      @+
      0
    2. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
       
      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 Messages postés 4 Statut Membre
       
      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 -
isidoh -

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

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

5 réponses
Erreur 3005 sur France TV
Cambodgil -
JeanPierre -

6 réponses
Select boot device première utilisation
eleagtte -
bazfile -

7 réponses