Insérer un texte par double clik

[Christian0258]

Bonjour à tout le forum,

Je souhaiterais votre aide pour modifier ce code qui me permet d'insérer un mot devant un groupe de mots...

voir fichier

Merci pour votre aide, si précieuse.

Bien à vous.
Christian

 

[job75]

Bonjour Christian,

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Row = 1 Or Target.Column <> 2 Then Exit Sub
Cancel = True
If Left(Target, 8) <> ".RUPTURE" Then
  Target = ".RUPTURE chez " & Target(1, 2) & " depuis " & Date & " " & Target
  Target.Characters(1, Len(Target(1, 2)) + 32).Font.ColorIndex = 3
Else
  Target = Mid(Target, InStrRev(Target, "depuis") + 18)
  Target.Font.ColorIndex = xlAutomatic
End If
End Sub

A+

 

[Christian0258]

Bonjour à tout le forum, job75,

Merci, infiniment job75, pour ton code.

Bien à toi,
Salut l'artiste.
Christian