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:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
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!