Super !
J'ai seulement constaté après coup que le séparateur décimal dans l'exemple de résultat souhaité était un point et non une virgule.
Je te transmets la petite correction que j'ai faite qui consiste à utiliser une fonction interne qui remplace la virgule par un point.
Ci-dessous:
Sub ExportTXT()
Dim Chemin As String
Dim NbLignes As Long
Dim Fichier As String
Dim C As Range
Sheets("Feuil2").Select
NbLignes = Sheets("Feuil2").Cells(65536, 1).End(xlUp).Row
Chemin = ActiveWorkbook.Path
'Nom du fichier exporté
Fichier = Chemin & "\Export Excel.txt"
Open Fichier For Output As #1
Print #1, "{"
For i = 2 To NbLignes
Print #1, Chr(9) & "si (m=" & Cells(i, 1) & ")"
Print #1, Chr(9) & "{"
Print #1, Chr(9) & Chr(9) & "xx[1] = 25;"
For j = 2 To 3 'Nb de colonnes
Print #1, Chr(9) & Chr(9) & "xx[" & j & "] = " & RemplaceVirgule(Cells(i, j).Value) & ";"
Next j
Print #1, Chr(9) & Chr(9) & "xyz#=xx;"
Print #1, Chr(9) & "}"
Next i
Print #1, "}"
Close #1
End Sub
Function RemplaceVirgule(N As Double) As String
Dim T As String
Dim i As Integer
T = CStr(N)
Dim R As String
For i = 1 To Len(T)
If Mid(T, i, 1) = "," Then
R = R & "."
Else
R = R & Mid(T, i, 1)
End If
Next i
RemplaceVirgule = R
End Function
Bon courage pour la suite,