etat d'un checkbox dans un userform

[satwaf]

Bonjour à tous

je viens de créer un userform qui contient un graphique avec 6 series, la première serie sera toujours affichée, quant au autres series elles dependent des cases à cocher qui sont au nombre de 5, lorsque je clique sur une case a cocher le graph se met a jour dans le userform, seulement j'aimerai garder la position de la case a cocher a la fermeture du userform.
et a nouveau lorsuqe je lance la userform, les cases a cocher affichent leurs états, mais sans lancer leurs procédures

j'ai donc une macro qui contient ce code mais je pense qu'il manque quelque chose

Private Sub UserForm_Initialize()
Application.ScreenUpdating = False
CheckBox1.Value = Sheets("graph_béton").Range("F36").Value
CheckBox2.Value = Sheets("graph_béton").Range("F37").Value
CheckBox3.Value = Sheets("graph_béton").Range("F38").Value
CheckBox4.Value = Sheets("graph_béton").Range("F39").Value
CheckBox5.Value = Sheets("graph_béton").Range("F40").Value
NomImage = ThisWorkbook.Path & Application.PathSeparator & "temp.gif"
LeGraph.Export Filename:=NomImage, FilterName:="GIF"
UserForm6.Image1.Picture = LoadPicture(NomImage)
End Sub

 

[Pierrot93]

Re : etat d'un checkbox dans un userform

Bonsoir,

CheckBox1.Value = Sheets("graph_béton").Range("F36").Value
CheckBox2.Value = Sheets("graph_béton").Range("F37").Value
CheckBox3.Value = Sheets("graph_béton").Range("F38").Value
CheckBox4.Value = Sheets("graph_béton").Range("F39").Value
CheckBox5.Value = Sheets("graph_béton").Range("F40").Value

ce code à priori initialise tes "checkbox" à partir du contenu de tes cellules.... il y a peut être lieu de modifier la valeur de ta cellule en fonction de celle de la checkbox....

si c'est le cas, à placer dans le module de l'usf :

Private Sub CheckBox1_Click()
Sheets("graph_béton").Range("F36").Value = CheckBox1.Value
End Sub

bonne fin d'après midi
@+

 

[satwaf]

Re : etat d'un checkbox dans un userform

Bonjour, une nouvelle semaine qui commence,
Merci pierrot93 pour ta réponse, mais j'avais deja placé le code dans l'usf, du fait lorsuqe je lance mon userform, il affiche l'etat de mon checkbox; mais en meme temps il lance le code correspondant, du coup les valeurs changent

Private Sub CheckBox1_Click()
'Application.ScreenUpdating = False
If CheckBox1 = True Then
Sheets("graph_béton").Range("D27:BJ27").Copy
Sheets("graph_béton").Range("D28").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Else
Sheets("graph_béton").Range("D28:BJ28").ClearContents

End If
Sheets("graph_béton").Range("f36").Value = CheckBox1.Value
NomImage = ThisWorkbook.Path & Application.PathSeparator & "temp.gif"
LeGraph.Export Filename:=NomImage, FilterName:="GIF"
UserForm6.Image1.Picture = LoadPicture(NomImage)
End Sub