Sujet Précédent Sujet Suivant

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

Fermé
Buzz - 31 janv. 2016 à 14:00
f894009 Messages postés 17222 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 8 janvier 2025 - 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!
A voir également:

4 réponses

Réponse 1 / 4
f894009 Messages postés 17222 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 8 janvier 2025 1 712
31 janv. 2016 à 14:22
Bonjour,

''l'indice n'appartient pas a la sélection" voici le code:
Ben oui, mais le classeur serait preferable!!!!!!!
0
Buzz1 Messages postés 3 Date d'inscription dimanche 31 janvier 2016 Statut Membre Dernière intervention 1 février 2016
31 janv. 2016 à 15:31
Merci!
Voici le lein vers le fichier
https://www.dropbox.com/s/5lxo4r6rxlqv952/Tableau%20de%20bord%20TEST%20MACRO.xlsm?dl=0
0
Réponse 2 / 4
ccm81 Messages postés 10905 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 27 décembre 2024 2 429
31 janv. 2016 à 19:53
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
Buzz1 Messages postés 3 Date d'inscription dimanche 31 janvier 2016 Statut Membre Dernière intervention 1 février 2016
1 févr. 2016 à 00:04
Bonsoir ccm81,
Merci pour le lien https://www.cjoint.com/ bien utile et la RMQ aussi. Problème résolu.
@+
0
f894009 Messages postés 17222 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 8 janvier 2025 1 712
1 févr. 2016 à 12:07
Bonjour ccm81,
Problème résolu hier, buzz1 étant passé par les MP
0
Réponse 3 / 4
Maurice
31 janv. 2016 à 21:02
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
Buzz1 Messages postés 3 Date d'inscription dimanche 31 janvier 2016 Statut Membre Dernière intervention 1 février 2016
1 févr. 2016 à 00:03
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
Réponse 4 / 4
Maurice
31 janv. 2016 à 21:27
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

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

2 réponses
VBA erreur 1004
séverine -
Floroan -

9 réponses
comment trouver un numéro de mobile en SUISSE
Dankuso -
XxTestxX -

1 réponse
Site qui dis " A qui est ce 06 " GRATUIT
Mlle-Choupina -
sirefalas -

6 réponses