bonjour,

je voudrais ajouter un commentaire dans une cellule. J'ai commencé par quelques tests. Mais... rien !!!
Un grand merci pour votre aide

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Sub test()
 
Dim x As Variant
x = Range("a1").Value
Range("a2").ClearComments
Range("a2").AddComment x
 
End Sub