Erreur d'exécution 9 :l'indice n appartien pas à la sélection

Ernael -  
eriiic Messages postés 24603 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



A voir également:

3 réponses

eriiic Messages postés 24603 Date d'inscription   Statut Contributeur Dernière intervention   7 276
 
Bonjour,

Sans fichier... Il faut qu'on devine comment il est ?

eric
0
ernael
 
mon fichier ne contiens actuellement que cette macro des pages vides
0
eriiic Messages postés 24603 Date d'inscription   Statut Contributeur Dernière intervention   7 276
 
mon fichier ne contiens actuellement que cette macro des pages vides
Comment veux-tu qu'excel trouve la dernière ligne +1 alors ?
lig = (Sheets("feuil8").Range("G1").End(xlDown).Row + 1)
Pas d'autre réponse sans fichier...
eric
0
ernael
 
je cherche actuellement la dernière ligne vide
sachant que je ne sais pas comment poster un fichier et que j ai du me mettre au VBA depuis quelques jours
0
eriiic Messages postés 24603 Date d'inscription   Statut Contributeur Dernière intervention   7 276
 
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
0
ernael
 
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
0
eriiic Messages postés 24603 Date d'inscription   Statut Contributeur Dernière intervention   7 276
 
On doit deviner les actions à faire pour reproduire l'erreur ?
Et purée, qu'est-ce que tu veux tester sans aucune donnée ?????
On peut être débutant, ça n'empêche pas d'être logique un minimum...
eric
0
ernael Messages postés 2 Date d'inscription   Statut Membre Dernière intervention  
 
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
0
eriiic Messages postés 24603 Date d'inscription   Statut Contributeur Dernière intervention   7 276
 
Ca n'enlève rien à ma 1ère question : On doit deviner les actions à faire pour reproduire l'erreur ?
Je commence à me lasser...
eric
0
ernael Messages postés 2 Date d'inscription   Statut Membre Dernière intervention  
 
c'est après la saisie d'un nouveau jour férié dans la botte de dialogue lors de la validation l erreur apparait
0
eriiic Messages postés 24603 Date d'inscription   Statut Contributeur Dernière intervention   7 276
 
J'ai regardé fixement l'écran pendant 1/4h elle n'est jamais apparue.
J'abandonne...
ericv
0