Erreur l'indice n'appartient pas à la sélection
Fermé
Julieee
-
Modifié par Julieee le 12/03/2017 à 15:43
Passionofdream Messages postés 820 Date d'inscription mardi 21 juillet 2015 Statut Membre Dernière intervention 11 mai 2021 - 12 mars 2017 à 17:21
Passionofdream Messages postés 820 Date d'inscription mardi 21 juillet 2015 Statut Membre Dernière intervention 11 mai 2021 - 12 mars 2017 à 17:21
A voir également:
- Erreur l'indice n'appartient pas à la sélection vba
- A qui appartient ce numéro - Guide
- L'indice n'appartient pas à la sélection vba - Forum VB / VBA
- Variable workbook : l'indice n'appartient pas à la sélection -
- À qui appartient ce numéro belgique - Forum Mobile
- Indice téléphonique - Guide
1 réponse
Passionofdream
Messages postés
820
Date d'inscription
mardi 21 juillet 2015
Statut
Membre
Dernière intervention
11 mai 2021
302
12 mars 2017 à 15:40
12 mars 2017 à 15:40
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()
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()
12 mars 2017 à 15:55
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
12 mars 2017 à 16:00
12 mars 2017 à 16:01
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"
12 mars 2017 à 17:11
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.
12 mars 2017 à 17:21
Bonne soirée