Insérer un texte par double clik

Christian0258 · 9 Août 2016

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 · 9 Août 2016

Bonjour Christian,

Code:

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 · 10 Août 2016

Bonjour à tout le forum, job75,

Merci, infiniment job75, pour ton code.

Bien à toi,
Salut l'artiste.
Christian

Insérer un texte par double clik

Christian0258

XLDnaute Accro

Pièces jointes

job75

XLDnaute Barbatruc

Christian0258

XLDnaute Accro

Discussions similaires

Insérer un texte par double clik

Christian0258

XLDnaute Accro

Pièces jointes

job75

XLDnaute Barbatruc

Christian0258

XLDnaute Accro

Discussions similaires

Privacy & Transparency

Privacy & Transparency