Recherche et remplacer des commentaires sur des cellules selectionnées

Bonjour,

Je suis un petit nouveau et je commence à faire des macros VBA.

J'arrive à faire une macro pour rechercher et remplacer une partie des commentaires sur feuille

Sub Macro1()

Dim Cell As Comment

For Each Cell In ActiveSheet.Comments

Cell.Text Text:=Replace(Cell.Text, "COMSG04", "COMSG041")

Next co1

End Sub

Mais je n'arrive pas à uniquement sur des cellules sélectionnées.

Sub modifier()

Dim Cell As Range

On Error Resume Next

For Each Cell In Selection

Cell.Comment Text:=Replace(Cell.Text, "COMSG041", "COMSG04")

Next Cell

On Error GoTo 0

End Sub

Sinon çà peut être une plage --> range("q6:q79")

Pouvez vous m'aider

Merci d'avance

en cherchant un peu j'ai trouvé la solution

Sub modifier()

For Each Cell In Selection

If Cell.NoteText <> "" Then

Cell.Comment.Text Text:=Replace(Cell.Comment.Text, "COMSG04", "COMSG041")

End If

Next Cell

End Sub

Bonjour,

Essaie en remplaçant "Selection" par "Selection.Comments".