Bonjour à tous,

J'ai créée une macro qui permet, si la cellule dans la colonne T contient du texte, d'envoyer un mail aux personnes choisies.

Pour l'envoi de mail c'est bon mais la condition pour vérifier le contenu de la cellule ne fonctionne pas.
Il y a le message : Erreur d'exécution 13 : Incompatibilité de type

La ligne en gras est celle qui se présente en jaune suite au débogage.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
Sub SendEmail_TH()
'
' SendEmail Macro

'Set olApp = CreateObject("outlook.application")
Dim Msg As Variant
Dim Mot_clé1 As Variant
Dim Mot_clé2 As Variant
Dim Mot_clé3 As Variant
Dim Ecart As Variant

'mail
'Dim olApp As Outlook.Application
'Dim olMail As Outlook.MailItem
'Set olMail = olApp.CreateItem(olMailItem)


With Worksheets("44")
    For Each Mots_clés In .Range("T5:T" & .Range("D" & Rows.Count) & .Range("A" & Rows.Count).End(xlUp).Row)
    
Mot_clé1 = "*MANQUANT*"
Mot_clé2 = "*COMPLETER*"
Mot_clé3 = "*RENOUVELER*"

        If Range("T5").Value Like Mot_clé1 Or Mot_clé2 Or Mot_clé3 Then
        'Range("T5").Value Like "*MANQUANT*" Or "*RENOUVELER*" Or "*COMPLETER*" Then
        
        Msg = Msg & Cell.Offset(0, -19) & " - " & Cell.Offset(0, -16) & Chr(10) 'Chr(10) = saut de ligne
        MsgBox Msg
        
        Else
       
        MsgBox "ok"
        
        End If
                      
    Next Mots_clés
    
End With
        
    'With olMail
    
  '.To = Worksheets("Accueil").Range("N13").Value
  '.CC = Worksheets("Accueil").Range("N14").Value
 ' .Subject = "Ecart du 44 : TH et/ou TQ " & Format(Date - 1, "dd-mm-yyyy")
 ' .Body = Msg
  
 '  .Send
    

   'End With
   
End Sub
Merci à ceux qui pourront m'apporter leur aide