que choisir pour extraire de Excel et afficher dans Excel? Résolu

Question

Bonjour à la communauté! Sur une feuille Excel, je dispose d'un certain nombre de questions d'évaluation. A chacune de ces question, l'élève répond par Vrai ou Faux avec un indice de certitude (résolu hier). Parmi ces questions, j'aimerais maintenant en tirer 15 au hasard qui devraient apparaître, (j'ignore ce qui est faisable et de plus simple): sur une autre feuille Excel? un formulaire Excel?, autre? En complément d'info, je dispose en fait et en tout, de 12 feuilles de questions mais ce qui change n'est que la matière ayant trait aux questions sur la feuille. Le protocole à appliquer reste le même. Peut-être qu'une liste déroulante qui s'affiche sur une feuille ou formulaire unique pourrait permettre de choisir l'envoi des 15 questions d'une des feuilles 1 à 12. Enfin, l'affichage d'une question à la fois pour répondre aux 15 questions serait l'idéal. Quelqu'un voudrait bien me dire, SVP, comment je devrais envisager de résoudre? Je pourrais alors me mettre à la tâche et vous demander au besoin comment sortir de tel point où je n'en sortirais pas. D'avance merci!

pijaku · Accepted Answer

Bon je vais m'absenter pour le reste de la journée. Je te proposes de me préparer un fichier avec tes feuilles de questions/réponses, ta feuille avec le noms de participants (faux pour préserver la confidentialité) etc etc... Tu me ficèle un joli fichier excel et on reverra la programmation demain.
Pour te répondre, non il s'agit toujours de bureautique. Certains parlent de programmation de "bas étage", perso je ne trouve pas. Tu peux te créer de vrais outils de travail qui te permettent un gain de temps considérable.
Voilà à demain.

pijaku · Answer

Bonjour,

Tout dépend de ce que vous souhaitez...

Personnellement, je trouve ça plus convivial de le faire par un formulaire de type UserForm.
Faut s'y connaitre un minimum en VBA, mais ça peut être sympa à créer puis exploiter.

Je t'ai bricolé cet exemple. Il est très incomplet mais te donne une idée de ce que l'on peux faire.
Si tu es intéressé on développera.

Tu dis.

starter01 · Answer

Déjà grand merci!
J'ai vu l'exemple. Oui! ça me plaît! Entre temps j'avais penché aussi sur l'UserForm et j'avais commenté par expérimenter les commandes de VBA (je suis sur Office 2000 professionnel). J'arrive à quelque chose (dans l'utilisation de ces commandes) et concluant dans mes essais. De votre côté vous en êtes à un autre stade... L'exemple (sans doute rapide pour vous mais pour moi y arriver il y a un délai) montre bien le profil d'une solution élégante. Ainsi, dans une telle perspective, partant de votre exemple (si je peux en modifier le code), je peux extrapoler aux dénominations réelles relatives à mes questions. Une manière de dire que je ne m'attends pas à "du tout cuit dans mon assiette".
Là où je ne saurais pas de si tôt en sortir se serait au niveau de l'application dans l'UserForm de la formule suivante qui résout dans Excel (écrite hier par Bruce Willix de la communauté de ce site):  =SI(A2=B2;SI(C2=1;0;SI(C2=2;3;SI(C2=3;4;SI(C2=4;5))));SI(C2=1;0;SI(C2=2;-1;SI(C2=3;-2;SI(C2=4;-5))))). En conclusion, merci donc de votre disponibilité et compétence. J'opte pour votre suggestion de déployer la solution via un UserForm

starter01 · Answer

...entre temps je vois que je peux entrer dans le code et que vous y avez écrit des informations (non visibles dans le Form). Je vais y bricoler dedans...

starter01 · Answer

ha bon? J'ai bien lu tontong hier mais j'ai cru qu'il félicitait Bruce... Faut que j'aille revoir ça et remercier tontong, en plus! Entre temps, le Form de l'exemple je l'ai amplifié avec des cases nécessaires. Mais comment je fais pour te le renvoyer?

starter01 · Answer

Merci infiniment! Voici le lien: http://cjoint.com/?CBmmtnY6KLQ

starter01 · Answer

Oui !OptionButton et non checkBox, bien grossière erreur (mais j'étais surtout appliqué à la disposition des éléments (me tester) Quant à ta remarque sur la certitude, je ne comprends pas, mais voilà: Selon que la réponse est correcte ou non, l'indice (1,2,3 ou 4) vient appliquer un tarif différent (qui est dans la formule de hier (Bruce et TongTong qui en ont donné chacun une). Ta 2e remarque tient toujours? Si oui, tu dois avoir tes raisons, moi je te suis...

starter01 · Answer

Merci ! Je vais voir ton form. Entre temps je m'étais corrigé (selon tes remarques): Voici: 	' target='_blank' rel='nofollow'>http://cjoint.com/?CBmnnxlH3YZ

Etant bien entendu que mes modifications sont à considérer comme des "vocalises", pour voir et pour me faire comprendre

starter01 · Answer

Oui, j'ai vu ! Ce qu'il y a (mais entre temps tu en as pris conscience) ce que: SELON que la RÉPONSE est correcte ou non, le barème est différent ! Un effet, s'il est certain mais que c'est faux le tarif sera -5 (et non +5). C'est ce que résolvent les 2 équations précitées (ça marche déjà dans la feuille Excel)

starter01 · Answer

Entre temps, toujours merci. Il me serait impossible d'avancer si vite sans aide (si je peux dire que j'avance, bien sûr). Voici à nouveau ma contribution dans ton formulaire: 	http://cjoint.com/?CBmnMtmLWY4

pijaku · Answer

Nouvel exemple.
Celui-ci tu trouveras tout le code commenté.....
Dans les commentaires du module1, tu trouveras 3 questions et une amélioration à faire absolument.
Dis moi...

starter01 · Answer

Je suis allé voir, ça frôle la perfection ... ça va bien!
Alors, ce qu'il faudrait pour bien faire (voilà, ...ça commence..), c'est que le bouton radio soit initialisé après une réponse. En effet, le candidat pourrait valider sa réponse sans se rendre compte qu'il ne vient pas de cliquer. Très bien le tableau inséré avec les indices! Ce que je vais faire maintenant est d'aller extrapoler d'après ton code pour des données de ma feuille (voir si j'y arrive).  Je dois me rendre compte le + rapidement possible des difficultés pour finaliser. Je m'en vais donc dans ton code et commentaires. Merci!

starter01 · Answer

Merci. je suis en train de travailler dessus. Vos commentaires sont très soignés. Je n'ai pas fini de chercher à comprendre certains effets de vos instructions (code) avec la conséquence. Par exemple, vous pouvez voir ici http://cjoint.com/?CBmpeKSKQES  j'ai ajouté une feuille "Candidats" (mais qui s'ajoute aux listes des matière...) mais sans (encore) réussir (à comprendre) à l'importer dans la liste. Je ne vois pas encore POURQUOI votre code importe, sur quel critère. Bien entendu je ne manquerai pas d'étudier purement et simplement dans la littérature, votre aide est bien précieuse pour montrer le chemin. J'ai 2-3 questions que j'aimerais poser: 1/. l'extraction actuelle est-elle aléatoire? 2/. serait-il (simple) d'enregistrer les questions qui ont été posées, sinon, enregistrer le score et la date par exemple dans une colonne de la feuille "Candidats" à côté du nom? Quant à "Imprimer" je réalise que c'est dangereux car tôt ou tard on finirait par avoir su papier toutes questions ...et les réponses. Je vais donc retirer "Imprimer" du bouton "Imprimer/ Enregistrer". Avec tout cela, vous m'avez donné beaucoup de courage et vraiment une très bonne base pour continuer. Je ne suis pas sorti de l'auberge mais c'est très positif.

starter01 · Answer

Quoi qu'il en soit, le "bureautique" n'a plus rien à voir dans ce que vous faites. Ces outils sont merveilleux mais ils relèvent des métiers de l'informatique et non du ...secrétariat (avec tout le respect bien sûr). Je ne m'attendais pas à moins et là je suis servi avec du pain sur la planche...

starter01 · Answer

...entre temps j'ai trouvé le module ChoixQuestion pour le choix des questions ainsi que les commentaires que je m'en vais étudier..., cela fait une question en moins ...

starter01 · Answer

Merci bien, je prépare ça.

starter01 · Answer

Bien le bonjour ! En voulant retirer hier le champ "Mention" (où dans le code tu avais par ailleurs écrit et commenté 2 mentions judicieuses) j'ai engendré un bug... Ayant découvert d'où ça venait, j'ai remis la mention (persuadé par toi que c'était judicieux). Donc à ce stade ça remarche. J'ai renommé les feuilles, ça marche. Le tout est (ré)organisé pour réduire les balayages avec la souris, notamment pour répondre aux questions. Dans' target='_blank' rel='nofollow'>http://cjoint.com/?CBnihbNuxYLDans la version d'avant le plantage, j'avais inséré une feuille "Candidats" et j'avais trouvé le "module" dont tu te servais pour lire les données, le randomize et autre qui répondaient en tout à 2 de mes 3 questions. Ce matin (maintenant) je dois m'absenter 1 bonne heure. Je reviendrai aussitôt continuer à m'appliquer sur ce projet. A plus tard, j'espère bien et merci par anticipation.

starter01 · Answer

Bonjour pijaku, sur le thème d'un éventuel enregistrement (de par exemple le nom de l'article, la date et le score sur /75 [sur 75 car 75 = 15x5 points] j'ai planché sur une feuille Excel. Il me semble que Excel n'est pas adapté pour les enregistrements. Le couple d'identification prénom-nom des candidats (ils sont 7, oui, rien que 7 mais il y a un renouvellement), qu'il soit mis en lignes ou en colonnes, les données prennent la forme d'une matrice où CHAQUE nouvel enregistrement vient affecter la configuration de la matrice elle-même. Contrairement donc à un enregistrement dans une DB. A ce stade où je ne suis pas encore moi-même capable d'effectuer un lien ou une macro (?) reliant votre Form à Access, je tends par une (temporaire) marche arrière. Dans les limites de mes vue très partielle des solutions possibles, je me demande, je te demande, si, par exemple, au lieu d'enregistrer en interpellant un programme (Access?) on ne pourrait pas (au clic sur "enregistrer") envoyer les données (nom, prénom, article et score) qui sont vives dans le Form par email. Cela étant dit, le résultat obtenu par votre Form je le trouve bien séduisant!

starter01 · Answer

Merci! Noms et prénoms suffiront. Le cas échéant un indice permettrait de distinguer les candidats (fort improbable de rencontrer ce cas). Pourquoi Access? Simple, car j'ignorais que Excel (ou plus précisément, celui qui sait l'exploiter, toi dans ce cas) peut être configuré dans un but. Oui, oui, bien sûr c'est déjà bien beau de recevoir ton aide... De mon côté j'ai doublé ton Form et je suis en train d'y insérer les feuilles avec les articles et questions réelles. Je teste au fur et à mesure et tout va très bien, ça marche parfaitement! Je présume qu'il me suffira de copier-coller ton code du Form modifié dans le Form réel sur lequel je travaille. Sinon je me débrouille après. Ces manipulations me permettent de découvrir et de réfléchir. A plus tard et merci infiniment.

starter01 · Answer

je comprends partiellement ta recommandation. Oui, c'est dans ton Form, appellons-le "A", que je place mes données (colonnes de mes questions qui écrasent celles du test) et idem pour les colonnes Vrai/Faux. Disons que "A" devient ainsi A'. Quand un ajout au code se fait dans ton "A" je me proposais d'encoller la modif (code) dans A'. Si maintenant il y a risque que ça plante ou si de toute façons s'il vaut mieux éviter, j'importerai à nouveau mes données dans ton nouveau "A". La taille de l'affichage des questions dans la fenêtre du Form pourrait-elle passer en 12 points? Si oui, je pourrais lire comment s'écrit le code et tester aussi en 11 ou autre. Je voulais aussi te dire de ne pas hésiter à me remballer si pour certaines questions ou améliorations il me suffirait d'étudier la documentation, ce que je compte faire de toute façons, ici j'avance grâce à toi mais je ne compte par en rester là, pas si bas en tous cas.

starter01 · Answer

pijaku, je découvre qu'il est possible répondre sans cocher la certitude. De la sorte, si le candidat ne s'en rends pas compte, la question est comptabilisée mais sans gain ni perte... Je suppose qu'il y a "un nul" ou "un false" à modifier.. je regarde de mon côté

starter01 · Answer

seulement l'instructeur (qui contrôle le bon déroulement de l'évaluation) et son supérieur ont un compte de messagerie. Les candidats eux-mêmes pas.

