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

zebanx · 16 Février 2008

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 · 16 Février 2008

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 · 16 Février 2008

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 :

Code:

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

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

zebanx

XLDnaute Accro

Pièces jointes

jmd2

XLDnaute Accro

Cousinhub

XLDnaute Barbatruc

Discussions similaires

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

zebanx

XLDnaute Accro

Pièces jointes

jmd2

XLDnaute Accro

Cousinhub

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency