Discussion :

[ESVBA]

Bonjour,

je souhaite mettre en forme la première ligne d'une cellule (ou toutes les autres lignes). Facile s'il y a un CAR10 dans la cellule.

Mais il peut ne pas y avoir de saut de ligne manuel.

Alors comment déterminer l'emplacement dans la chaine de caractères du saut de ligne automatique ?

Merci pour votre aide.

ESVBA

[Daniel.C]

Bonjour,

Une bidouille à adapter si elle te convient. J'utilise une cellule de la même colonne que celle à tester (ici les données sont en D1; j'utilise D100). Plutôt que de recopier les éléments de la police, on peut faire un copier collage spécial formats; j'ai la flemme de modifier. Cela suppose qu'il n'y a pas 'autres espaces que l'espace simple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub test()
    Dim Tabl, H As Integer
    Tabl = Split([D1], " ")
    H = [D100].Height
    With [D100]
        .Clear
        .WrapText = True
        .Font.Size = [D1].Font.Size
        .Font.Name = [D1].Font.Name
        .Font.Bold = [D1].Font.Bold
        For Each Item In Tabl
            .Value = .Value & Item & " "
            avar = .Height
            If .Height > H Then
                MsgBox Item & " est le premier mot de la seconde ligne."
                Exit For
            End If
        Next Item
    End With
End Sub

[ESVBA]

Solution toute simple par tatonnement.

Je m'attendais à une solution par API.
Ca fonctionne. Parfait.

Merci Daniel.C


ESVBA