Case a cocher formulaire
Bonjour a tous !!
voici mon probleme:
j'ai creer des cases a cocher auquelle j'ai associé le codes suivant:
Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
[D3] = "Oui"
Else
[D3] = "Non"
End If
End Sub
Quand je coche la case "oui" apparait bien , donc pas de probleme et quand je la decoche "non"apparait lui aussi mais je ne sais pas comment faire pour que "non" apparaisse dans la cellule quand je ferme mon formulaire , pour résumer "Non" n'apparait pas en D3 a la fermeture de mon formulaire malgré que la case a cocher ne soit pas cochée.
j'espere avoir ete claire et merci pour vos réponses , mon ami google ne peut plus rien pour moi!!!!
Bonjour Greg954,
Pourrais-tu joindre un extrait de ton fichier ?
Merci
Voici une partie du code inserer avec le formulaire comprenend la cases a cocher et les boutons " valider" et "annuler"
Private Sub CheckBox7_Click()
If CheckBox7.Value = True Then
[J3] = "Oui"
Else
[J3] = "Non"
End If
End Sub
Private Sub ComboBox2_Change()
End Sub
Private Sub CommandButton1_Click()
UserForm1.Hide
End Sub
Private Sub CommandButton2_Click()
UserForm1.Hide
Worksheets("Feuil1").Rows(3).Select
Selection.Delete
End Sub
Voici la commande pour ouvrir le formulaire dans excel
Worksheets("feuil1").Rows(3).Select
Selection.Insert
With UserForm1
.ComboBox1.Text = ""
.ComboBox2.Text = ""
.TextBox1.Text = ""
.TextBox2.Text = ""
.CheckBox1.Value = False
.CheckBox2.Value = False
.CheckBox3.Value = False
.CheckBox4.Value = False
.CheckBox5.Value = False
.CheckBox6.Value = False
.CheckBox7.Value = False
End With
UserForm1.Show
End Sub
Merci si tu peux faire quelque chose!!
Bonsoir,
Avec le code fourni, je n'arrive pas à voir ce qu'il se passe.
Pourrais-tu constituer un fichier exemple avec le code existant et sans données confidentielles ?
Cela sera plus facile pour trouver une solution.
Merci
j'ai trouver , j'ai mis ca dans le code du boutton valider!!! ca marche
y doit y avoir beaucoup plus simple mais je debute
If CheckBox1.Value = False Then
[D3] = "Non"
End If
If CheckBox2.Value = False Then
[E3] = "Non"
End If
End If
UserForm1.Hide