L'indice n'appartient pas à la selection

Version imprimable

19/12/2012, 16h14
nanousik

L'indice n'appartient pas à la selection

Rebonjour,

Deux fois en une journée, si il y a un quota de demandes je crois qu'il est épuisé :mouarf:

J'ai créer un outil avec différentes macros, des connexions à une base de données et pas mal de fonctions. Cet outil fonctionne parfaitement bien sur mes pcs, l'un sur windows 7 et l'autre sur windows vista.

Mais lorsqu'un collègue tente de lancer l'application sur son poste, l'application tourne mais un message s'affiche :
%%ERR Create_menu_ccs : L'indice n'appartient pas à la selection

Il suffit de cliquer sur ok, puis la macro continue de tourner. Mais ce message apparait plusieurs fois pendant l'exécution de la macro et je n'ai aucune idée de la raison pour laquelle il apparait.

Si l'un d'entre vous a une petite idée, je serais sauvée :D

Si vous avez besoin d'information complémentaire, n'hésitez pas
19/12/2012, 16h24
enernaej

Bonjour,

Oui, c'est un peu court. Peut-on avoir le code de la macro incriminée pour comprendre l'erreur ?

Merci.

Voila une partie de la macro. Si besoin je peux joindre le classeur

Code:

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
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
datedeb = VBA.Date - 30
            indicea = 5
            indiceb = 6
            'on consulte la semaine précédente
            nosem = nosem - 1
 
            Call log_tel(annee, agent, periode, nosem)
 
            While Dir(fichier & anim & "\" & agent & "\archives\S" & nosem & "_" & annee & ".xlsm") = "" And Dir(fichier & anim & "\" & agent & "\archives\S" & nosem & "_" & annee & ".xls") = ""
                If nosem - 1 = 0 Then
                    nosem = 52
                    annee = annee - 1
                Else
                    nosem = nosem - 1
                End If
            Wend
 
            ext = ".xlsm"
 
            'Controle si le fichier est déja ouvert
            ok = False
            nb = Workbooks.Count
            For m = 1 To nb
                If Workbooks(m).Name = "S" & nosem & "_" & annee & ".xlsm" Then
                    ok = True
                    ElseIf Workbooks(m).Name = "S" & nosem & "_" & annee & ".xls" Then
                    ok = True
                    ext = ".xls"
                End If
            Next m
 
 
            'ouverture du fichier de la semaine sem ou attribution du fichier à la variable monclasseur
            If ok = True Then
                Set monclasseur = Workbooks("S" & nosem & "_" & annee & ext)
                Else
                If Dir(fichier & anim & "\" & agent & "\archives\S" & nosem & "_" & annee & ".xlsm") = "" Then
                    ext = ".xls"
                End If
                If Dir(fichier & anim & "\" & agent & "\archives\S" & nosem & "_" & annee & ext) <> "" Then
                    SetAttr fichier & anim & "\" & agent & "\archives\S" & nosem & "_" & annee & ext, vbNormal
                    Set monclasseur = Workbooks.Open(fichier & anim & "\" & agent & "\archives\S" & nosem & "_" & annee & ext)
                End If
            End If
 
            'attribution de la feuille F1 du classeur de la semaine à la variable classeur
            Set mafeuille = monclasseur.Worksheets(feuille)
            Set classeur = Workbooks(nom_outil)
            accueil = "accueil"
 
 
 
            'la variable d permet de parcourir le fichier de la semaine
            d = 15
 
            'Parcours la taille du tableau d'activité
            While mafeuille.Cells(d, 2).Value <> "Ne pas Utiliser la Ligne 15"
                d = d + 1
            Wend
 
            'Ajoute 9 pour passer à la partie problèmes rencontrés, remarques, suggestions
            d = d + 9
            'm = 10
            Dim cellule As Range
            For Each cellule In classeur.Sheets(accueil).Range(Cells(7, 7), Cells(10, 9))
                cellule.Font.Bold = True
                cellule.Font.Size = 12
            Next
 
            With classeur.Sheets(accueil)
                .Cells(7, 7).Value = "Nombre de jours en SOS"
                .Cells(7, 8).Value = mafeuille.Cells(11, 13).Value
                .Range(.Cells(9, 7), .Cells(9, 9)).Merge
                .Cells(9, 7).Value = "Problèmes - Remarques - Suggestions"
                .Cells(10, 7).Value = "Thème"
                .Cells(10, 8).Value = "Jour"
                .Cells(10, 9).Value = "Texte"
            End With
 
            'Numéro de textBox
            nbtxt = 1
            While mafeuille.Cells(d, 5).Value <> ""
                'Saisie de la partie problèmes rencontrés, remarques, suggestions
                'Controle si le thème est déja saisi
                l = 10
                exist = False
 
                While ((classeur.Sheets(accueil).Cells(l, 7) <> "") And exist = False)
                    If classeur.Sheets(accueil).Cells(l, 7) = mafeuille.Cells(d, 4) Then
                        exist = True
                        Else
                        l = l + 1
                    End If
                Wend
 
                If exist = True Then
 
                    'Avance jusqu'à la dernière ligne contenant le thème
                    While classeur.Sheets(accueil).Cells(l, 7) = mafeuille.Cells(d, 4)
                        l = l + 1
                    Wend
 
                    With classeur.Sheets(accueil)
                        'insérer une ligne à la ligne l
                        .Rows(l).Insert
                        'insertion du numéro de semaine, du jour et du texte à la ligne l
                        .Cells(l, 7).Value = mafeuille.Cells(d, 4)
                        'jour
                        .Cells(l, 8).Value = mafeuille.Cells(d, 3)
                        'texte
                        If mafeuille.Cells(d, 5) <> "a" Then
                            .Cells(l, 9).Value = mafeuille.Cells(d, 5)
                            ElseIf mafeuille.OLEObjects("TextBox" & nbtxt).Object.Value <> "" Then
                            .Cells(l, 9).Value = mafeuille.OLEObjects("TextBox" & nbtxt).Object.Value
                        End If
                    End With
 
                    Else
                    With classeur.Sheets(accueil)
                        'thème
                        .Cells(l, 7).Value = mafeuille.Cells(d, 4)
                        'jour
                        .Cells(l, 8).Value = mafeuille.Cells(d, 3)
                        'texte
                        If mafeuille.Cells(d, 5) <> "a" Then
                            .Cells(l, 9).Value = mafeuille.Cells(d, 5)
                            ElseIf mafeuille.OLEObjects("TextBox" & nbtxt).Object.Value <> "" Then
                            .Cells(l, 9).Value = mafeuille.OLEObjects("TextBox" & nbtxt).Object.Value
                        End If
                    End With
                End If
                d = d + 1
                nbtxt = nbtxt + 1
            Wend
 
            'cumul pour le suivi du sos
            l = 10
            While classeur.Sheets(accueil).Cells(l, 7) <> ""
                l = l + 1
            Wend

19/12/2012, 16h44
Theze

Bonjour,

Si le message s'affiche plusieurs fois, l'erreur est probablement à l'intérieur d'une boucles "While-Wend". Je pense que pour l'identifier, il te faut parcourir le code en pas à pas ou mettre des points d'arrêt à différents endroits du code et de faire tourner pour voir sur quoi les erreurs se déclenchent et surtout dans quelle partie du code.

Hervé.
19/12/2012, 16h50
nanousik

Je pensais aussi que ça venait d'une erreur dans une boucle mais bizarrement il n'affiche pas toujours le message le même nombre de fois. Il peut l'afficher 2 fois avant que la macro soit terminée comme il peut me l'afficher 10 fois.
03/01/2013, 11h03
nanousik

Est-il possible que ce message apparaisse lors d'un conflit en le classeur vba excel et un autre logiciel qui serait présent sur les postes de travail de mes collègues mais pas sur les miens?

Si oui qu'elle pourrait être la solution?
03/01/2013, 15h08
el_slapper

Le classique, c'est quand même que le chemin vers la cellule/range est incomplétement défini. Ce n'est pas le cas ici, il me semble que l'arborescence complète est toujours définie.

Il faut donc absolument trouver l'endroit EXACT ou ça plante, par exemple en entrant en mode debug quand le message d'erreur sort, et voir : (1)ou dans le code ça se produit et (2)quel élément d'excel exactement est pointé dans la ligne ou ça plante.
04/01/2013, 11h10
nanousik

Le message ne sort jamais au même moment :/
05/01/2013, 12h52
Theze

Bonjour,

SI tu ne peux pas entrer en débogage sur les erreurs, je pense qu'il faudrait que tu isole ton code. Ce que je veux dire par là, c'est que tu devrais mettre en commentaire tout le code après la première boucle, si pas d'erreur, tu réactive une partie suivante de ton code et tu teste à nouveau et ainsi de suite jusqu'à la fin où jusqu'à la partie qui pose problème.

Hervé.