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

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

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

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

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

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

Ca n'enlève rien à ma 1ère question : On doit deviner les actions à faire pour reproduire l'erreur ?
Je commence à me lasser...
eric

c'est après la saisie d'un nouveau jour férié dans la botte de dialogue lors de la validation l erreur apparait

J'ai regardé fixement l'écran pendant 1/4h elle n'est jamais apparue.
J'abandonne...
ericv