QCM en USF

Bonjour,

encore des erreurs '13'

bon courage

A+

erreur13 erreur13 b

Essayez en enlevant "As String" à la définition de Valeur_Cherchée.

@ bientôt

LouReeD

Bonjour

C'est bien dans

Sub Affiche_Question()
...
Worksheets("Questionnaire").Cells(Num_Question + 1, 10) = "X"

'mise en mémoire le fait que la question est posée

Dim Valeur_Cherchée As String

je supprime la ligne Dim Valeur_Cherchée As String ?

merci

Juste le As String... Comme c'est écrit

@ bientôt

LouReeD

Bonsoir

Ok j'ai retiré As String

plusieurs essais toute l'après midi

Pareil

mais plus long à venir l'erreur 13 et même endroit

La migraine, elle est pour moi

j'espère que tu trouveras

@+

Bon j'ai une piste :

Avec comme paramètre LookIn:=xlValues (la bien mal nommée...), FIND effectue la recherche dans la propriété TEXT des cellules (c'est-à-dire dans la valeur affichée !).

Donc sur une question "très longue" il se peut que le texte soit tronqué et du coup FIND ne trouve pas.
Il me faut peut-être partir sur une recherche de ligne avec EQUIV :

lig = Application.Match(Valeur_Cherchée, Sheets("BD").Range("A:A"), 0)

Si j'ai le temps ce soir je fais la modification. Pour confirmation il faudrait qu'en cas d'erreur vous récupériez la valeur de la valeur_cherchée et vous verrez alors que cela tombe sur les grandes questions, non ?

@ bientôt

LouReeD

Bonsoir,

ok je cherche ...

Pour confirmation il faudrait qu'en cas d'erreur vous récupériez la valeur de la valeur_cherchée...

pas tout compris votre question, vous pouvez répéter ?

comment fait-on pour récupérer la valeur?

Vous avez aussi des erreurs dans les questions mais ça c'est pas grave on peut corriger.

trouvais un doublon questions 574 (bonne) et 575 (fausse)

Qui incarne Mike Hammer avant 1984 ?Stacy Keach
Qui incarne Mike Hammer depuis 1984 ?Rob Estes

j'ai commandé un camion d'EFFERALGAN 1000 mg

Avant et depuis ce n'est pas un doublon.,.

@ bientôt

LouReeD

Oups j'avais pas vu... J'en suis resté à avant... Pfff

Désolé.

@+

Bonsoir,

c'est bien du à la longueur de la question : 257 caractères... J'ai essayé de modifier le code comme annoncé plus haut mais sans réussite, par contre j'ai modifié le texte de la question et cela fonctionne !

Voici donc le nouveau texte de la question en ligne 782 de la feuille BD :

Quand un arbre a été coupé, vous pouvez apercevoir des anneaux. Ces anneaux permettent de déterminer l'âge de l'arbre. Un cercle clair et un cercle sombre correspondent à eux deux, à une période. Mais, à combien d'année correspond cette période ?

@ bientôt

LouReeD

Bonjour,

Excellent j'ai fait plusieurs essais pas de plantage.

Merci pour tout

ci-joint fichiers:

J'ai fait une petite modification pour avoir ceci :

joueur1 2

... j'ai ajouté en dessous de ces lignes à chaque fois :

Label20.Caption = "A vous de jouer " & Pseudo1
Label18.Caption = Pseudo1 & " :"

et en dessous de celles-ci:

Label20.Caption = "A vous de jouer " & Pseudo2
Label29.Caption = Pseudo2 & " :"

C'est OK?

...

Là, je recherche sur le net comment modifier "Application.Speech.Speak", pour mettre la langue en italien.

Si vous avez une idée?

J'aimerais y ajouter un thème: "ITALIEN", avec des phrases. C'est possible?

Encore merci et Bravo!

@+

Bonsoir,

trouvé sur le net pour le français :

CreateObject("SAPI.SpVoice").Voice.Category.Default = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Speech\Voices\Tokens\TTS_MS_fr-FR_Hortense_11.0"
        Application.Speech.Speak (TextBox_Français.Text)

pour l'anglais :

        CreateObject("SAPI.SpVoice").Voice.Category.Default = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Speech\Voices\Tokens\TTS_MS_en-GB_Hazel_11.0"
        Application.Speech.Speak (TextBox_English.Text)

reste à connaître le nom de l'opérateur pour l'italien !

Sinon merci pour vos remerciements !

@ bientôt

LouReeD

Une piste ? A voir

@ bientôt

LouReeD

Bonjour,

Il plante encore....

Merci pour tout

@bientôt

Bonjour

Voici les erreurs que j'ai trouvé dans QCM

  • Parfois quand je quitte la partie puis Excel, 'QCM' est toujours ouvert. Si j'ouvre à nouveau le fichier QCM Excel me signale qu'il est déjà ouvert, mais on ne le voit plus. Pour pouvoir quitter 'QCM' je dois éteindre le PC et confirmer la fermeture d'Excel.
  • Quand je clic sur Nouvelle partie puis mets mon pseudo, si je clic sur une des 4 réponses vides, la macro plante 'erreur 9'.
  • Est-ce Normale dans le module 'Initialisation' qu'une ligne reste en rouge mais n'indique pas d'erreur?
ptrsafe

Merci

@+

Bonjour

La ligne est normale, elle sert pour les versions VBA7 64 bits. Votre version prend en compte la deuxième ligne de definition pour le Sleep Kernel32.

Pour le soucis de fermeture avec l'application "invisible" mettez la ligne suivante à FALSE ou bien en commentaire dans la sub "Affiche_le_jeu" :

Application.Visible = False

Pour l'erreur normalement si la partie n'est pas commencée alors il n'y a pas de texte sur le bouton, alors la ligne suivante fait une sortie prématurée de la sub : If Rep_D_1.Caption ="" Then Exit Sub

Si cette ligne de code ne fait pas effet c'est qu'il y a un texte ou voir un espace d'inscrit sur les boutons.

@ bientôt

LouReeD

ok merci

A+

OK... Ca marche ?

@ bientôt

LouReeD

Bonjour

....

Si cette ligne de code ne fait pas effet c'est qu'il y a un texte ou voir un espace d'inscrit sur les boutons.

J'avais bien un espace , ça fonctionne

encore merci

A+

Bonjour

Merci pour vôtre aide, vraiment sympa

@bientôt

Rechercher des sujets similaires à "qcm usf"