Bonjour GUIGUEFR et
Le souci se situe dans l'utilisation de la fonction "Proprer" apparemment et dans l'utilisation de IF THEN ELSE ENDIF
Le nombre d'arguments non valide est pour Proper, tu ne peux pas le faire ainsi :
If Application.Proper(CheckBox_A_BODY = False) Then
Eventuellement
If Application.Proper(CheckBox_A_BODY) = False Then
Mais le codage normal est
If Me.CheckBox_A_BODY.Value = False Then
Tous les codes qui sont fait de la sorte, sont "faux"
f.Cells(ligne, 5) = "X"
If Me.CheckBox_A_BODY.Value = False Then
Else
f.Cells(ligne, 5) = ""
End If
Le respect du codage et de l'utilisation du test voudrait que ce soit comme ceci
If Me.CheckBox_A_BODY.Value = True Then
f.Cells(ligne, 5) = "X"
Else
f.Cells(ligne, 5) = ""
End If
@+