etat d'un checkbox dans un userform

  • Initiateur de la discussion Initiateur de la discussion satwaf
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

satwaf

XLDnaute Occasionnel
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
 
Re : etat d'un checkbox dans un userform

Bonsoir,

Code:
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 :
Code:
Private Sub CheckBox1_Click()
Sheets("graph_béton").Range("F36").Value = CheckBox1.Value
End Sub

bonne fin d'après midi
@+
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour