Discussion :

[ThSPB]

Bonjour,

J'essaye de créer un petit fichier PPT pédagogique, un questionnaire en l'occurrence.
Voici mon problème ;
Sur la diapo n° 02, il y a 3 boutons, en cliquant sur l'un d'entre eux je souhaite envoyer la valeur 1 dans une case (correspondance B2 sur XLS) sur un tableau qui se trouve dans la diapo n° 20. En cliquant sur les deux autres boutons c'est la valeur 0 qui s'inscrit dans la case décrite.
Est-ce possible ? Et si oui pouvez vous m'aider ?
Merci

[Invité]

Bonjour

C'est tout à fait possible, cependant il manque des informations.

Quelle est ta version de PowerPoint ?
Dans cette 20 ème diapo est-ce qu'il y a un seul tableau ?

Philippe

[Invité]

En complément, tes boutons sont des boutons de commandes ou des formes ?

[ThSPB]

Je travaille sous Windows XP et en version PPT 2003.
Le tableau dans la diapo n° 20 est le seul de la présentation.
Les boutons sont des boutons de commande, je pensais lancer la macro en faisant le clic.
Merci de la rapidité avec laquelle vous m'avez répondu

[Invité]

Ok

Voilà un exemple.

Une routine à mettre dans un module :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Public Sub DonneeDansCellule(intVal As Integer)
     '---------------------------------------------------------------------------------------
     ' Procedure      : DonneeDansCellule
     ' Auteur         : Philippe JOCHMANS - http://starec.developpez.com
     ' Date           : 28/01/2010
     ' Commentaires   : Cette routine va mettre la donnée dans la cellule
     '---------------------------------------------------------------------------------------
 
    ' déclaration des variables
    Dim objSld As Slide
    Dim objShp As Shape
 
    ' affectation
    Set objSld = ActivePresentation.Slides(20)
 
    For Each objShp In objSld.Shapes
        If objShp.Type = msoTable Then
            objShp.Table.Cell(2, 2).Shape.TextFrame.TextRange.Text = intVal
        End If
    Next objShp
End Sub

A appeler sur chaque bouton de commande de la façon suivante :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub CommandButton1_Click()
    Call DonneeDansCellule(1)
End Sub
 
Private Sub CommandButton2_Click()
    Call DonneeDansCellule(0)
End Sub
 
Private Sub CommandButton3_Click()
    Call DonneeDansCellule(0)
End Sub

Tu passes en paramètre la valeur que tu veux.

Cette routine vite faite prend la cellule 2,2 (Cell(2, 2)), car c'est ton cas, tu peux l'améliorer en prenant en paramètre la ligne et la colonne dans ta routine.

Philippe

[ThSPB]

Je viens de parcourir la réponse. Je ne pourrai tester que demain après midi.
Je suis vraiment impressionné de la vitesse et de la qualité de la réponse.
Je vous tiens au courant
Merci