Discussion :

[thtfr]

Bonjour
J'ai parcouru le forum, mais n'ai pas trouvé de solution à mon problème :

Dans une macro, je parcours une colonne. Je voudrais tester la présence d'un commentaire dans chaque cellule pour le recopier dans la cellule voisine.
Seul le test m'échappe ...

Toute suggestion sera bienvenue. Merci

[Gorfael]

Salut thtfr et le forum
Si tu ne peux trouver les commentaires d'une cellule, fais l'inverse : trouve les commentaires et rattache-les à leurs cellules

Code :

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

1
2
3
4
5
6
7
Sub test()
Dim X As Comment
Dim y
For Each X In ActiveSheet.Comments
    X.Parent.Offset(0, 1) = X.Text
Next X
End Sub

A+

[thtfr]

Il fallait y penser ... Merci