MEF dans une même cellule (critère "barré")

[zebanx]

Bonjour,

Est il possible d'appliquer dans une même cellule une mise en forme spécifique pour la chaine de caractère barré comme indiqué dans l'exemple joint ?

Merci pour votre aide

 

[jmd2]

Re : MEF dans une même cellule (critère "barré")

hello

moi je searis partisan de faire autant de lignes qu'il y a de lignes de texte dans ta grande" cellule.Et hop, c'est gagné.

 

[Cousinhub]

Re : MEF dans une même cellule (critère "barré")

Bonjour,
par MEFC, je ne sais pas, mais par un évènement de feuille, tu peux insérer ce code dans le module de la feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [D3:D5]) Is Nothing Then
Application.EnableEvents = False
    For i = 1 To Len(Target)
        Target.Characters(Start:=i, Length:=1).Font.ColorIndex = _
        IIf(Target.Characters(Start:=i, Length:=1).Font.Strikethrough = True, 50, 0)
    Next i
Application.EnableEvents = True
End If
End Sub

La zone autorisée ici est de la cellule D3 à D5.
en fonction du nombre de caractères dans la cellule, cela peut être long