1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
| Function Cmpt(Letexte, LeChar)
Cmpt = UBound(Split(Letexte, LeChar, -1, vbTextCompare))
End Function
Dim Phrase1, Phrase2, Phrase3
Phrase1 = "Colonne1" & vbTab & vbTab & vbTab & vbTab & vbTab & "colonne2 --> 5 tab"
Phrase2 = "Colonne1" & vbTab & "colonne2 --> 1 tab"
Phrase3 = "Colonne1" & vbTab & vbTab & "colonne2 --> 2 tab"
'Colonne1 vbtab colonne2 --> ( tab
'Colonne1 vbtab colonne2 --> 1 tab
'Colonne1 vbtab colonne2 --> 2 tab
MsgBox Replace(Phrase1, vbTab, "", 1, Cmpt(Phrase1, vbTab) - 1, vbTextCompare)
MsgBox Replace(Phrase2, vbTab, "", 1, Cmpt(Phrase2, vbTab) - 1, vbTextCompare)
MsgBox Replace(Phrase3, vbTab, "", 1, Cmpt(Phrase3, vbTab) - 1, vbTextCompare) |
Partager