Probleme avec Checkboxen dans EXcel VBA

Boinsoir,

pour le moment je fais un projet avec Excel VBA ,et j ai une question a vous poser.

j ai une Feuille 1 ou il ya un Label et un Checkbox a coté .
dans la 2 feuille j ai un userform ou il ya un button ,le Button s apelle graphique.

voila moi je veux quand je clique sur le button graphique s´affiche un True dans le Checkbox automatiquement dans la premiere feuille .

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub Btn_6_Grafik_Aufbau_GrafikEinf_Click() 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 aide

ça dépend du type de CheckBox

S'il s'agit d'un CheckBox de la boîte d'outils Contrôles:

Code:

---

Feuil1.CheckBox1.Value = True

---

S'il s'agit d'un CheckBox de la barre d'outils Formulaires, celui-ci est généralement lié à une cellule, la D10, par exemple. Donc:

Code:

---

Feuil1.Range("D10").Value = True

---

Bonjour,

merci pour ta reponse, mais j ai toujours le meme probleme le checkbox n es pas encore cocher qund je clique sur le button Graphique .je vais essayer de reexpliquer .parceque ca marche toujours pas.

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 :Plan , 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:

---

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

---

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 ?

merci de votre reponse.

Je ne vois pas pourquoi ça ne marche pas...

En passant, pas la peine de m'écrire sur mon MP. T'auras toujours plus de réponses sur le forum.