Erreur l'indice n'appartient pas à la sélection
Julieee
-
Passionofdream Messages postés 858 Statut Membre -
Passionofdream Messages postés 858 Statut Membre -
Bonjour,
Je suis débutante de VBA et j'ai récupéré un programme VBA pour le traitement des données.
Sur un ancien dossier, ce programme fonctionne parfaitement.
Alors sur le dossier que je dois traiter, le programme n'arrive pas à aller jusqu'au bout et j'ai eu un message du genre "l'indice n'appartient pas à la sélection".
Je ne comprends pas bien, puisque ce programme fonctionne avec l'ancien dossier.
Si quelqu'un peut me donner quelques idées, c'est serait super!!
Merci d'avance de votre aide.
Julie
Je suis débutante de VBA et j'ai récupéré un programme VBA pour le traitement des données.
Sur un ancien dossier, ce programme fonctionne parfaitement.
Alors sur le dossier que je dois traiter, le programme n'arrive pas à aller jusqu'au bout et j'ai eu un message du genre "l'indice n'appartient pas à la sélection".
Je ne comprends pas bien, puisque ce programme fonctionne avec l'ancien dossier.
Si quelqu'un peut me donner quelques idées, c'est serait super!!
Merci d'avance de votre aide.
Julie
1 réponse
-
Bonjour;
Quand en VBA il y a une erreur de type "l'indice n'appartient à la sélection", c'est que le code ne trouve pas un classeur ou une feuille.
Vérifie donc le nom des feuilles.
Si les noms sont bons, remplace Worksheets() par Sheets()
-
Bonjour,
Merci de votre réponse.
Dans le programme, j'ai modifié le seul endroit qui a worksheets() en Sheet(),
mais j'ai eu le même problème.
juste à préciser, ce programme fonctionne avec un ancien dossier qui contient une base de donnée plus volumineuse.
J'utilise ce programme pour traiter mon dossier, mais ça a eu ce souci.
Dim xlApp As Excel.Application
Dim xlbook As Excel.Workbook
Dim xlsheet As Excel.Worksheet
Set xlApp = New Excel.Application
xlApp.Visible = False
Set xlbook = xlApp.Workbooks.Open(rPath + "Matrice_HPS.xlsm")
For l = 1 To 2
Set xlsheet = xlbook.Sheets(l)
For i = 1 To 24 'a mettre a jour avec 24 pour 2h
For j = 1 To nPoste
For k = 1 To nPoste
xlsheet.Cells(16 * i + j - 13, k + 2) = Mtx(l, i, j, k) 'a mettre a jour en fonction du nb de poste
Next
Next
Next
Next
xlbook.Save
xlbook.Close
xlApp.Quit
Set xlApp = Nothing -
-
sinon
Peux-tu envoyer un bout de ton fichier, sur cjoint.com et joindre le lien obtenu à ton prochain message. N'oublies pas d'y ajouter des explications et des exemples du résultat attendu
1) Tu vas dans https://www.cjoint.com/
2) Tu cliques sur [Parcourir] pour sélectionner ton fichier
3) Tu descends en bas de la page pour cliquer sur [Créer le lien Cjoint]
4) Au bout de quelques secondes la deuxième page s'affiche, avec le lien
en bleu souligné ; 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" -
-
