récupérer la valeur d'une CheckBox

Bonjour,

j'ai un petit problème qui ne devrait pas nécessiter beaucoup de temps :

j'ai un fichier pps dans lequel sur un slide j'ai mis des CheckBox que l'utilisateur peut cocher, ensuite j'ai une macro qui importe toutes mes valeurs de mes zones de textes dans un fichier excel.

et j'aimerai aussi récupéré les valeurs de mes CheckBox.

alors j'ai déjà trouvé pas mal de code pour faire ca:

Code:

---

xlApp.Sheets(1).Cells(74, 17) = Slides(10).CheckBox1.Value

---

mais il me sort un message d'erreur :

erreur de compilation:
Sub ou Fonction non définie

en me montrant "Slides"

ensuite j'ai essayé:

Code:

---

1 2 3 4

Dim objsld10 As Slide Set objsld1 0= ActivePresentation.Slides(10)   xlApp.Sheets(1).Cells(74, 17) = objsld10.CheckBox1.Value

---

mais dans ce cas j'ai le message d'erreur suivant:

erreur de compilation:
Membre de méthode ou de données introuvable

en me montrant: ".CheckBox1"

je ne sais plus quoi modifier pour que ca marche ... HELP!...


merci

Yves

Bonjour,

maintenant j'arrive a récupérer la valeur d'une checkbox mais j'ai encore un gros pb:

l'utilisateur fait plusieur choix qui vont suprimer ou modifier l'ordre des slides, quand il arrive au slide numero 5, il peut cocher plusieurs checkbox dont je voudrais récupérer les valeurs dans la macro finale.

le pb c'est que ce slide N°5 n'a pas toujours le meme nom, il peut etre "slide1245" comme "slide1246", "slide1247" ou encore "slide1248"... tout ce que je sais c'est que ce slide se trouve en cinquième position à ce moment du diaporama.

je sais que pour récuperer la valeur d'une checkbox (dans le slide "slide1245") il faut cette ligne de code:

Code:

---

Slide1245.CheckBox4.Value

---

mon pb est donc de trouver le nom du slide qui est en cinquième position et de l'utiliser dans la ligne de code précédente (à la place de "slide1245")

alors j'ai essayé le code suivant

Code:

---

1 2 3 4 5 6

Dim SlideName as variant SlideName = ActivePresentation.Slides(5).Name   Msgbox SlideName   SlideName.CheckBox4.Value

---

mais ca ne marche pas, pourtant Msgbox SlideName me redonne bien le nom du slide.

ensuite j'ai essayé de changer le nom du slide N°5:

Code:

---

1 2 3

ActivePresentation.Slides(5).Name = SlidePrinc   SlidePrinc.CheckBox4.Value

---

mais pareil ca ne marche pas.

est ce que quelqu'un peut m'eclairer???

Merci

Yves

Bonsoir,

Cela ne marche pas car dans les deux cas essayés : SlideName ou SlidePrinc sont des chaînes de caractères.

Pour que cela fonctionne dans XX.CheckBox4.Value, XX doit être une objet de type slide.

PPZ

As tu essayé :

Code:

---

ActivePresentation.Slides(i_slide).CheckBox4.Value

---

PPz

bonjour,

Code:

---

ActivePresentation.Slides(5).CheckBox1.Value

---

oui j'ai essayé cette méthode directement et j'ai le message d'erreur suivant:


Erreur de compilation:
Membre de méthode ou de données introuvable

en me montrant ".Checkbbox1"

et je ne comprend pas parceque normalement "ActivePresentation.Slides(5)" est du type slide...

Yves

Peux tu déposer sur le site un exemple?
Merci

La seule piste trouvée est d'intercepter le changement d'état lors du click :

Code:

---

1 2 3 4

Private Sub CheckBox1_Click() Value1 = CheckBox1.Value MsgBox Value1 End Sub

---

et de mémoriser les états dans des variables globales

PPz

bonjour,

comme je devais absolument boucler mon fichier pour aujorud'hui je n'ai pas u le temps de tester ta méthode, j'ai trouver un moyen de resoudre mon problème en réoganisant mes slides.

merci quand meme

Yves

Bonsoir,

Merci d'ajouter résolu au fil de discussion.

PPz