Erreur d'exécution "13" Fermé

Question

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

yg_be · Answer

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.

Flav · Answer

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.

Flav · Answer

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

Flav · Answer

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).

Erreur d'exécution "13"

4 réponses

Discussions similaires