1 2 3 4 5 6 7 8 9 10 11 12 13
| Const vbUseCompareOption = -1
Const vbBinaryCompare = 0
Const vbTextCompare = 1
Dim Msg
Msg = "Toto, Tati, toto"
Label1.Caption = Replace(Msg, "tati", "tata", 1, , vbBinaryCompare)
MsgBox "Avec vbTextCompare:" & vbCrLf & Msg & " devient" & vbCrLf _
& Replace(Msg, "tati", "tata", 1, , vbTextCompare) & vbCrLf & vbCrLf _
& "Avec vbBinaryCompare:" & vbCrLf & Msg & " devient" & vbCrLf _
& Replace(Msg, "tati", "tata", 1, , vbBinaryCompare) & vbCrLf & vbCrLf _
& "Avec vbUseCompareOption:" & vbCrLf & Msg & " devient" & vbCrLf _
& Replace(Msg, "tati", "tata", 1, , vbUseCompareOption), vbInformation |
Partager