Discussion :

[rossemma]

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

[Philippe Tulliez]

Bonjour,
Et comme ceci, cela ne va pas mieux ?

Code :

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

Range("a2").AddComment "x"

Attention tout de même qu'il s'agit de la cellule A2 de la feuille active

[rossemma]

cela fonctionne mais cela affiche x et moi je voudrais afficher le valeur qui se trouve dans la cellule A1

[Philippe Tulliez]

Bonjour,
Chez moi, cela fonctionne parfaitement mais si tu souhaites que cela se mette à jour lorsque l'on modifie la valeur de A1, il faut utiliser la procédure événementielle Worksheet_Change

Exemple

Code :

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

1
2
3
4
5
6
7
8
Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$A$1" Then
     With Range("a2")
     .ClearComments
     .AddComment Target.Value
     End With
  End If
End Sub

[rossemma]

cela bloque à la ligne 5
il me dit erreur 1004 / erreur définie par l'application ou par l'objet

[rossemma]

en fait si dans A1 il y a du texte cela fonctionne mais s'il y a "1234" par exemple cela coince