Erreur d'exécution 9 :l'indice n appartien pas à la sélection
Ernael
-
eriiic Messages postés 24581 Date d'inscription Statut Contributeur Dernière intervention -
eriiic Messages postés 24581 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
dans le cadre d un stage j apprend le VBA en accéléré et je suis confronté a des problèmes d exécution avec le code suivant:
Public Sub EnregistrerJourFerie(UneDate As Date)
Dim lig As Long
lig = (Sheets("feuil8").Range("G1").End(xlDown).Row + 1)
Sheets("feuil8").Cells(lig, 7) = UneDate
End Sub
dans le cadre d un stage j apprend le VBA en accéléré et je suis confronté a des problèmes d exécution avec le code suivant:
Public Sub EnregistrerJourFerie(UneDate As Date)
Dim lig As Long
lig = (Sheets("feuil8").Range("G1").End(xlDown).Row + 1)
Sheets("feuil8").Cells(lig, 7) = UneDate
End Sub
A voir également:
- Erreur d'exécution '9' l'indice n'appartient pas à la sélection
- Indice téléphonique - Guide
- Erreur 4101 - Forum Lecteurs et supports vidéo
- Le fichier contient un tableau affichant la taille des populations des 419 communes de l’ain. triez le tableau pour que les villes les plus peuplées soient en haut. quel mot est formé par les 9 premières lettres de la colonne indice ? - Guide
- Erreur player 4001 free - Forum Samsung
- Erreur t32 ✓ - Forum Livebox
3 réponses
je cherche actuellement la dernière ligne vide
Il faut partir du bas et rechercher la dernière remplie +1 . Même si tu as une cellule vide tu seras toujours sur la bonne ligne.
lig = Sheets("feuil8").cells(rows.count,"G").End(xlUp).Row + 1
Il faut aussi que tes données commencent en ligne 2, et que tu testes lig.
Si lig=1 ça veut dire que tu n'as pas de données et donc qu'il ne faut rien faire (et alerter éventuellement)
Pour déposer un fichier xls (réduit au nécessaire et anonymisé, avec les explications et éventuellement le résultat attendu) : sur cjoint.com et coller le lien fourni dans un post.
eric
eric
Il faut partir du bas et rechercher la dernière remplie +1 . Même si tu as une cellule vide tu seras toujours sur la bonne ligne.
lig = Sheets("feuil8").cells(rows.count,"G").End(xlUp).Row + 1
Il faut aussi que tes données commencent en ligne 2, et que tu testes lig.
Si lig=1 ça veut dire que tu n'as pas de données et donc qu'il ne faut rien faire (et alerter éventuellement)
Pour déposer un fichier xls (réduit au nécessaire et anonymisé, avec les explications et éventuellement le résultat attendu) : sur cjoint.com et coller le lien fourni dans un post.
eric
eric
http://cjoint.com/?CFdohORxhn3
il m'affiche encore le même erreur et je ne vois toujours pas bien le problème
PS: je travaille sous Excel 2003 si sa change quelque chose
il m'affiche encore le même erreur et je ne vois toujours pas bien le problème
PS: je travaille sous Excel 2003 si sa change quelque chose
mon projet de stage consiste a générer un emploi du temps de 4 semaines en fonction de la date entrée et de l acquisition de certains jour fériés
ma fonction ici consistait juste a stoker les jour fériés saisit dans une colonne pour les réutiliser afin de gérer des exception lors de la génération de mon emploi du temps
et j avoue très mal m expliquer et peut commenter mes programmes
ma fonction ici consistait juste a stoker les jour fériés saisit dans une colonne pour les réutiliser afin de gérer des exception lors de la génération de mon emploi du temps
et j avoue très mal m expliquer et peut commenter mes programmes
