Discussion :

[arisToT]

Bonjour,

Comment puis-je afficher en commentaire d'une cellule la valeur contenue dans une autre cellule (par exemple le texte de la cellule d'à côte) ?
J'ai essayé ce genre de choses mais sans grand succès :

Code :

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

1
2
a = Range("A1")
ActiveCell.AddComment a

Merci pour votre aide,
Philippe.

[mayekeul]

bonjour,

essaye comme ceci

Code :

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

1
2
3
4
5
 
With Range("A1").AddComment
    .Visible = False
    .Text Range("B1").Value
End With

[arisToT]

Ecoute, quand je colle bêtement ce code, ça plante :

Code :

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

1
2
3
4
5
6
7
8
Sub Macro()
 
With Range("A1").AddComment
    .Visible = False
    .Text Range("B1").Value
End With
 
End Sub

Faut dire aussi que je suis un peu débutant et parfois aussi un peu neuneu...
Mais j'ai confiance dans ton aide

[mayekeul]

Mais j'ai confiance dans ton aide

est ce bien raisonnable??

ça plante si un comment existe déjà

n'oublie pas, comment est un objet, pas une propriété de la cellule

EDIT: essaye comme ceci au fait

Code :

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

worksheet(1).range("A1").addcomment "TEST"

[wilfried_42]

Bonjour

essaye ceci :

Code :

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

1
2
3
4
5
6
7
Sub essai()
    With Range("A1")
        .ClearComments
        .AddComment
        .Comment.Text Range("B1").Value
    End With
End Sub

[arisToT]

La première fonction que tu m'as donnée ne fonctionne pas : "erreur 1004 définie par l'application ou par l'objet", et la deuxième ne se compile pas...
Pourrais-tu écrire une fonction en entier stp et puis la tester ?
Merci !

Bonjour wilfried_42,

ta fonction marche impec, mais seulement pour A1 et B1.
Comment est-ce que je pourrais la faire marcher quelque soit la case de départ vis-à-vis de sa case voisine ?

Merci !

[arisToT]

Ok c'est bon, j'ai trouvé !
Merci pour votre aide à tous les deux !
A+