Discussion :

[alidroos]

Bonjour tous

Une chaîne de texte dans une cellule constituée de deux langues
Extrait mots arabes dans une colonne
Et l'anglais dans la dernière colonne
exemple :
احمد محمد اسف نجدي Ahmad mohmmad asf nagde
colonne1 = احمد محمد اسف نجدي
colonne 2 = Ahmad mohmmad asf nagde

Car il ya plus conscients des différentes cellules des mots

[parmi]

Bonjour,

J'ai fait un test avec une seule cellule en A1
Je te laisse le soin de te faire une boucle si nécessaire...

Le principe que j'ai utilisé, c'est de mettre tous les mots dans un tableau et ensuite vérifier chaque élément pour les reconstruire. Dans mon système, les caractères des mots arabes ont 63 (?) comme code ASCII, alors je me sers de ça pour déterminer les mots français et ceux arabes et les reconstruire...

Si ça ne fonctionne pas de la même manière sur ton PC, alors, mon code ne te servira pas...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub Extraire()
    Dim I As Long
    Dim Tablo() As String
    Dim strFR As String, strAR As String
 
    Tablo = Split(Range("A1"), " ")
    For I = 0 To UBound(Tablo)
        If Tablo(I) <> "" Then
            If Asc(Mid(Tablo(I), 1, 1)) <> 63 Then
                strFR = strFR & Tablo(I) & " "
            Else
                strAR = strAR & Tablo(I) & " "
            End If
        End If
    Next
 
    Range("B1") = Left(strFR, Len(strFR) - 1)
    Range("C1") = Left(strAR, Len(strFR) - 1)
End Sub

[Marc-L]

Bonjour,

sur ma version après coller, l'anglais et l'arabe s'inverse dans la cellule …

Sinon parmi utilise AscW, c'est plus facile pour directement effectuer la séparation …

[parmi]

Bien vu Marc-L
Je n'aurais pas pensé à ça...
Faut dire que je n'ai jamais eu à travailler avec de l'arabe...

Donc, on pourrait dire, j'imagine

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If AscW(Mid(Tablo(I), 1, 1)) <= 255 then  'non arabe

plutôt que Asc(...) <> 63

[Marc-L]

Heu … Tu n'as pas besoin de Mid puisque la fonction Asc et dérivées renvoient le code du premier caractère d'une chaîne …

Ou > 255 pour de l'arabe, voir même beaucoup plus haut comme 1000 par exemple.
Le demandeur devrait connaitre à partir de quel n° de code ASCII étendu commence l'alphabet arabe …

[Marc-L]

Bon en fait pour l'inversion c'est normal à l'écran mais en interne l'ordre est bien respecté …

Donc voici une proposition sans utiliser volontairement Split :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub Demo()
    TXT$ = Application.Trim([A1].Value)
 
    Do
        W% = AscW(Mid$(TXT, P& + 1))
 
        If W And W < 1500 Then
            If P > 1 Then
                [B1].Value = Left$(TXT, P - 1)
                [C1].Value = Mid$(TXT, P + 1)
            Else
                [C1].Value = TXT
            End If
 
            Exit Do
        End If
 
        P = InStr(P + 1, TXT, " ")
        If P = 0 Then [B1].Value = TXT
    Loop Until P = 0
End Sub

__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

__________________________________________________________________________________________
Un scientifique lira des centaines de livres au cours de sa vie, mais sera toujours persuadé qu'il lui reste beaucoup à apprendre.
Un religieux n'en lira qu'un et sera persuadé d'avoir tout compris …