Modification d'un commentaire

Bonjour,

For Each s In ActiveWorkbook.Sheets
For Each c In s.Comments
c.Text Text:=Replace(c.Text, "xxxx", "yyyy")
Next c
Next s

JB

Bonjour,

Savez vous si il est possible à l'aide d'une macro de parcourir l'ensem ble
des commentaire du classeur et pour chacun de ces commentaire remplacer u ne
partie de la chaine de caractère qui la compose par une autre chaine de
caractère

Merci de votre aide toujours précieuse


PG

--
.

Bonjour.
Essaie (remplace "toto" par "titi") :

Sub test()
Dim c As Range
On Error Resume Next
For Each Worksheet In Sheets
For Each c In ActiveSheet.UsedRange
Var = c.Comment.Text
If c.Comment.Text <> "" Then
c.Comment.Text WorksheetFunction.Substitute(c.Comment.Text, "toto",
"titi")
End If
Next c
Next Worksheet
End Sub

Cordialement.
Daniel
"PG49" <a@a> a écrit dans le message de news:
uqaNszABHHA.1220@TK2MSFTNGP04.phx.gbl...

Bonjour,

Savez vous si il est possible à l'aide d'une macro de parcourir l'ensemble
des commentaire du classeur et pour chacun de ces commentaire remplacer
une
partie de la chaine de caractère qui la compose par une autre chaine de
caractère

Merci de votre aide toujours précieuse


PG

--
.

Merci à vous deux, j'essai tout de suite vos solutions



"PG49" <a@a> a écrit dans le message de news:
uqaNszABHHA.1220@TK2MSFTNGP04.phx.gbl...

Bonjour,

Savez vous si il est possible à l'aide d'une macro de parcourir l'ensemble
des commentaire du classeur et pour chacun de ces commentaire remplacer
une
partie de la chaine de caractère qui la compose par une autre chaine de
caractère

Merci de votre aide toujours précieuse


PG

--
.

OK cela fonctionne comme je le souhaitais

Merci encore à vous tous qui mettez votre connaissance au service des autres


"PG49" <a@a> a écrit dans le message de news:
uqaNszABHHA.1220@TK2MSFTNGP04.phx.gbl...

Bonjour,

Savez vous si il est possible à l'aide d'une macro de parcourir l'ensemble
des commentaire du classeur et pour chacun de ces commentaire remplacer
une
partie de la chaine de caractère qui la compose par une autre chaine de
caractère

Merci de votre aide toujours précieuse


PG

--
.