Case a cocher

Bonjour,

J'essaie de créer une fonction qui me permet de soustraire une heure à une autre lorsque je coche la case.

Or après avoir rentré ce programme, il me dit : Erreur d’exécution '13': incompatibilité de type

Le "programme" que j'ai fait est le suivant :

Sub Caseàcocher32_Cliquer()
    Cells(8, 3) = Cells(8, 3) - Time(1, 30, 0)
    Cells(8, 3).NumberFormat = "dd/mm hh:mm"
End Sub

Que dois-je faire?

Merci d'avance.

Bonjour,

Compte tenu de ton explication ... je suppose que tu utilises un contrôle ActiveX (checkBox) ...

Private Sub CheckBox1_Click()
    Range("C8") = Evaluate("=C8-TIME(1,30,0)")
End Sub

En espèrant que cela t'aide

Ca ira bien.

Merci

Merci pour tes remericements

Rechercher des sujets similaires à "case cocher"