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

Buzz -
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention - 1 févr. 2016 à 12:07

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!

Afficher la suite

A voir également:

Erreur d’exécution macro ''l'indice n'appartient pas a la sélect
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Indice téléphonique - Guide
A qui appartient ce numéro - Guide
Jitbit macro recorder - Télécharger - Confidentialité
Erreur 3000 france tv - Forum Lecteurs et supports vidéo

4 réponses

Réponse 1 / 4

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 715

Bonjour,

''l'indice n'appartient pas a la sélection" voici le code:
Ben oui, mais le classeur serait preferable!!!!!!!

Buzz1 Messages postés 3 Date d'inscription Statut Membre Dernière intervention

Merci!
Voici le lein vers le fichier
https://www.dropbox.com/s/5lxo4r6rxlqv952/Tableau%20de%20bord%20TEST%20MACRO.xlsm?dl=0

Réponse 2 / 4

ccm81 Messages postés 10909 Date d'inscription Statut Membre Dernière intervention 2 433

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

Buzz1 Messages postés 3 Date d'inscription Statut Membre Dernière intervention

Bonsoir ccm81,
Merci pour le lien https://www.cjoint.com/ bien utile et la RMQ aussi. Problème résolu.
@+

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 715

Bonjour ccm81,
Problème résolu hier, buzz1 étant passé par les MP

Réponse 3 / 4

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

Buzz1 Messages postés 3 Date d'inscription Statut Membre Dernière intervention

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)

Réponse 4 / 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

Discussions similaires

Table des matières dont les titres n'apparaissent pas..

Aide Please select boot device

Erreur 3005 sur France TV

Select boot device première utilisation

comment trouver un numéro de mobile en SUISSE

Votre réponse

Discussions similaires