J'ai un soucis encore pour mettre les données d'aprés un userform dans les champs correspondants, pour illustration
Merci!
Regarde la pièce jointe Satisfaction.zip
Merci!
Regarde la pièce jointe Satisfaction.zip
Private Sub CommandButton1_Click()
Feuil1.Activate
[COLOR="Blue"][B]derligne = Range("A65535").End(xlUp).Row + 1
Range("A" & derligne).Select[/B][/COLOR]
ActiveCell.Offset(0, 0).Value = ComboBox1.List(ComboBox1.ListIndex)
If OptionButton1 Then
ActiveCell.Offset(0, 1).Value = "Employé"
ElseIf OptionButton2 Then
ActiveCell.Offset(0, 1).Value = "Maîtrise"