With TextBox1
' Boucle pour passer en revue toutes les entrées non désirées
ligne1:
For intNbCar = 1 To 2 ' Ajuster le nombre total de la bouble selon le nombre de cas
Select Case intNbCar
Case 1
vrtCarFound = ';'
vrtCarReplace = '-'
intStep = 1
Case 2
vrtCarFound = vbCrLf ' Line Feed
vrtCarReplace = '/'
intStep = 2
' Cette variable sert dans le cas des doubles carrés causé par un chr(10) et un chr(13)(un saut de ligne)
' Avec la fonction mid, on peut se positionner dans une chaine de caractères, alors dans ce cas si, on
' doit se positionner 2 caractères plus loins et ramasser le reste de la chaine de caractères
'Case 3
'Mettre d'autre option ici
End Select
intPosition = InStr(1, .Value, vrtCarFound)
If intPosition <> 0 Then
' Ici je rammeasse a partir de la gauche la chaine de caractères jusqu'avant la première instance du caractère non désiré
' Ensuite insère le nouveau caractère
' Ensuite rammasse le reste de la chaine avec Mid
.Value = VBA.Left(.Value, intPosition - 1) & vrtCarReplace & Mid(.Value, intPosition + intStep, 100)
End If
Next
If InStr(1, .Value, ';') <> 0 Then GoTo ligne1
If InStr(1, .Value, vbCrLf) <> 0 Then GoTo ligne1
End With