Erreur d'exécution "13"

Flav -  
yg_be Messages postés 23437 Date d'inscription   Statut Contributeur Dernière intervention   -
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. yg_be Messages postés 23437 Date d'inscription   Statut Contributeur Dernière intervention   Ambassadeur 1 588
     
    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.
    0
  2. Flav
     
    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.
    0
    1. yg_be Messages postés 23437 Date d'inscription   Statut Contributeur Dernière intervention   1 588
       
      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?
      0
  3. Flav
     
    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
    0
    1. yg_be Messages postés 23437 Date d'inscription   Statut Contributeur Dernière intervention   1 588
       
      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?
      0
  4. Flav
     
    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).
    0
    1. yg_be Messages postés 23437 Date d'inscription   Statut Contributeur Dernière intervention   1 588
       
      alors peut-être:
      If Cells(1, i) = Date And Cells(8, i) < 0 Then
      0