IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Je voudrai dans l'userform à R1 ou R2 que le texte de la cellule qui est de couleur


Sujet :

Macros et VBA Excel

  1. #1
    Nouveau membre du Club
    Homme Profil pro
    Collégien
    Inscrit en
    Septembre 2024
    Messages
    6
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 13
    Localisation : France, Val d'Oise (Île de France)

    Informations professionnelles :
    Activité : Collégien

    Informations forums :
    Inscription : Septembre 2024
    Messages : 6
    Par défaut Je voudrai dans l'userform à R1 ou R2 que le texte de la cellule qui est de couleur
    Excel 2024.
    Bonjour à tous, je suis vraiment débutant et je dois créer un questionnaire pour un contrôle de techniciens.
    Dans un userform j'ai un textbox (Q)qui correspond aux questions posées et 2 autres pour réponses (R1) et (R2)
    dans lesquels un choix doit être fait. En feuil2 (Cg1), J'ai 2 colonnes de A1 à A20, et de B1 à B20.
    Dans ces colonnes les bonnes réponses auront le texte de couleur rouge. 1 cellule par ligne de (A1 / B20) a la bonne réponse.
    Je voudrai dans l'userform à R1 ou R2 que le texte de la cellule qui est de couleur (donc bonne réponse) reste inscrit et
    que la mauvaise réponse s'efface. Y a-t-il une condition qui m'éviterai de recopier sur 20 lignes les bonnes réponses,
    sachant que j'ai 5 séries de questions.(5 fois 20).
    Merci de votre aide précieuses

    Private Sub BTO2_Click()
    Sheets("cg1").Select
    R1.Text = "" 'efface le texte inscrit
    R2.Text = ""
    Q = Range("A12") ' affiche la question
    R1 = Range("A1") 'récupère le texte de feuil2 (Cg1)
    R2 = Range("B1")
    Application.Wait Now + TimeValue("00:00:10") 'temps d'affichage
    R1 = Range("A1") 'inscrit la bonne réponse
    R2.Text = "" 'efface le texte
    End Sub

  2. #2
    Membre Expert
    Profil pro
    Inscrit en
    Juillet 2006
    Messages
    1 454
    Détails du profil
    Informations personnelles :
    Localisation : France, Paris (Île de France)

    Informations forums :
    Inscription : Juillet 2006
    Messages : 1 454
    Par défaut
    Salut,

    Pour cela, il te faut un modèle de données qui liste les questions, les réponses, et permette de faire le lien entre les questions et les réponses.
    La cosmétique n'intervient qu'après.

    Qu'as-tu fais jusqu'à présent ?
    Peux-tu uploader ton classeur ?

  3. #3
    Nouveau membre du Club
    Homme Profil pro
    Collégien
    Inscrit en
    Septembre 2024
    Messages
    6
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 13
    Localisation : France, Val d'Oise (Île de France)

    Informations professionnelles :
    Activité : Collégien

    Informations forums :
    Inscription : Septembre 2024
    Messages : 6
    Par défaut Merci Deedolith pour votre réponse
    Citation Envoyé par deedolith Voir le message
    Salut,

    Pour cela, il te faut un modèle de données qui liste les questions, les réponses, et permette de faire le lien entre les questions et les réponses.
    La cosmétique n'intervient qu'après.

    Qu'as-tu fais jusqu'à présent ?
    Peux-tu uploader ton classeur ?
    Je vous joint le classeur, pour l'instant j'en suis au début. j’essaie de comprendre ce qui pourrai m'éviter les répétitions.contole tech.xlsmcontole tech.xlsm

  4. #4
    Membre Expert
    Profil pro
    Inscrit en
    Juillet 2006
    Messages
    1 454
    Détails du profil
    Informations personnelles :
    Localisation : France, Paris (Île de France)

    Informations forums :
    Inscription : Juillet 2006
    Messages : 1 454
    Par défaut
    Je suis passé par VBA, des tableaux structurés et Power Query.

    Dans le classeur ci_joint, tu trouveras en plus de ce que tu as déja fait (qui est maintenant obsolête):
    1 feuille Data contenant 6 tableaux.
    1) Ce tableau liste des questions.
    2) Ce tableau listes des propositions de réponse.
    3) Ce tableau fait le lien entre les questions et propositions de réponses.
    4) Ce tableau fait le lien entre les questions et la bonne réponse.
    5) Ce tableau mémorise l'identifiant de la question sélectionnée, a ne pas toucher, il est mis à jour automatiquement.
    6) Ce tableau calcule les réponses à afficher, il est mis à jour automatiquement.

    Le VBA a été lourdement mis à jour, je t'invite à l'étudier.
    Contole tech.xlsm

  5. #5
    Nouveau membre du Club
    Homme Profil pro
    Collégien
    Inscrit en
    Septembre 2024
    Messages
    6
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 13
    Localisation : France, Val d'Oise (Île de France)

    Informations professionnelles :
    Activité : Collégien

    Informations forums :
    Inscription : Septembre 2024
    Messages : 6
    Par défaut Mille mercis deedolith pour ta gentillesse d'aider un néophite
    Je te remercie , car sans toi impossible d'y arriver. Étant débutant je m'aperçois que j'ai beaucoup à apprendre. Trop bien d'avoir à faire à des génies. Encore merci. Très bonne soirée

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [VBA-E] Problème avec ShowModal dans un UserForm
    Par damsmut dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 25/07/2006, 10h19
  2. [VBa-E] Object Ole "image bitmap" dans une Userform?
    Par gootsu dans le forum Macros et VBA Excel
    Réponses: 12
    Dernier message: 10/07/2006, 15h24
  3. Réponses: 8
    Dernier message: 11/06/2006, 13h23
  4. [VBA excel]graph dans un userform .._
    Par SpaceFrog dans le forum Macros et VBA Excel
    Réponses: 7
    Dernier message: 31/05/2006, 19h45
  5. [VBA-E]graphique excel dans un userform
    Par alex_95 dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 20/03/2006, 10h03

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo