Erreur d'exécution 9 :l'indice n appartien pas à la sélection
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
3 réponses
-
ContributeurBonjour,
Sans fichier... Il faut qu'on devine comment il est ?
eric
-
mon fichier ne contiens actuellement que cette macro des pages vides
-
-
-
Contributeurje 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
-
-
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-
-
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 -
-
-
-