starter01 · Answer

attends, attends! Le candidat qui est prêt (évaluation individualisée, un par un après période d'apprentissage) est dans le bureau de l'instructeur. Ce dernier lance l'application et le candidat réponds aux questions. Au terme des réponses, il a la mention "réussi" ou "à revoir" comme tu l'as si bien prévu. Il faut (il faudrait juste enregistrer "la preuve" de son passage). C'est tout.

starter01 · Answer

lorsque j'ai introduit la notion de "email" était ne sachant pas que Excel peut enregistrer. Cela étant, si le résultat peut être extrait (nom, prénom, article, date du passage, score et mention) et transmis par email au responsable (et/ou à l'instructeur lui-même) serait un plus, sachant que cet instructeur dispose néanmoins de l'application sous les yeux pour consulter les divers résultats enregistrés

starter01 · Answer

Super! Je me réjouis de voir ça. Pour la mention, laissons alors tomber. Par contre, le score /75 serait intéressant si affiché en plus en termes de % (75% = 100%). Une autre question que j'hésitais à poser est la suivante: une réponse incorrecte a certaines questions constitue une faute grave (éliminatoire). Ces questions (fautes graves) ne sont pas nombreuses, mais il y en a. Si par exemple en plus de la colonne Vrai/Faux nous avons un indicateur (Ex: 0 pour dire que réponse incorrecte = faute grave => éliminatoire et 1 pour dire que c'est acceptable de fournir une réponse incorrecte), cela complique très fort l'application?

