detecter et remplacer les espace multiple par un symbole
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:
1
2
3
| Sub text()
MsgBox wraptexttovbcf(Cells(11, 3).Value)
End Sub |
Code:
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
