XL 2016 erreur 13

[jerome313131]

Bonjour quand je lance ma macro j'ai une erreur code erreur d’exécution 13 incompatible de type
Pouvez vous m'aider merci

Sub relance()
Dim C As Range, olApp As Object, M As Object
Set olApp = CreateObject("Outlook.application")
For Each C In Range("A2", Cells(Rows.Count, 1).End(xlUp))
If IsDate(C.Offset(, 1)) And Date - C.Offset(, 1) > 5 Then
If C.Offset(, 1).Interior.ColorIndex = 6 Then
Set M = olApp.CreateItem(olMailItem)
With M
.Subject = "RELANCE commande " + C.Offset(, 4).Value
.Recipients.Add C.Offset(, 3).Value
.Body = " Bonjour, pouvez vous nous donner le délais de livraison concernant notre commande citée en objet . Cordialement Climax-sav Mr Charrier J."
.Display
End With
End If
End If
Next C
End Sub

 

[danielco]

Bonjour,

Quelle est la ligne en erreur ? (elle est surlignée en jaune quand tu cliques sur le bouton "Débogage" du message d'erreur).

Cordialement.

Daniel

 

[jerome313131]

Bonjour,

Quelle est la ligne en erreur ? (elle est surlignée en jaune quand tu cliques sur le bouton "Débogage" du message d'erreur).

Cordialement.

Daniel

Bonjour Daniel,
c'est sur cette ligne :
If IsDate(C.Offset(, 1)) And Date - C.Offset(, 1) > 5 Then

 

[Dranreb]

Bonjour.
Décomposez, parce que l'opérateur And ne marche pas comme le AndThen de certains autres Visual Basic: l'expression Date - C.Offset(, 1) > 5 est évaluée même si Not IsDate C.Offset(, 1)) et ensuite les deux expressions sont combinées.

 

[danielco]

C'est la valeur de la colonne B qui n'est pas une date. Comme l'indique @Dranreb :

Sub relance()
  Dim C As Range, olApp As Object, M As Object
  Set olApp = CreateObject("Outlook.application")
  For Each C In Range("A2", Cells(Rows.Count, 1).End(xlUp))
    If IsDate(C.Offset(, 1)) Then
      If Date - C.Offset(, 1) > 5 Then
        If C.Offset(, 1).Interior.ColorIndex = 6 Then
          Set M = olApp.CreateItem(olMailItem)
          With M
          .Subject = "RELANCE commande " + C.Offset(, 4).Value
            .Recipients.Add C.Offset(, 3).Value
            .Body = " Bonjour, pouvez vous nous donner le délais de livraison concernant notre commande citée en objet . Cordialement Climax-sav Mr Charrier J."
            .Display
          End With
        End If
      End If
    End If
  Next C
End Sub

(non testé)

Daniel

 

[jerome313131]

Bonjour.
Décomposez, parce que l'opérateur And ne marche pas comme le AndThen de certains autres Visual Basic: l'expression Date - C.Offset(, 1) > 5 est évaluée même si Not IsDate C.Offset(, 1)) et ensuite les deux expressions sont combinées.

merci peux tu me décomposer la formule car j' avoue ne pas être calé en programmation Merci

 

[jerome313131]

merci peux tu me décomposer la formule car j' avoue ne pas être calé en programmation Merci

Merci Daniel je n'avais pas vu ton post précédent