Bonjour,
J ai un petit problem :
voila j ai un userform qui s apelle contenu dans ce userform il ya le label Plan a cote de ce Label il ya un Checkbox .
Bon quand je clique sur ce Label lan , il me donne un autre UserForm ou il ya un button :Graphique. et quand je clique sur Graphique je peux ajouter une image.
bon ma question c est que je veux une fois que je clique sur ce Button Graphique , le CheckBox qui es a cote de Label Plan est automatiquement coché.
Alors voila mon probleme je crois il est tres simple mais malheureusement je trouve pas la solution .
je vous donne mon code, lors quand je clique sur ce button Graphique pour ajouter une image .alors il faut que j ajoute quelque chose pour le Checkbox sera coché.
Code :
A Propos le M00_Contenu est un UserForm ,la ligne qui es coloré en rouge et le code que j ai ajoute mais malheureusement ,j ai meme le probleme il n est pas encore coche.ou il le faut ajouter ou bien c est pas ca le code ?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11 Private Sub Btn_6_Grafik_Aufbau_GrafikEinf_Click() M00_Contenu.Che_0_auf.Value = True Dim file As Variant file = Application.GetOpenFilename("Alle Grafiktypen (*.*;*.*), *.*;*.*") If file = "" Or file = False Then Exit Sub End If Img_6_Aufbauplan.Picture = LoadPicture(file) Worksheets("schematic_diagram").aufbau.Picture = LoadPicture(file) End Sub
merci de votre reponse.
--------------------------------------------------------------------------------
Partager