Re : Des lignes de code qui ne s’exécutent pas.
Bonjour Frangy et Roger2327,
Frangy, j'ai corrigé comme tu as suggéré mais, çca ne règle pas le problème de départ.
Cordialement, MERCI bien !!!!!
Roger2327, voici le mode d'emploi:
Je vais plutôt te donner la marche à suivre pour te démontrer le problème.
À retenir: La but de tout cela est la gestion d’une liste des quinze derniers items utilisés « Ajouté » dans le fichier FicheÉlèveProf.xls. Si un nouvel item est ajouté dans (FicheÉlèveProf.xls - bouton Menu - Ajout manuel) et que cette item n'est pas listé dans (Menu.xls - feuille FumuleBuffer - colonne A), il doit-être ajouté dans celle-ci.
En résumé: Ceci ajit un peut comme dans Excel et les 10 derniers fichiers enregistrés retenu (selon nos options).
I- Ouvrir les deux fichier (Menu et FicheÉleveProf)
II- Aller sur le fichier (Menu.xls - feuille FumuleBuffer)
N.B: Je crois avoir envoyé la feuille FumuleBuffer avec 15 Items (de A3 à A17)
Si ce n'est le cas, ajuster pour avoir 15 items S.V.P..
III- Mémoriser l'item en A3.
IV- Aller à la cellule B2 et tapez une chaîne de caractères... (pas de nombre seul), suivi de [ENTRER].
V- Vérifier que votre ITEM s'est ajouté au bas de la liste et que le premier est disparru, donc 15 item au total.
Tout fonctionne bien mais, ici nous venons de tester le code de la feuille FormuleBuffer comme en mode de "développement".
Voici le mode de fonctionnement normal et qui est problèmatique:
1- Aller à (FicheÉlèveProf.xls - bouton Menu - Ajout manuel)
2- Tapez une chaine de caractères qui n'est pas listée sous la colonne CodeBar... (pas de nombre seul), suivi de [ENTRER].
3- Annuler la nouvelle InputBox
4- Vérifier que votre item est ajouté au bas de la colone CodeBar FicheÉlèveProf.
5- Aller sur le fichier (Menu.xls - feuille FumuleBuffer), l'item que vous venez de taper est ajouté dans la cellule B2 mais, pas dans la liste des 15 items en (A3 à A17) comme c'était le cas à l'étape 'V'.
C'est sur ce problèeme que ma question est posée.....
En mode de développement, le code suivant est exécuter:
Worksheets("FormuleBuffer").Rows(3).Delete
Range("C2").Select
ActiveCell.FormulaR1C1 = _
"=IF(ISNA(MATCH(RC[-1],R[1]C[-2]:R17C[- 2],0)),SUMPRODUCT((ISTEXT(R[1]C[-2]:R17C[-2])*1)),""Item trouvé"")"
En mode de fonctionnement normal, seule la première ligne du code ci-haut est exécutée pourtant, l'item tapé dans (FicheÉlèeveProf) se retrouve bien dans la cellule B2, alors que se passe t'il ?
NOTE: Si vous voulez suivre le code de ((Menu.xls - feuille FumuleBuffer) en mode pas pas, mettre un point d'arrêt à la ligne de code On Error GoTo Erreurs et refaire les étapes (I à V) et (1 à 5).....
Je sais bien que tout cela est long comme explication mais.....
En vous remerciant d'avance !!!!!