starter01 · Answer

Merci!, Franck (j'ai vu sur ta fiche que ce prénom est public). Laisse tomber pour cette notion de questions éliminatoires. Je vais tout d'abord utiliser ton Form, apprendre de tes comments dans le code, laisser venir et voir après, si indispensable.

starter01 · Answer

J'oubliais de répondre à ta question si d'autres critères. Un seul autre, un seul. Peut-on facilement exiger un mot de passe pour entrer dans ce fichier? Il contient tout de même les questions ET le réponses....

starter01 · Answer

rebonjour, Franck, je vais télécharger ton nouveau Form et avant je réponds à tes questions. En cas d'erreur éliminatoire on peut imaginer l'affichage du score comme si de rien n'était + l'info qu'une question éliminatoire figure dans la réponses. "Manuellement" l'instructeur prend la décision de corriger l'erreur du candidat ou de le renvoyer à de nouveaux devoirs d'apprentissage.Quant à l'envoi automatique des résultats, il vaut mieux pas. En effet, il peut s'agir d'un test, d'une simulations. Il vaut mieux que l'envoi soit activé par action sur un bouton. Entre temps, merci.

starter01 · Answer

j'ai vu! L'éviction du candidat avec une erreur éliminatoire me convient bien. Aucune discussion n'est possible. Il n'aura qu'à étudier et revenir dès qu'il sera prêt. Quant à la visibilité des questions  ...je le les trouve plus, effectivement (ça viendra). Super le fait que le reste de la page ne s'affiche que dès que le candidat s'est identifié... Je n'ai pas osé cliquer sur enregistrer... (=> email) Je pouvais ? C'est après ce clic que, étant en maintenance, je pouvais voir les résultats?

starter01 · Answer

Franck, quand après le pop message "Fin du test, cette question est éliminatoire" le candidat continue à répondre, l'application laisse continuer ...

starter01 · Answer

...intéressant! Oui, bonne idée que de le laisser continuer tout de même. Il sera moins frustré mais bien informé! La prochaine fois il y pensera 2 fois avant de répondre... Je télécharge ton nouveau form et je l'essaies... Merci.

starter01 · Answer

oui, ça me convient bien ! Tu as bien solutionné le problème. J'ignore quels détails vont surgir en finalisant mais là nous sommes (tu es) au bout. Je préfère compléter (transférer) les données réelles sur ton nouveau Form et le tester dans ses fonctionnalités. Pour l'instant, as-tu d'autres consignes à me donner? Puis-je y aller?

starter01 · Answer

Ok, merci. Je fais des enregistrements à chaque étape (exemple, après une feuille de données). Ensuite je teste et, si ça bogue, je reviens à ma version précédente sauvegardée... C'est comme ça que je m'en sors. Pour l'instant Franck, veux-tu que je clôture la question, quitte à y revenir par après? De toute façon tu auras mon feedBack. J'aurais certainement de nouvelles questions à poser d'ici quelques jours ou avant. Dis-moi...

starter01 · Answer

C'est bien entendu. Je complète ton dernier Form avec les données réelles. Je vais déjà m'en servir ce vendredi en journée pour un test réel. Je reviens vers toi dans les prochains jours en laissant donc la question ouverte. Je tiens à te remercier pour cette belle réalisation! Dans la mesure où tu maîtrises ce système, je crains de ne t'avoir rien apporté en retour jusqu'ici, sauf à montrer, peut-être, que le dialogue (réciproque) est certainement un encouragement significatif pour se motiver. Grand merci, Franck et à bientôt.

starter01 · Answer

Oui, attendant j'étais bien en difficulté d'avancer, là c'est réussi (peu importe si l'un ou l'autre problème éventuel sera rencontré). Tout à l'heure j'ai fait un clic su l'envoi mais le système a renvoyé une erreur (je n'avais pas configuré l'adresse.). Maintenant que je finaliser avec mon temps (j'y travaille pour les journées entières) je vais passer tout en revue systématiquement, question de rencontrer le tout de tes commentaires et autres. La questions des emails viendra dont à la queue-leu-leu au finish d'être passé par toutes les lignes. Donc, pas de test immédiat, ça viendra dans la séquence dès que j'y arrive. A+

starter01 · Answer

Bien le Bonjour! Franck, J'ai introduit toutes mes données dans ton dernier form. Lu le code et tes explications de ce code. Tout ça est bien intéressant mais je dois y étudier. Alors: j'ai passé plusieurs fois des tests et voici quels sont mes constats:  l'envoi par email renvoie un message d'erreur (le transport vers le serveur a échoué). Préalablement j'avais mis 3 x mon adresse postale (non, non, rires) email. Comme ça a échoué 3 fois, je suis alors revenu sur ton original (j'avais travaillé sur une copie). Dans ton original j'ai juste changé ton adresse (3x) par la mienne et fait un test sur un article (les questions bidons). A la fin j'ai cliqué sur l'envoi mais j'ai eu le même message d'erreur. Peut-être un POP3 que je n'ai pas vu dans le code? Autre chose que j'ai constatée aussi: tant dans la feuille des résultats de "mon" Form que dans le tien, les questions posées ne s'enregistrent pas. Pourtant à un moment donné j'avais vu qu'il y en restait d'affichées lorsque le test avait été interrompu de manière inopinée. Comme le problème se pose aussi sur ton Form, j'ai pu dédouaner qu'une erreur dans "le mien" en soit la cause ou la seule cause. En effet j'ai renommé "feuilles" et/ou "articles" afin qu'ils correspondent pour se syntoniser. En l'état actuel, aucune trace ne reste donc après une évaluation... Merci de ton aide.

starter01 · Answer

Bonjour Franck! Je dispose d'un POP3 d'un domaine propre, je peux le configurer sans problème. J'avais lu ton code repris ci-dessus dans ton post mais je n'ai pas reconnu (ça m'a échappé) le xxxx.xxxxxxxx-mail.net  = POP3 de l'envoi. Cela étant, ce qui compte est l'enregistrement du résultat xpoints/75 points. le reste est de moindre importance, relève d'un luxe. Pour rappel, la question de l'envoi par email visait à suppléer à un éventuel problème pour l'enregistrement dans Excel lui-même. Dès lors l'email donne la traçe, la preuve que évènement a bien eu lieu.

starter01 · Answer

Oui, oui, c'est le smtp, je me suis trompé mais je le savais. J'ai donc changé en mettant celui de mon serveur mail.dddd.ddd.xx, je suis allé cocher la case Microsoft CDO for Windows 2000 Library et ai laissé le port 25. J'ai repassé un test et cliqué sur l'envoi. Le transport continue à échouer. C'est sans doute le port qui n'est pas le 25, je vais étudier la question.Pour répondre à tes questions, - en colonne A les noms des utilisateurs,
- en ligne 1 les noms des articles
Dans ce cas, on enregistre, à l'intersection (Nom, Article) la date + le résultat.
En cas de plusieurs tentatives sur le même questionnaire par le même utilisateur, seul est gardé le meilleur résultat.
Ca te va? ou pas.......... Oui, cela me convient. Dans le cas où le candidat échoue à cause d'une éliminatoire, la case pourrait-elle enregistrer "réponse éliminatoire"?. Un tel aboutissement solutionne ce dernier point qui est l'enregistrement. L'envoi par email donnerait un plus mais qui n'est pas déterminant une fois que le score est sauvegardé.

starter01 · Answer

...j'oubliais. Dans ma feuille des résultats, le nom des articles de ton Form ont reçu le nom des 12 articles proprement dits (sans espaces) dans les feuilles du questionnaire, tit-top identiques, bien sûr. Je pouvais le faire?

starter01 · Answer

Ou alors prévoir un enregistrement du style :
01/01/2013¤35¤0 ==> Le 01/01/2013 - 35 pts / 75 - 0 = éliminatoire
02/12/2012¤45¤1 ==> Le 02/12/2012 - 45 pts - 1 = non éliminé
C'est + simple à mettre en place.....
Ce serait super bien de faire comme tu le proposes. Je voulais aussi te dire que le Form qui était resté à l'écran après 2 échecs d'envoi, après la correction du SMTP il a envoyé. Il permet donc d'être cliqué plusieurs fois. De la sorte, si la réponse pop de Win tarde, la personne pourrait recliquer plusieurs fois et envoyer plusieurs messages les mêmes...

starter01 · Answer

dans ton dernier Post, à partir de "Ce code doit être appelé depuis une procédure de l'UserForm "Questionnaire". J'ai choisit ... je ne suis pas sur de comprendre mon action a faire. Est-ce: - dans VB => Questionnaire => clic-clic pour afficher le code et insérer tes bouts de codes mais qui, dans le Post contiennent des coupure pour tes tes explications. Pourrais-tu, Franck, m'envoyer tout le code du Questionnaire (ancien et modifié?) ici j'ai peur de planter mais surtout d'introduire des erreurs qui n'apparaîtront pas directement... Quant au score, c'est ok mais j'attends de vérifier que ça va bien car, dans "Resultats" j'ai encollé après "Option Explicit" ton codeWith Sheets("Résultats") 'on cherche la ligne ou en colonne A on a le nom de l'utilisateur Lig = .Columns(1).Cells.Find(Nom, Lookat:=xlWhole).Row 'on cherche la colonne ou dans la 1ere ligne on a le nom de l'article Col = .Rows(1).Cells.Find(Article, Lookat:=xlWhole).Column 'Si la cellule d'intersection lig col est vide If .Cells(Lig, Col) = "" Then 'on y enregistre : la date + ¤ + le résultat .Cells(Lig, Col) = Date & "¤" & Result & "¤" & Elim Else 'sinon, si elle n'est pas vide 'On regarde si la note précédente était éliminatoire If Right(.Cells(Lig, Col), 1) = 0 Then 'Si c'est le cas, et que la note du jour n'est pas éliminatoire If Elim = 1 Then 'Cas : ce jour non éliminatoire ; jour précédent éliminatoire 'ON REMPLACE .Cells(Lig, Col) = Date & "¤" & Result & "¤" & Elim Exit Sub Else 'Cas : ce jour éliminatoire ; jour précédent éliminatoire 'ON VERIFIE LE SCORE Pos = InStr(.Cells(Lig, Col), "¤") + 1 NbrCar = InStr(InStr(1, .Cells(Lig, Col), "¤") + 1, .Cells(Lig, Col), "¤") - (InStr(1, .Cells(Lig, Col), "¤") + 1) Score = Mid(.Cells(Lig, Col), Pos, NbrCar) 'si le score de la cellule est, inférieur au résultat du jour If Score < Result Then 'on enregistre, dans la cellule : la date + ¤ + le résultat .Cells(Lig, Col) = Date & "¤" & Result & "¤" & Elim Exit Sub End If 'dans le cas contraire (résultat inférieur) on ne fait rien End If Else 'Cas : ce jour éliminatoire ; jour précédent non éliminatoire 'ON N'ENREGISTRE PAS If Elim = 0 Then Exit Sub End If 'Cas : ce jour non éliminatoire ; jour précédent non éliminatoire 'ON VERIFIE LE SCORE 'on extrait le score de la cellule Pos = InStr(.Cells(Lig, Col), "¤") + 1 NbrCar = InStr(InStr(1, .Cells(Lig, Col), "¤") + 1, .Cells(Lig, Col), "¤") - (InStr(1, .Cells(Lig, Col), "¤") + 1) Score = Mid(.Cells(Lig, Col), Pos, NbrCar) 'si le score de la cellule est, inférieur au résultat du jour If Score < Result Then 'on enregistre, dans la cellule : la date + ¤ + le résultat .Cells(Lig, Col) = Date & "¤" & Result & "¤" & Elim End If 'dans le cas contraire (résultat inférieur) on ne fait rien End If End With End SubEnfin, relativement à l'enregistrement des résultats, le code se termine ainsi...objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = "25" objMessage.Configuration.Fields.Update objMessage.Send MsgBox "Vos résultats ont bien été transmis." Exit Sub errorHandler: MsgBox Err.Description End Sub Sub EnregistreResultats(Nom As String, Article As String, Result As Integer, Elim As Byte) Dim Lig As Integer, Col As Integer, Pos As Integer, NbrCar As Integer Dim Scoresoit donc par "Dim score"au lieu du précédent "End Sub" Pour t'éviter de m'expliquer et que je réagisse aux explication (on voit ici que ça devient compliqué) ce srait mieux que, si tu veux bien, me renvoies ton Form. Pour y insérer mes données je dispose maintenant de l'entraînement suffisant pour effectuer les opérations.

starter01 · Answer

Merci Franck ! Je vais travailler dessus. Là ça va bien aller. Je te tiens au courant

starter01 · Answer

Bien le bonjour, Franck! Aujourd'hui test de ton application en grandeur nature. Tout est bien opérationnel et apprécié, juste que la copie email ne marche pas... L'email avec les résultats part bien, à la réception le destinataire voit qui était en copie mais la copie n'arrive pas à destination... Bien à toi.

starter01 · Answer

Je te remercie Franck! L'important est fait et c'est bien super comme cela! A ce stade, l'objectif étant atteint, on clôture la question?

starter01 · Answer

Ok, merci ! La question est résolue. Cela étant, j'ai visité ton site Web http://www.4smyki.fr. l'art et la rigueur de programmation peuvent faire bon ménage... J'espère en de nouvelles occasions de partage mais où je pourrai (une prochaine fois) apporter du bien. A+

starter01 · Answer

Bonjour Franck. Merci de ta réactivité. La première possibilité me conviendrait bien. Il s'agit de disposer d'un stockage temporaire (que j'efface ultérieurement à la main ou que je copie-encolle ailleurs pour archivage) me permettant de justifier l'évaluation auprès de parents ou de l'élève lui-même, si demandé (voire si exigé!...).

starter01 · Answer

Merci! j'ai inséré la feuille "archive" et nommé les entêtes de colonne. Dans le code du bouton "Valide ta réponse" il me faut donc ajouter un bout de code... Je vais tenter de trouver (par analogie à ton code d'enregistrement temporaire dans dans la feuille "résultats"). Si je ne m'en sors pas je lance un appel à l'aide. ..

starter01 · Answer

Salut Franck, je suis justement dessus... J'ai lu ton message hier mais je n'ai pas pu le traiter. Je me rends compte de la "gymnastique" du codage (ton codage) qui devient difficulté significative pour mettre en pratique... L'avantage est que j'apprends sur la base de ce qui marche mais ...j'ai du pain sur la planche. Je te remercie donc encore une fois. Bien! Je te transmets sous peu le fichier dont le code correspond à ta dernière intervention directe. C'est ce fichier que j'avais ensuite dédié à la réception des noms, des matières et des questions réelles. Hier j'avais (dans mon fichier réel) ajouté une feuille "Archive" et placé dedans 15 titres de colonnes comme tu l'avais suggéré. Mais je ne crois pas que ça t'avance beaucoup... Je te transmets dont le fichier de ta dernière mouture dont je reprendrai le code. Je te reviens sous peu....

starter01 · Answer

voilà: 	http://cjoint.com/?CBwji4fXnhM  
J'ai essayé de mettre en pratique ta suggestion d'hier mais ...pas évident.

pijaku · Answer

J'ai essayé d'être pédagogique. Cela m'arrive de temps en temps, mais il faut dire que c'est beaucoup plus long. Mais aussi beaucoup plus profitable pour toi... Donc....
Pour archiver, nous avons besoin de quels renseignements :
- NOM Prénom,
- Date,
- Nom du questionnaire (pour retrouver les questions...)
- Les réponses du gars aux 15 questions.
La feuille archive se compose donc de :
- colonne A : NOM PRénom
- colonne B : Date,
- colonne C : Nom du questionnaire,
- colonnes de D à R : colonnes ou on va inscrire les réponses des questions de 1 à 15

Pour coder cela :
On a besoin du numéro de la ligne, dans la feuille archive, ou stocker les résultats. Cette ligne est la première ligne vide. On en a besoin dans :
- l'initialisation de l'Userform,
- le clic sur le bouton.
Comme elle doit rester en mémoire tout le temps d'exécution, il convient de la placer en entête du module de l'UserForm Questionnaire.

Tu verras donc, en tête du code de "Questionnaire" :
Option Explicit  'ça y était déjà...

Dim LignArchive As Long
Une fois ceci fait, on se pose la question :
Quand a t'on besoin de recalculer le numéro de la première ligne vide colonne A Feuille "Archive"?
- Lors de l'initialisation de l'Userform,
- Lors d'un clic sur le bouton "Evaluer un autre article",
- Pour être sur de nous, lors d'un clic sur le bouton "Envoyer les résultats".
Donc, dans ces trois procédures de l'USF Questionnaire, nous allons ajouter ces 3 lignes :
With Sheets("Archive")
    LignArchive = .Range("A" & Rows.Count).End(xlUp).Row + 1
End With

Ensuite, avec ce numéro de ligne, il nous faut stocker, dans la feuille archive :
- le nom,
- la date,
- le nom du questionnaire.
Quand faire cela???
Lorsque le candidat choisit son questionnaire 
avantage : même s'il ne finit pas de répondre, cela sera archivé.
Genre s'il change de questionnaire sans avoir répondu à une seule question, la feuille archive aura tout de même les colonnes A, B et C de remplies et donc tu le sauras...

Donc, dans la procédure : 
'En cas de changement de choix d'article :
Private Sub ComboBox1_Change() 
inscrit ces quelques lignes :
'on enregistre le nom, la date et le questionnaire dans la feuille archive
With Sheets("Archive")
    .Range("A" & LignArchive).Value = Me.Label19.Caption
    .Range("B" & LignArchive).Value = Date
    .Range("C" & LignArchive).Value = ComboBox1.Value
End With

Ne reste plus qu'à écrire, dans cette même ligne, les réponses à chaque clic sur "valider". Profitons en pour stocker, dans ces mêmes cellules :
- le degré de certitude choisi ==> pour cela, il nous faut une nouvelle variable numCertitude...
- le score obtenu par réponse
Dans la procédure :
'Lors d'un clic sur le bouton "valider une réponse" :
Private Sub CommandButton1_Click()
Après le traitement "fausse réponse" et "bonne réponse" et avant l'effacement des optionbutton.value :
ajouter :
    'On stocke les réponses+degré de certitude + résultat
    Dim ColonnArchive As Integer
    With Sheets("Archive")
        ColonnArchive = .Range("IV" & LignArchive).End(xlToLeft).Column + 1
        .Cells(LignArchive, ColonnArchive) = Reponse & "¤" & numCertitude & "¤" & Points
    End With

Après cela, ne reste plus qu'à exploiter ces résultats... Pour cela, il nous faut :
- un 3ème userform,
- une nouvelle feuille que tu pourrais imprimer...
Je m'y penche ce matin.

starter01 · Answer

...cela mène vraiment loin. Ton explication pas à pas est très didactique. Une fois cette implémentation réalisée, j'aimerais savoir comment ou dans quel ordre je devrais étudier "mon informatique" pour progresser. A priori je suis un matheux et j'ai déjà étudié l'algorithmique. J'aimerais développer mais je dois dire de ne jamais avoir réussi à trancher (par exemple) entre langages de programmation (VB?, C#, ...) ni par rapport aux plateformes-serveurs (PHP, ASP.net, ...) et, conséquemment, par rapport à MySqL ou SQL tout court. Bien, bien, ce sera dans un autre "débat". A+

pijaku · Answer

Voici ma dernière mouture.
Enjoy it!
https://www.cjoint.com/?CBwljtXO5mk

starter01 · Answer

Là je suis épaté, Franck! Je vais te dire une chose, Je croyais qu'en descendant un plus plus bas (dans mes compétences en matière) j'allais arriver au niveau du pétrole... Et bien, non! Suis plus bas que le pétrole et pour y arriver il faudra que je remonte... C'est ma découverte de cet avant-midi. Je m'en vais donc "déguster" ta nouvelle mouture. Je te remercie très sincèrement. C'est un peu, peu mais en ce moment je ne trouve rien d'autre à dire.

starter01 · Answer

Je prends au sérieux ta suggestion d'apprendre le PHP. Je ne sais pas à quelle échéance tu places le mot "futur" relativement à un nouveau site, mais, à ce stade, je crois plus probable que je te remonte 100 barils de pétrole pour ta Clio. Toutefois, il y a quelque chose que je saurais très bien faire: soigner l'ergonomie, la navigabilité, les textes conformes à l'attente de certains algorithmes de Google, le choix du titre des pages du site selon une stratégie d'options prenant pour socle de raisonnement les statistiques des recherches publiées par Google lui-même. Je suis très à l'aise dans ce domaine pour y avoir joué des années durant et pour avoir appris comment une action dans le code effectuée aujourd'hui se transforme à terme (variable décidé par Google lui-même), en piège pour le concepteur du site qui va hésiter si la maintenir ou pas... A+

Que choisir pour extraire de Excel et afficher dans Excel?

54 réponses

Discussions similaires

Newsletters