Checkbox et combobox

bonjour
alors voila j'ai un problème que je n'arrive pas régler depuis quelques jours
grâce à une macro j'ai un certain nombre de checkbox créées dynamiquement grâce a OLEObject, chaque checkbox est associée à une combobox que j'initialise sur visible = false mon but est donc d'afficher la combobox qd ma checkbox est cochée j'ai essayé de plusieurs façon mais je n'arrive pas à obtenir le résultat voulu si quelqu'un peut m'aider...(je n'utilise pas de userform)
merci

ps : je travaille sous excel 2007 mais j enregistre en excel 2003


voila un bout de mon code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

For i = 7 To total_ligne_tcd   With ActiveSheet.Range("G" & i) Set c = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CheckBox.1", Left:=.Left, Top:=.Top, Width:=.Width, Height:=.Height) c.Name = "CheckBox_" & i End With   With ActiveSheet.Range("H" & i) Set d = ActiveSheet.OLEObjects.Add(ClassType:="Forms.ComboBox.1", Left:=.Left, Top:=.Top, Width:=.Width, Height:=.Height) d.Name = "ComboBox_" & i d.Visible = False   End With Next

---

alors en gros je fais un tableau croisé dynamique avec les champs souhaités ensuite je créé des checkbox et des combobox en fonction du nombre de lignes que contient mon tcd et le but est que les combobox ne s affichent qu'une fois que leur checkbox respectives soient cochées afin de récupérer certaines info du tcd (j'espère que c'est assez clair ) j'ai essayé de faire comme ca :

Code:

---

1 2 3 4 5

For i = 7 To total_ligne_tcd If ActiveSheet.OLEObjects("CheckBox_" & i).Object.Value = True Then ActiveSheet.OLEObjects("ComboBox_" & i).Object.Visible = True End If Next

---

mais ça donne rien

merci d'avance

Bonjour,

Ton classeur "macro" sans le classeur "données" ne nous aide pas beaucoup.