Discussion :

[Boulettederiz]

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.

[Jean-Philippe André]

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 ?

[Boulettederiz]

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.

[Jean-Philippe André]

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.

[Boulettederiz]

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?

[Jean-Philippe André]

En faisant un clic droit sur le bouton > Proprietes

Tu as la possibilite de modifier le texte, la couleur, la police, etc.