Le QCM

Bonjour,

Dans 'ajouter des questions'

Le bouton + =

CommandButton5_Click()

Ce n'est pas un doublons avec le bouton 'validation' =

CommandButton3_Click()

?

(je trifouille )

merci

@ bientôt

Bonjour

De mémoire (récente) lors de l'ouverture du USF, la question 1 est affichée avec ses réponses... Le bouton Spin permet de naviguer dans un sens ou dans l'autre, mais si l'on veut ajouter une question le fait de cliquer sur "+" vide tous les champs afin que le USF reçoive les données, une fois ces dernières inscrites le bouton validation va enregistrer cette question après quelques tests de conformité.

@ bientôt

LouReeD

Bonjour,

Pardon pas validation mais gomme

Car les codes sont les mêmes

Merci

En effet, je n'avais intuité qu'il y avait la gomme...

@ bientôt

LouReeD

Bonjour,

J'ai rajouté 2 texbox8 et texbox9

seulement je ne suis pas sûr d'avoir fait tout bon dans les codes

même si tout fonctionne, je reste

merci pour votre aide

@bientôt

Ligne 8 : La propriété OleObjectBlob dans Questions a une référence de fichier incorrecte.

Autre chose ? Si le fichier est trop lourd alors passer par mon mail...

@ bientôt

LouReeD

Bonjour,

Ok merci beaucoup

Je vous envoie le fichier

@bientôt

Bonsoir,

bien reçu ! Mais les peu de tests fait ne m'a pas afficher d'erreur...

@ bientôt

LouReeD

Bonsour,

L'erreur c' est de temps en temps.

De mémoire je pense que c'est la feuille TLT avec un en-tête erroné "réponse fausse 2". Mais est-ce que ça provoque une erreur ?

Par contre je ne sais pas comment j'ai pu modifier cette en-tête ??? 🤔 🤔

Mais je l'ai supprimé, beaucoup trop lourd.

Pour les 2 textbox, c'est ok?

Merci beaucoup

@bientôt

Merci pour ce retour rapide !

Bonne fin de soirée @ vous

@ bientôt

LouReeD

Désolé j'étais entrain de modifier ma réponse

Je ne sais pas si votre QCM va supporter mes fichiers. Pour l'italien j'en suis à plus de 10 milles mots ou phrases rien que l'italien🤔🤕🤕🤪😏😏

👍

Bonne fin soirée à vous aussi et encore merci

@bientôt

Si j'avais su que cela vous donnerait autant de mal !
Pauvre de moi d'avoir bien voulu faire évoluer cette "antiquité" !

@ bientôt

LouReeD

Bonjour,
Il n'y aucun mal à part:
mes yeux qui ressemblent à des soucoupes,
mon épouse qui commençait à me faire la grimace pour avoir passé des centaines d'heures sur mon écran.
Ma tête qui n'est plus vraiment sur mes épaules.
Non, non, franchement tout va pour le mieux

Pour les saisies, je ne suis pas un expert en dactylo mais plutôt en CTRL/C et CTRL/V.
C'est pour cette raison que je trouve votre "antiquité" bien faites et ça permet aux débutants, comme moi, d'arriver à comprendre le VBA.

Quand j'ai téléchargé votre QCM, je ne savais pas comment ajouter une texbox et je ne connaissais pas ces fameuses [variables].

Faites encore ce genre "d'antiquités" sans oublier les fameux "REM" (ça aide)
Et encore un grand merci

@bientôt

Bonjour,

Pouvez-vous m'aider?

J'ai une feuil1 contenant 13000 lignes, une feuil2 contant 4000 lignes, ces dernières se trouvent aussi en feuil1

J'aimerais les supprimer de la feuil1.

(Les lignes barrées à supprimer)

merci

J'ai pu m'arranger, mais si vous avez le code pour supprimer ces lignes, je prends quand-même car ça peut toujours servir.

Merci

@LouReed

Bonjour,

J'ai un petit problème que je n'arrive toujours pas à résoudre.

Comme je vous l'avez signalé plus haut, j'ai ajouté 2 TextBox8 et TextBox9 tout en bas de l'image.

Mon problème:

la validation ne prend pas en compte ces 2 TextBox. Pourquoi?

Merci

Bonsoir,

j'ai ouï-dire que vous avez réussi à résoudre votre problème, non ?

@ bientôt

LouReeD

Bonsoir,

Oui, je vous l'ai dit.

En privé je crois

@bientôt

Bonsoir,

je disais cela afin que vous en fassiez profiter tout le monde

@ bientôt

LouReeD

Bonjour,

oui désolé

pour répondre à votre question en PV

J'avais oublié ces codes avec "Cel_Trouvée.Row" c'est pour ça que la modification ne fonctionnait pas

   .Cells(Cel_Trouvée.Row, 6).Value = "" '------- X ----------
              If TextBox6.Value <> "" Then
              .Cells(Cel_Trouvée.Row, 15).Value = TextBox6.Value 'O
                End If

            .Cells(Cel_Trouvée.Row, 6).Value = "" '------- X ----------
               If TextBox7.Value <> "" Then
                .Cells(Cel_Trouvée.Row, 16).Value = TextBox7.Value 'p
                End If
            '----***********------------

mais j'ai dû tout renomer les textBox.... j'avais mis la pagaille...

@ bientôt

Merci !

@ bientôt

LouReeD