correction code VBA

Modeste geedee à dit:

Bonsour®
si les options sont exclusives... ???
alors il ne faut pas utiliser des CheckButton(case à cocher) mais des OptionButton(boutonRadio)

Cliquez pour agrandir...

Robert à dit:

Bonjour Guillaume, Modeste, bonjour le forum,

Ton code devrait fonctionner même s'il contient beaucoup de lignes superflues mais sans le fichier impossible de te dire ce qui ne va pas...
Ton code simplifié :

Code:

Private Sub OK_Click()
With Sheets("employees")
    .Range("A65536").End(xlUp).Offset(1, 0).Value = FIRSTNAME.Value
    .Range("A65536").End(xlUp).Offset(0, 1).Value = TOTO.Value
    .Range("A65536").End(xlUp).Offset(0, 5).Value = PHONE.Value
    .Range("A65536").End(xlUp).Offset(0, 2).Value = IDNUMB.Value
    .Range("A65536").End(xlUp).Offset(0, 6).Value = Position.Value
    .Range("A65536").End(xlUp).Offset(0, 4).Value = CITY.Value
    .Range("A65536").End(xlUp).Offset(0, 3).Value = ADRESS.Value
    If FULLTIME.Value = True Then .Range("A65536").End(xlUp).Offset(0, 7).Value = "FULL TIME"
    If PARTTIME.Value = True Then .Range("A65536").End(xlUp).Offset(0, 7).Value = "PART TIME"
    If CASUAL.Value = True Then .Range("A65536").End(xlUp).Offset(0, 7).Value = "CASUAL"
End With
End Sub

[Édition]
rectification, ton code était erroné... Soit il fallait mettre les End If après chaque condition If. Soit il fallait utiliser un permier If suivit de deux ElseIf et un dernier End If pour finir... Le code simplifié que je te propose devrait fonctionner sans problème...

Cliquez pour agrandir...