Erreur d'exécution "13"

Bonjour,
j'ai un probleme ( Erreur d'exécution « 13 »: Incompatibilité de type) lors de l'exécution de ma commande.
Je sais pas pourquoi !!

je suis débutant !

Sub testlogique()

For i = 2 To 366
       If Cells(1, i) = [Aujourd’hui()] And Cells(8, i) = [<-5] Then
       MsgBox " sur entrainement "
 End If
   Exit For
   Next i
   
End Sub


Configuration: Macintosh / Safari 14.1.1

4 réponses

  1. Contributeur
    bonjour,
    A quelle ligne de code obtiens-tu ce message d'erreur?
    Que souhaites-tu obtenir en écrivant ce code? Difficile de faire des suggestions sans comprendre cela.
    1. Elle est pas affiché sur une ligne d’erreur en particulier.

      Je cherche à afficher un message d’alerte “sur entraînement” quand la date d’aujourd’hui affiche un résultat de -5 dans la Colonne 8.
      1. Contributeur
        Es-tu certain qu'aucune ligne de code n'est surlignée après affichage de l'erreur?
        Que contient précisément la colonne 8? Du texte?
        Et la colonne 1, elle contient quoi?
    2. je vous confirme, il a aucune ligne de code surlignée.
      alors excuse-moi c'est pas des colonne mais des lignes.
      La ligne 8 contient une formule
      et la ligne 1 contient des dates
      1. Contributeur
        quelle formule se trouve en ligne 8?
        je ne comprends pas ta phrase "la date d’aujourd’hui affiche ..."
        peux-tu donner des exemples de ce que tu veux faire?
    3. La formule en Ligne 8 c'est "=AC6-AC5"

      Si la date corresponds a c'elle du jour et que la valeur enregistré est de -5 alors message d'alerte.

      alors, globalement je voudrais que lorsque on rentre une nouvelle donnée quelle soit analysé. Si la valeur est négative et qu'elle est a la date d'aujourd'hui. Alors je veux un message d'alerte qui me préviens.

      c'est pour un suivi de la fatuige d'athlète (RPE).
      1. Contributeur
        alors peut-être:
        If Cells(1, i) = Date And Cells(8, i) < 0 Then