Bonjour, bonsoir,

Je vous contact ici car apres plusieurs recherches je n'arrive pas a trouver exactement comment resoudre mon probleme. Un probleme qui me paraissait simple au depart mais au final qui m'a bouffe toute mon apres midi.

j'ai un imput box qui me permet je renseigner une date.
Mon imputbox arrive a gerer losqu'on rentre une valeur, lorsqu'on appuie sur annuler mais pas lorqu'on appuie ok sans entrer de valeur. J'ai l'erreur d'execution '13' : Incompabilite de type qui s'affiche.

Voici mon code :


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Dim dat As Date
 
For k = 4 To Sheets("Planning").Range("U65536").End(xlUp).Row
    If Target.Column = 21 And Target.Row = k Then
       myvalk = Cells(k, 21)
       For Each cellulek In Target.Cells
            If cellulek.Value = "Yes" Then
                dat = Application.InputBox("Please enter the expiry date of your HSE document", , "DD/MM/YYYY")
                        If IsEmpty(dat) Then
                            Cells(k, 21).Value = "No"
                        Exit Sub
                        ElseIf dat = False Then
                            Cells(k, 21).Value = "No"
                        Else
                            Cells(k, 22).Value = dat
                        End If
            End If
        Next
    End If
 Next
End Sub
Quoi que je fasse ca me met une erreur a la ligne dat = Application.InputBox("Please enter the expiry date of your HSE document", , "DD/MM/YYYY")