problème de recherche (code)

Version imprimable

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:

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

bonjour

Code:

.Comment.Text Text:="Celcom"

mettre Celcom entre guillemet équivalent à mettre ce texte comme commentaire
le reste fonctionne chez moi :
vérifier si vous avez bien définie la zone de la recherche qui se trouve dans l'onglet "Divers" et la nommer "congés"

Code:

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
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)
        MsgBox Celcom
        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

26/06/2020, 11h00
rossemma

Merci pour votre aide.
J'ai remarqué après fait ma demande sur le forum, mon erreur de "".