Discussion :

[ced0802]

Bonjour à tous,

Comme indiqué dans le titre je souhaiterais integrer le resultat de la rechercheV ci dessous non pas dans la cellule "cells(x,5)" mais en commentaire de cette cellule.
Est ce possible ?

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
Sub exp()
 
Dim db As Workbook
Set db = Workbooks("wk49production")
 
For x = 1 To 1000
On Error Resume Next
'CBD Export
db.Worksheets("Packing Production Schedule").Cells(x, 5) = _
Application.WorksheetFunction.VLookup(db.Worksheets("Packing Production Schedule").Cells(x, 7), Workbooks("deliveries macro").Worksheets("feuil1").Range("A13:C150"), 3, False)
On Error Resume Next
Next
 
 
End Sub

En vous remerciant .

[edelweisseric]

Bonsoir à tous
Bonsoir ced0802

A essayer et adapter à ton pb :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Sub comment_02()
com = Range("a1")
Range("d5").AddComment.Text Text:=com
End Sub

Eric

[ced0802]

Un grand merci pour ton aide !!