Supression des caratères chinoi d'un fichier Excel

Bonjour les amis,

avant toute chose je tiens à vous remercier pour votre généreusité envers nous ( nouveaux Exceliens )

Est ce que vous pouvez m'aider en supprimant les caractères chinois de mon fichier Excel. j'ai une vingtaine de fichier que je dois les traduire en français mais je n'arrive pas à éliminer les caractères chinois d'un seul coup

Salut Aninos,

a tester

 Option Explicit

Sub x()
    Dim i As Long

    For i = 1 To IIf(Len(Cells(Rows.Count, 1)), Rows.Count, Cells(Rows.Count, 1).End(xlUp).Row)
        Cells(i, 2).Value = OnlyAscii(Cells(i, 1).Value)
    Next
End Sub

Function OnlyAscii(ByVal s As String) As String
    Dim i As Long, c As String

    For i = 1 To Len(s)
        c = Mid(s, i, 1)
        If AscW(c) > 0 And AscW(c) < 256 Then OnlyAscii = OnlyAscii & c
    Next
End Function

@++

Bonjour tout le monde !

J'avais planché sur une solution sensiblement équivalente à celle de m3ellem1, je la poste quand même mais elle n'apporte rien de plus !

Sub Test()

Dim Cel As Range, i As Integer

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

With Sheets(1)
    For Each Cel In .Range("A1:Y549")
        i = 1
        Do While i <= Len(Cel.Value)
            If AscW(Mid(Cel.Value, i)) < 0 Or AscW(Mid(Cel.Value, i)) > 255 Then Cel.Value = Replace(Cel.Value, Mid(Cel, i), "")
            i = i + 1
        Loop
    Next Cel
End With

Application.Calculation = xlCalculationAutomatic

End Sub

Ces codes sont indispensables pour décoroner/désinfecter les fichiers xls

Il faut surtout pas les perdre

Bonjour les amis

encore Merci infiniment pour le temps de réponse pour m'aider , c'est stupifiant

mon ami m3ellem1 : j'ai testé la macro mais rien ne se passe sauf une suppression des colonnes (enfin je suppose !)

mon ami Pedro22 : j'ai testé ta macro , elle a supprimé tous les caractères chinois mais aussi tout ce que contient la case c'est à dire elle a laissé la case vide

c'est bien ça avance quand même !!

Aminos1977 a écrit :

mon ami Pedro22 : j'ai testé ta macro , elle a supprimé tous les caractères chinois mais aussi tout ce que contient la case c'est à dire elle a laissé la case vide

Bonjour,

Une erreur de ma part, voilà une version modifiée :

Sub Test()

Dim Cel As Range, i As Integer

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
With Sheets(1)
    For Each Cel In .Range("A1:Y549")
        i = Len(Cel)
        Do While i >= 1
            If AscW(Mid(Cel, i, 1)) < 0 Or AscW(Mid(Cel, i, 1)) > 255 Then Cel = Replace(Cel, Mid(Cel, i, 1), "")
            i = i - 1
        Loop
    Next Cel
End With
Application.Calculation = xlCalculationAutomatic

End Sub