Bonjour,
Je ne te donnerai pas la clef, ne faisant du VBA que par l'enregistreur de macros, mais peut être bien une piste :
IF
THEN
ELSE
Mais bon te faut aussi la suite...
comme dans ce bout de code :
Citation:
For Each c In plage
If c <> "" Then
On Error Resume Next
If k = 8 Then
data.Add c, CStr(c)
Else
data.Add Year(CDate(c)), CStr(Year(CDate(c)))
End If
|