Bonjour à tous,

je suis débutant en VBA et je cherche à faire une recherche et mettre le résultat dans un commentaire

mon problème c'est qu'à la ligne 17 j'ai une erreur 2042.
Pourquoi?

merci pour votre aide.

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
Sub ajouterCommentaire() 'si il y a pas de commentaire, on en ajoute un
 
Dim wsAbs As Range
Dim ws As Worksheet
Dim Celcom As Variant
Dim i As Integer
Dim valrech As String
 
 
Set wsAbs = ThisWorkbook.Worksheets("Divers").Range("congés")
Set ws = ThisWorkbook.ActiveSheet
 
 
For i = 15 To 36
    If ws.Range("f" & i) <> "" Then
        valrech = ws.Range("f" & i).Value
        Celcom = Application.VLookup(valrech, wsAbs, 2, 0)
        If ws.Range("f" & i).Comment Is Nothing Then ws.Range("f" & i).AddComment
            With ws.Range("F" & i)
                .Comment.Visible = False
                .Comment.Text Text:="Celcom"
            End With
        End If
 
Next i
 
End Sub