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
Partager