Re : Saisir des données par userform
Bonjour
L'application se ferme quand tu clic sur quitter (avec sauvegarde)
Pour réinitialiser: a la fin de la macro Private Sub CommandButton2_Click() 'valider
mettre (avant le end sub):
ComboBox1.ListIndex = -1
For Each c In Controls
If Left(c.Name, 12) = "OptionButton" Then
If c.Value = True Then c.Value = False
End If
Next
Pour le 0 ajoute un bouton dans les frame...
dans propriété de ces boutons: caption=0
Reléve le nom du bouton (certainement: OptionButton21 et OptionButton22)
et avant la modif ci dessus, ajouter
If OptionButton21.Value = True Then Sheets("pénibilité").Cells(lig, col).Value = 0 (si OptionButton21 est dans la frame pénibilité)
If OptionButton22.Value = True Then Sheets("Bien être").Cells(lig, col).Value = 0
A+ François