XL 2016 erreur 13

jerome313131 · 21 Juillet 2020

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 · 21 Juillet 2020

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

VB:

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

danielco · 21 Juillet 2020

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 · 21 Juillet 2020

danielco à dit:
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 · 21 Juillet 2020

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 · 21 Juillet 2020

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

VB:

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 · 21 Juillet 2020

Dranreb à dit:
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 · 21 Juillet 2020

jerome313131 à dit:
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

XL 2016 erreur 13

jerome313131

XLDnaute Nouveau

danielco

danielco

XLDnaute Accro

jerome313131

XLDnaute Nouveau

Dranreb

XLDnaute Barbatruc

danielco

XLDnaute Accro

jerome313131

XLDnaute Nouveau

jerome313131

XLDnaute Nouveau

Discussions similaires