Discussion :

[HESPERA]

Bonjour,

Mes connaissances en VBA sont nulles. J'ai trouvé un exemple de programmation que j'ai tenté de transcrire.
Mais, il était demandé de de modifier la valeur True en 1 et False en 0.
Je n'y suis pas arrivé.
Et sur la dernière slide, les addisitions ne se font pas.
J'aurais aimé aussi totaliser des points en affectant 0 à Nul jusqu'à 5 à Excellent.
Pouvez vous l'aider?

D'avance merci,

HESPERA

[Invité]

Bonjour

Un simple petit problème de syntaxe :

A la place de cela

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Slide5.TextBox1 = Text = CStr(Rep1)
Slide5.TextBox2 = Text = CStr(Rep2)
Slide5.TextBox3 = Text = CStr(Rep3)
Slide5.TextBox4 = Text = CStr(Rep4)
Slide5.TextBox5 = Text = CStr(Rep5)

Mettre cela

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Slide5.TextBox1.Text = CStr(Rep1)
Slide5.TextBox2.Text = CStr(Rep2)
Slide5.TextBox3.Text = CStr(Rep3)
Slide5.TextBox4.Text = CStr(Rep4)
Slide5.TextBox5.Text = CStr(Rep5)

Merci d'éviter de compresser les fichiers au format Rar, beaucoup de membre n'ont pas d'outils pour ce type de fichiers.

Philippe

[HESPERA]

Merci de votre précédente réponse.

J'avais (presque) réussi, grâce à votre réponse, à faire fonctionner mon programme. Pendant une dizaine d'essai, cela marchait bien.

Hier soir, j'ai voulu les reprendre (j'avais fait des versions numérotées à chaque changement). Patatras,le boulon validation, en mode Diaporama, ne renvoie pas à la diapo suivante? Pouvez vous l'aider?

J'ai également essayé d'améliorer en faisant un total des points. Pouvez vous contrôler et rectifier le texte?


Merci d'avance

[Invité]

Re

J'ai pas le temps aujourd'hui, mais :

Pouvez vous l'aider?

C'est pour toi ou quelqu'un d'autres ? c'est un exercice ?

Philippe

[HESPERA]

C'est pour faire des tests d'enchères pourmon association de bridge.
APL

[HESPERA]

En essayant mon diapo chez un ami, je me suis rendu compte que cela venait du degré de sécurité des macros; je ne vois pas ce qui l'a modifié entre mes différents essais.

J'ai réussi à faire le total et la moyenne obtenu.


Merci pour votre aide.