Macro: insérer mot dans cellule avec mise en forme

Bonjour à tous,

J'ai besoin d'aide pour créer un macro qui me permettrait d'ajouter automatiquement au texte existant dans une cellule, un mot et en plus en caractère gras et bleu!

exemple: "envoyer pièces comptables" devient "Rappel envoyer pièces comptables"

je dois faire ça sous Excel 2003 et je ne connais pas le VBA, j'utilise la fonction simple "nouvelle macro" puis "arrêter enregistrement"

mon expérience: quand je suis à peu près arrivée à faire quelque chose, la macro me copiait-collait le contenu de la cellule sur laquelle j'ai créé ce que je voulais, je n'arrive donc pas à conserver le texte initial de la cellule

et à plusieurs reprises message d'erreur: impossible d'enregistrer

Merci de votre aide

Marion

Bonjour et bienvenue sur le forum

Un essai. Te convient-il ?

c'est génial!! merci

comment reproduire ceci? car je souhaite en créer 2 similaires, avec soit un raccourci clavier ou un icone personnalisé pour le 2ème. je ne savais pas que c'était faisable en double cliquant sur la cellule

marion0206 a écrit :

comment reproduire ceci?

Code à mettre dans la feuille VBA concernée pour le double-clic :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Target = "Rappel : " & Target
    Target.Characters(Start:=1, Length:=8).Font.Color = RGB(0, 0, 255)
End Sub

Code à mettre dans un module pour un lanccement par raccourci clavier, par un bouton, ou un icone :

Sub AjoutDunMot()
    ActiveCell = "Rappel : " & ActiveCell
    ActiveCell.Characters(Start:=1, Length:=8).Font.Color = RGB(0, 0, 255)
End Sub

Bye !

un grand merci, je mettrais ça en application au travail dès lundi