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:
Merci d'avance!
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
Partager