Salut ledaf et le forum
Je ne sais pas tester les cellules ayant un commentaire (ça doit être possible) .
Par contre, je sais tester les commentaires et trouver la cellule qui s'y rattache
Code:
Sub test()
Dim X As Comment
For Each X In ActiveSheet.Comments
MsgBox X.Parent.Address(0, 0)
Next X
End Sub
et si tu veux sélectionner toutes les cellules de la feuille ayant un commentaire :
Code:
Selection.SpecialCells(xlCellTypeComments).Select
salut
edit :
gorfael ?
Je ne sais pas tester les cellules ayant un commentaire (ça doit être possible) .
Par contre, je sais tester les commentaires et trouver la cellule qui s'y rattache
Touche clavier F5 - Cellules - Commentaires - OK
Toutes les cellules avec commentaire sont sélectionnées.
La touche clavier TAB permet de se déplacer d'une cellule avec commentaires vers la suivante (à l'horizontale, puis à la verticale).