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

VBA PowerPoint Discussion :

Vérifier Réponses d'un questionnaire [PPT-2010]


Sujet :

VBA PowerPoint

  1. #1
    Candidat au Club
    Femme Profil pro
    Enseignant
    Inscrit en
    Août 2017
    Messages
    5
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Âge : 35
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Enseignant

    Informations forums :
    Inscription : Août 2017
    Messages : 5
    Points : 3
    Points
    3
    Par défaut Vérifier Réponses d'un questionnaire
    Bonjour, je débute totalement en vba, mais par le passer j'ai fait un peu de programmation donc j'essaie de comprendre son fonctionnement.
    Je vous expose donc mon problème, j'ai créer une page où j'ai plusieurs textbox (6 en tout). J'aimerais qu'une fois toute les textbox complété avec des réponses correct powerpoint passe sur le slide suivant.

    J'ai bien essayé le tuto proposé sur la page tuto, mais je n'arrive pas a obtenir ce que je souhaite.

    Je joint une capture de la page et textbox que je souhaiterais créer.
    Images attachées Images attachées  

  2. #2
    Rédacteur/Modérateur

    Avatar de Jean-Philippe André
    Homme Profil pro
    Développeur VBA/C#/VB.Net/Power Platform
    Inscrit en
    Juillet 2007
    Messages
    14 586
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 40
    Localisation : Canada

    Informations professionnelles :
    Activité : Développeur VBA/C#/VB.Net/Power Platform
    Secteur : Finance

    Informations forums :
    Inscription : Juillet 2007
    Messages : 14 586
    Points : 34 253
    Points
    34 253
    Par défaut
    Bonjour,

    bienvenue sur DVP

    C'est une bonne idee pour commencer ce type de comportement

    Quel est ton etat de code actuel ? Tu as essaye certaines choses sans y arriver ? Lesquelles ?

    Arrives-tu a lire le contenu des txtbox ? Arrives-tu a passer au slide suivant ?

    Sur quelle etape bloques tu ?
    Cycle de vie d'un bon programme :
    1/ ça fonctionne 2/ ça s'optimise 3/ ça se refactorise

    Pas de question technique par MP, je ne réponds pas

    Mes ouvrages :
    Apprendre à programmer avec Access 2016, Access 2019 et 2021

    Apprendre à programmer avec VBA Excel
    Prise en main de Dynamics 365 Business Central

    Pensez à consulter la FAQ Excel et la FAQ Access

    Derniers tutos
    Excel et les paramètres régionaux
    Les fichiers Excel binaires : xlsb,

    Autres tutos

  3. #3
    Candidat au Club
    Femme Profil pro
    Enseignant
    Inscrit en
    Août 2017
    Messages
    5
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Âge : 35
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Enseignant

    Informations forums :
    Inscription : Août 2017
    Messages : 5
    Points : 3
    Points
    3
    Par défaut
    Bonjour et merci pour la réponse,

    Alors pour le moment mon code va pas très loin il se résume à ça :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    Private Sub TextBox1_Change()
    If TextBox1.Text = "1" Then
    SlideShowWindows(1).View.GotoSlide (2)
    End If
    End Sub

    Et cela fonctionne, cependant ça change de slide direct après que la réponse dans le textbox1 soit bonne, je sais pas comment ajouter un "et" et ajouter les conditions sur les autres textbox avant de faire le changement de slide. J'ai testé la virgule, le point virgule, juste l'espace et ça me met une erreur, n'ayant pas trouvé de fichier avec les commande type et ne sachant pas vraiment quoi chercher dans l'aide je me tourne finalement vers vous.

  4. #4
    Rédacteur/Modérateur

    Avatar de Jean-Philippe André
    Homme Profil pro
    Développeur VBA/C#/VB.Net/Power Platform
    Inscrit en
    Juillet 2007
    Messages
    14 586
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 40
    Localisation : Canada

    Informations professionnelles :
    Activité : Développeur VBA/C#/VB.Net/Power Platform
    Secteur : Finance

    Informations forums :
    Inscription : Juillet 2007
    Messages : 14 586
    Points : 34 253
    Points
    34 253
    Par défaut
    OK,

    alors pour faire un test sur plusieurs textbox tu peux passer par
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    If TextBox1.Text = "1" And TextBox2.Text = "2" Then
    Je te conseille de creer un bouton pour valider la reponse, et au click sur le bouton tu declenches le code de test et de passage a la slide suivante.
    Cycle de vie d'un bon programme :
    1/ ça fonctionne 2/ ça s'optimise 3/ ça se refactorise

    Pas de question technique par MP, je ne réponds pas

    Mes ouvrages :
    Apprendre à programmer avec Access 2016, Access 2019 et 2021

    Apprendre à programmer avec VBA Excel
    Prise en main de Dynamics 365 Business Central

    Pensez à consulter la FAQ Excel et la FAQ Access

    Derniers tutos
    Excel et les paramètres régionaux
    Les fichiers Excel binaires : xlsb,

    Autres tutos

  5. #5
    Candidat au Club
    Femme Profil pro
    Enseignant
    Inscrit en
    Août 2017
    Messages
    5
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Âge : 35
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Enseignant

    Informations forums :
    Inscription : Août 2017
    Messages : 5
    Points : 3
    Points
    3
    Par défaut
    Merci beaucoup cela fonctionne bien

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    Private Sub Vérifier_Click()
    If TextBox1.Text = "1" And TextBox2.Text = "0" And TextBox3.Text = "1" And TextBox4.Text = "1" And TextBox5.Text = "1" And TextBox6.Text = "1" Then
    SlideShowWindows(1).View.GotoSlide (2)
    End If
    End Sub
    J'ai fais ça et ça marche comme je le souhaite. Merci beaucoup pour l'aide

    J'aurais une ultime question, peut-on éditer l'aspect du bouton crée?

  6. #6
    Rédacteur/Modérateur

    Avatar de Jean-Philippe André
    Homme Profil pro
    Développeur VBA/C#/VB.Net/Power Platform
    Inscrit en
    Juillet 2007
    Messages
    14 586
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 40
    Localisation : Canada

    Informations professionnelles :
    Activité : Développeur VBA/C#/VB.Net/Power Platform
    Secteur : Finance

    Informations forums :
    Inscription : Juillet 2007
    Messages : 14 586
    Points : 34 253
    Points
    34 253
    Par défaut
    En faisant un clic droit sur le bouton > Proprietes

    Tu as la possibilite de modifier le texte, la couleur, la police, etc.
    Cycle de vie d'un bon programme :
    1/ ça fonctionne 2/ ça s'optimise 3/ ça se refactorise

    Pas de question technique par MP, je ne réponds pas

    Mes ouvrages :
    Apprendre à programmer avec Access 2016, Access 2019 et 2021

    Apprendre à programmer avec VBA Excel
    Prise en main de Dynamics 365 Business Central

    Pensez à consulter la FAQ Excel et la FAQ Access

    Derniers tutos
    Excel et les paramètres régionaux
    Les fichiers Excel binaires : xlsb,

    Autres tutos

  7. #7
    Candidat au Club
    Femme Profil pro
    Enseignant
    Inscrit en
    Août 2017
    Messages
    5
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Âge : 35
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Enseignant

    Informations forums :
    Inscription : Août 2017
    Messages : 5
    Points : 3
    Points
    3
    Par défaut
    Merci,

    J'ai en faite une autre question. J'ai enregistré mon fichier en .ppsm pour pouvoir le donner à mes élèves afin qu'ils ne puissent pas modifier le contenu du powerpoint. Cependant sur l'ordinateur avec lequel j'ai crée le powerpoint tout fonctionne bien, par contre sur un autre poste il est impossible de compléter les cases ou encore de vérifier les réponses. Auriez vous une idée pour régler le problème?

    2e chose peut-on effacer les réponses entrées après avoir appuyé sur le bouton?

  8. #8
    Rédacteur/Modérateur

    Avatar de Jean-Philippe André
    Homme Profil pro
    Développeur VBA/C#/VB.Net/Power Platform
    Inscrit en
    Juillet 2007
    Messages
    14 586
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 40
    Localisation : Canada

    Informations professionnelles :
    Activité : Développeur VBA/C#/VB.Net/Power Platform
    Secteur : Finance

    Informations forums :
    Inscription : Juillet 2007
    Messages : 14 586
    Points : 34 253
    Points
    34 253
    Par défaut
    Pour effacer les donnees, il faut passer par exemple par
    Pour ta premiere question, de quelle version disposes les personnes ?
    Cycle de vie d'un bon programme :
    1/ ça fonctionne 2/ ça s'optimise 3/ ça se refactorise

    Pas de question technique par MP, je ne réponds pas

    Mes ouvrages :
    Apprendre à programmer avec Access 2016, Access 2019 et 2021

    Apprendre à programmer avec VBA Excel
    Prise en main de Dynamics 365 Business Central

    Pensez à consulter la FAQ Excel et la FAQ Access

    Derniers tutos
    Excel et les paramètres régionaux
    Les fichiers Excel binaires : xlsb,

    Autres tutos

  9. #9
    Candidat au Club
    Femme Profil pro
    Enseignant
    Inscrit en
    Août 2017
    Messages
    5
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Âge : 35
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Enseignant

    Informations forums :
    Inscription : Août 2017
    Messages : 5
    Points : 3
    Points
    3
    Par défaut
    Alors j'ai testé sous seven en ouvrant avec pp 2010 la version .ppms qui ne fonctionne pas par contre la version .potm fonctionne.

    Pour le code:
    Je doit l'insérer après le bouton avec un TextBox_change() ?

  10. #10
    Rédacteur/Modérateur

    Avatar de Jean-Philippe André
    Homme Profil pro
    Développeur VBA/C#/VB.Net/Power Platform
    Inscrit en
    Juillet 2007
    Messages
    14 586
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 40
    Localisation : Canada

    Informations professionnelles :
    Activité : Développeur VBA/C#/VB.Net/Power Platform
    Secteur : Finance

    Informations forums :
    Inscription : Juillet 2007
    Messages : 14 586
    Points : 34 253
    Points
    34 253
    Par défaut
    Tu dois l'inserer lorsque tu passes a la slide suivante par exemple =]
    Cycle de vie d'un bon programme :
    1/ ça fonctionne 2/ ça s'optimise 3/ ça se refactorise

    Pas de question technique par MP, je ne réponds pas

    Mes ouvrages :
    Apprendre à programmer avec Access 2016, Access 2019 et 2021

    Apprendre à programmer avec VBA Excel
    Prise en main de Dynamics 365 Business Central

    Pensez à consulter la FAQ Excel et la FAQ Access

    Derniers tutos
    Excel et les paramètres régionaux
    Les fichiers Excel binaires : xlsb,

    Autres tutos

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

Discussions similaires

  1. Figer les réponses d'un questionnaire
    Par Castor BZH dans le forum Débuter
    Réponses: 2
    Dernier message: 05/06/2011, 12h55
  2. Réponses: 1
    Dernier message: 28/10/2010, 13h09
  3. Réponses: 3
    Dernier message: 18/07/2008, 01h43
  4. Questionnaire à réponses ouvertes avec PowerPoint
    Par kalywake dans le forum VBA PowerPoint
    Réponses: 1
    Dernier message: 19/08/2007, 10h36
  5. Réponses: 1
    Dernier message: 26/11/2006, 01h46

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