Nouveau venuScaldomanInscrit le :12/06/2019Dernière activité :12/06/2019 à 10:28Version d'Excel :2010Messages2Votes0Fichiers0Téléchargements0SujetsMessagesStatistiquesVotes reçus Messages postés par ScaldomanDateAuteur du sujetSujetExtrait du message12/06/2019 à 10:20ScaldomanRecherche et remplacer des commentaires sur des cellules selectionnéesEn 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...12/06/2019 à 09:26ScaldomanRecherche et remplacer des commentaires sur des cellules selectionnéesJe 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 En...Forums