Discussion :

[JuJuK]

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 :

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

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

[JuJuK]

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 :

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

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

[AlainTech]

Bonjour,

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