VBA en erreur sur #N/A

Bonjour

J'ai une VBA qui fonctionne selon des dates, or parfois il n'y a pas de date dans la colonne mais "Néant", dans ce cas, la vba plante.

Comment faire pour passer les cellules en "Néant"

For i = 4 To w1.Range("AE" & Rows.Count).End(xlUp).Row

ladate = w1.Range("AE" & i)

If ladate <> "" Then

p = D - ladate

If p >= 0 Then Liste = Liste & vbLf & "L'abonnement de bus pour " & Cells(i, "C").Value & " a expiré depuis le " & Cells(i, "AE")

End If

Next i

Bonjour Theyoshi, bonjour le forum,

Peut-être comme ça :

For I = 4 To w1.Range("AE" & Rows.Count).End(xlUp).Row
    Select Case w1.Cells(I, "AE").Value
        Case "Néant"
            'ici le code prévu à cet effet ou rien
        Case Else
            ladate = CDate(w1.Cells(I, "AE")).Value
            If ladate <> "" Then
                p = D - ladate
                If p >= 0 Then Liste = Liste & vbLf & "L'abonnement de bus pour " & Cells(I, "C").Value & " a expiré depuis le " & Cells(I, "AE")
            End If
    End Select
Next I

Merci de ton aide.

Il y a une erreur de syntaxe pour ladate = Cdate(w&.Cells(i, "AE")).Value

Je l'ai adapté ainsi

For i = 4 To w1.Range("AE" & Rows.Count).End(xlUp).Row

Select Case w1.Cells(i, "AE").Value

Case "Néant"

'ici le code prévu à cet effet ou rien

Case Else

ladate = w1.Range("AE" & i)

If ladate <> "" Then

p = D - ladate

If p >= 0 Then Liste = Liste & vbLf & "L'abonnement de bus pour " & Cells(i, "C").Value & " a expiré depuis le " & Cells(i, "AE")

End If

End Select

Next i

Il n'y a plus d'erreur