Dim derli As Integer
Sub separateur()
Dim separation() As String
Dim verso As String
Dim i As Integer
Sheets("S1").Select
...
'## ICI PERTE DU DELTA LORS DE LA COPIE DANS LE FIHIER TXT
'## SI POSSIBLE ICI OU MEME AVANT DS LA PROG REMPLACER LES SYMBOLES PAR DES EQUIVALENTS RESPECTIF (DANS MON CAS PAS LE CHOIX: DELTA -> Remplacé par ? et alpha -> remplacé par '
'[B]~~~~~~~> voir pour delta
derli = Sheets("colonne_maker").Range("A300").End(xlUp).Row
remplaceDelta[/B]
For i = 2 To [B]derli[/B]
separation = Split((Range("A" & i).text), "/")
Sheets("S1").Range("A" & i).Value = Fonction.traitement_alpha_beta(separation(0))
Sheets("S1").Range("B" & i).Value = Fonction.traitement_alpha_beta(separation(1))
With monfic
.writeLine Sheets("S1").Range("A" & i).Value
.writeLine Sheets("S1").Range("B" & i).Value
End With
Next i
monfic.Close
End Sub
[B]Sub remplaceDelta()
Sheets("colonne_maker").Range("A2:A" & derli).Select
With Selection
.Font.Name = "Arial"
.Replace What:=ChrW(916), Replacement:="?", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
ReplaceFormat:=False
.Font.Name = "Times New Roman"
End With
End Sub[/B]