Petit problème de VBA erreur 13

Bonjour à tous,

je sollicite une nouvelle fois votre aide.

En effet, suite a des échanges avec certains d'entre vous, nous avons réussi à faire une petite VBA pour un rappel en fonction d'une date mis dans une colonne excel. ( cliquer sur "liste des appels" et il me met erreur 13).

Si je rempli une ligne sans mettre de date dans la colonne rappel, alors erreur 13. Je pense que la cause est liée au fait que certain cellule soit vide mais je ne sais comment contourner ce problème.

Merci pour votre aide

Si on supprime la ligne où il n'y a pas de date de rappel, la macro fonctionne très bien.

Encore merci pour votre aide.

Bonjour,

Le bogue est causé par une cellule vide (G7), on ajoute donc une condition pour exclure les cellules vides. tData(x, 5) <> ""

Sub rappel()
'
' rappel Macro
'
Dim tData, sData$

With Worksheets("BASE DE DONNEES")
    tData = .Range("C5:G" & .Range("C" & Rows.Count).End(xlUp).Row).Value
End With
For x = 1 To UBound(tData, 1)
    If tData(x, 5) <> "" And DateDiff("d", Date, CDate(tData(x, 5))) <= 5 Then sData = sData & tData(x, 1) & " le " & tData(x, 5) & Chr(10)
Next
If sData <> "" Then MsgBox "Clients à relancer" & Chr(10) & Chr(10) & sData

End Sub

ric

Bonjour Ric,

merci pour ta réponse mais j'ai toujours la même erreur.

j'ai remis le fichier avec la macro corrigée.

Merci par avance de jeter un petit coup d’œil.

Bonjour,

L'erreur suivante est G8 qui est du texte et non une date.

F2 suivi de ENTER corrige la cellule.

ric

Bonjour,

Si on fait F2 suivi de ENTER sur les cellules de G7 à G9 ... on a plus d'erreur.

Ce doit être au moment de l'écriture que le format date ne s'applique pas.

ric

Bonjour,

Je regarde pour corriger cela dans le formulaire.

ric

salut ric.

effectivement impossible,

Il me mets toujours la même erreur et même en changeant le format de cellule.

Bonjour,

J'ai corrigé plusieurs points dans le formulaire ... lesquels posaient problème.

Voir si ça convient ...

ric

bonsoir ric,

un grand merci

Nickel.

ric