Discussion :

[patricktoulon]

Bonjour

dans le cadre de ma contrib "grille to html " je rencontre un petit soucis

certaines cellules peuvent etre alignée sur plusieur ligne ,maque de pot aucun symbole ne represente ces saut de lignes ni (chr(10),chr(13),vbcf,vbcrlf)

alors si j'ecrit dans une cellule "ligne1 ligne2 ligne3) forcement le texte va s'aligner automatiquement a la ligne quand la cellule est parmétrée

donc je cherche le pattern du reg pour detecter les occurrence de 3 espaces et plus et les remplacer par "*"
une idée

Code :

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

1
2
3
Sub text()
MsgBox wraptexttovbcf(Cells(11, 3).Value)
End Sub

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Function wraptexttovbcf(txt As String)
    Dim Matches, ReG
    Set ReG = CreateObject("VBScript.RegExp")
    With ReG
        .Global = True: .Pattern = "( ){3}": .IgnoreCase = True
        Set Matches = .Execute(txt)
 
        For Each Match In Matches
            txt = Replace(txt, Match, "*")
                    Next
    End With
    wraptexttovbcf = txt
    Set ReG = Nothing
End Function

Merci pour le retour

[patricktoulon]

re c'est bon j'ai trouvé

pattern="( ){3,15}