Macro pour insérer un mot (prédéfini) en début de texte, sur une colonne...

[Christian0258]

Bonjour à tout le forum,

Je souhaiterais, à nouveau, votre aide afin d'écrire une macro pour placer un mot prédéfini devant le texte sans formule (sur une colonne)....

voir fichier joint

Bien amicalement,
Christian

 

[Robert]

Re : Macro pour insérer un mot (prédéfini) en début de texte, sur une colonne...

Bonjour Christian, bonjour le forum,

Peut-être comme ça :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column <> 2 Then Exit Sub
If Target.HasFormula Then Exit Sub
Cancel = True
If Left(Target, 7) = "RUPTURE" Then
    Target.Value = Mid(Target.Value, 9)
Else
    Target.Value = "RUPTURE " & Target.Value
End If
End Sub

 

[gilbert_RGI]

Re : Macro pour insérer un mot (prédéfini) en début de texte, sur une colonne...

Bonjour,

un truc comme ceci

 

[Christian0258]

Re : Macro pour insérer un mot (prédéfini) en début de texte, sur une colonne...

Re, le forum, Robert, Gilbert et Modeste geedee
Un grand merci à vous trois, c'est impeccable.

Bien à vous,
Christian

 

[Modeste geedee]

Re : Macro pour insérer un mot (prédéfini) en début de texte, sur une colonne...

Bonsour®
voir ceci :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
        If Target.HasFormula _
            Or Target.Column <> 2 _
            Or Target.Count > 1 Then ' par sécurité... car en double click une seule cellule 
                Cancel = True
                Exit Sub
        End If
        If UCase(Left(Target, 8)) = "RUPTURE " Then
                Target = Mid(Target, 9, 9 ^ 9)
                Target.Font.Color = vbBlack
        Else
                Target = "RUPTURE " & Target
                Target.Characters(1, 8).Font.Color = vbRed
        End If
End Sub