convertir texte en nombre ansi

[xstier]

Bonjour cher XLDiens

je reviens apres un long moment sans excel

tiens un question qui m'interesse en fait en vba y'a peut etre une solution pour convertir le texte selon les tables ANSI par exemple

bon je sais pas si c'est util mais je trouve l'exercice marrant,

J'attends vos reponses merci encore

 

[PMO2]

Re : convertir texte en nombre ansi

Bonjour,

Une piste avec le code suivant

Sub Text2Ansi()
Dim S As Worksheet
Dim R As Range
Dim var
Dim A$
Dim B$
Dim C$
Dim i&
Dim j&
Dim k&
Set R = ActiveSheet.UsedRange
If R.Address = "$A$1" And IsEmpty(R) Then Exit Sub
var = R
For i& = 1 To UBound(var, 1)
  B$ = "'"
  For j& = 1 To UBound(var, 2)
    A$ = var(i&, j&)
    For k& = 1 To Len(A$)
      C$ = Asc(Mid(A$, k&, 1))
      Do Until Len(C$) = 3
        C$ = "0" & C$
      Loop
      B$ = B$ & C$
    Next k&
    var(i&, j&) = B$
    If Len(B) > 901 Then
      MsgBox "Les chaînes de caractères sont trop longues (>= 901 caractères)."
      Exit Sub
    End If
  Next j&
Next i&
Set S = Sheets.Add(after:=Sheets(Sheets.Count))
Set R = S.Range(R.Address)
R = var
End Sub

Chaque caractère des chaînes de texte est converti en sa valeur ANSI sur un pas de 3
RESTRICTION : si la conversion obtenue excède 901 caractères le programme stoppe

Cordialement.

PMO
Patrick Morange