Application Goto - erreur d'exécution 13 - incompatibilité de type

Bonjour

Cousinhub m'a transmis ce code qui permet d'atteindre la date du jour dans la colonne D.

Application.Goto Cells(Application.Match(CLng(Date), Range("D:D"), 0), "D").Offset(, 1)

Lorsque la date ne figure pas dans la liste, la macro plante ce qui est logique.

Je voudrai juste savoir comment ajouter à cette macro un msgbox en cas de plantage, du style : "La date du jour ne figure pas !"

Par avance, merci de votre aide.

Bonjour,

il te suffit de la compter :
If Application.CountIf(Columns("D"), taDate) = 0 Then

    ' non trouvée
    ' ...
Else
    ' trouvée
    ' ...
End If

eric

Éric bonsoir

Merci pour ta réponse mais je suis novice et je ne sais pas comment faire.

J'ai placé ton code sous le mien..mais ça ne fonctionne pas malheureusement.

Peux-tu m'expliquer stp ?

merci

Tu ne connais même pas les tests ???
Ca ne s'improvise pas la programmation, il faut faire l'effort de lire un minimum si tu veux comprendre et progresser.

Comme apparemment tu recherches la date du jour, sinon il faudra adapter un peu :

    If Application.CountIf(Columns("D"), Date) = 0 Then
        ' non trouvé
        MsgBox Date & " non trouvé"
    Else
        ' trouvé
        Application.Goto Cells(Application.Match(CLng(Date), Range("D:D"), 0), "D").Offset(, 1)
    End If

eric

Bonjour,

Bonjour Eriiiic

Suite à ce fil, la méthode Find ne fonctionne pas dans son cas.

Marinekali, pour faire ton test, essaie ainsi :

If Not IsError(Application.Match(CLng(Date), Range("D:D"), 0)) Then
     Application.Goto Cells(Application.Match(CLng(Date), Range("D:D"), 0), "D").Offset(, 1)
Else
     MsgBox "Date non trouvée"
End If

Bonne journée

Bonjour,

je ne fais pas de .find, juste un simple comptage avec nb.si (countif)
eric

Zut,

Même pas bien lu, pas bien réveillé, ce matin...

Désolé

Merci Messieurs.

C'est top.