Corriger mon code -> erreur
Bonjour,
J'ai un problème avec le code dans mon fichier joint.
Ce code m'a été fait par DAN, mais j'ai modifié les fichier et ça coince.
Le fichier fonctionne en gros comme ceci :
En double cliquant sur un des numéros (colonne A) dans la feuille "horaire", il copie des données dans la feuille "JOUR".
Dans la feuille "jour", en colonne E, lorsqu'on choisit "en pause", il colorie la ligne en jaune. Il la décolore lorsque le même numéro reviens avec "fin de pause".
Le seul problème que j'ai c'est que lorsque je veux intrduire manuellement des données dans la feuille "horaire", il me met "erreur déboguage".
Pourriez-vous corriger le code défaillant svp ?
Grand merci à tous pour votre aide.
Pasqi
Re,
Dans ta macro SheetChange, tu as la ligne suivante :
If Left(Sh.Name, 4) = "Jour" Then feuille = Sh.NameOr, tu ne testes pas le cas où le nom de la feuille ne commence pas par "Jour".
Dans ce cas-là, le nom de la feuille n'est pas renseignée et elle n'existe pas.
D'où l'erreur 9, l'indice n'appartient pas à la sélection (chez moi).
Re,
Ok, merci pour ces explications instructives,
néanmoins, je ne comprends pas ce que je dois faire, modifier, supprimer ou rajouter...
Si je dois te donner des infos complémentaires, dis le moi.
Merci
Change la ligne
If Left(Sh.Name, 4) = "Jour" Then feuille = Sh.Namepar celle-ci :
If Left(Sh.Name, 4) = "Jour" Then feuille = Sh.Name Else Exit SubGrand merci à toi, ça semble être en ordre.
Ça parait si simple... et si compliqué
Bonne journée.
Pasqi