Erreur l'indice n'appartient pas à la sélection
Julieee
-
Passionofdream Messages postés 820 Date d'inscription Statut Membre Dernière intervention -
Passionofdream Messages postés 820 Date d'inscription Statut Membre Dernière intervention -
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
A voir également:
- L'indice n'appartient pas à la sélection access
- Indice téléphonique - Guide
- A qui appartient ce numéro - Guide
- Hns-self-wan-access-ipv6 ✓ - Forum Réseau
- Acer quick access - Forum Logiciels
- A qui appartient ce 06 gratuit - Forum Mobile
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
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"
j'ai trouvé où posait des problèmes dans le programme.
en fait, dans le programme, il définit une plage horaire de 2 heures, or dans ma base de données, ça dépasse.
en tout cas, merci beaucoup de ton aide.
Bonne soirée