Discussion :

[issoram]

Bonjour,

Pour la suppression des accents dans une chaine j'ai trouvé le code suivant dans la FAQ, mais je ne comprends pas son fonctionnement.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Declare Function FoldString Lib "kernel32.dll" Alias _
        "FoldStringA" (ByVal dwMapFlags As Long, ByVal lpSrcStr As Long, _
        ByVal cchSrc As Long, ByVal lpDestStr As Long, ByVal cchdest As Long) As Long
 
Function OteAccents(ByVal str As String) As String
 
    Dim i As Integer
    OteAccents = Space(Len(str))
 
    For i = 0 To (Len(str) - 1) * 2 Step 2
        FoldString &H40, StrPtr(str) + i, 1, StrPtr(OteAccents) + i, 1
    Next i
 
End Function

Pourriez vous me donner quelques explications ?

Merci d'avance

[kiki29]

Salut,pour cela tu peux utiliser [f1] et http://msdn.microsoft.com/en-us/libr...(v=vs.85).aspx ainsi que Debug.print et la fenêtre d'exécution dans l'environnement VBE : http://silkyroad.developpez.com/VBA/DebuterMacros/

Un autre exemple peut-être plus accessible

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Function SupprimerAccents(ByVal sChaine As String) As String
Dim sTmp As String, i As Long, p As Long
Const sCarAccent As String = "ÁÂÃÄÅÇÈÉÊËÌÍÎÏÑÒÓÔÕÖÙÚÛÜÝàáâãäåçèéêëìíîïñòóôõöùúûüýÿ"
Const sCarSansAccent As String = "AAAAACEEEEIIIINOOOOOUUUUYaaaaaaceeeeiiiinooooouuuuyy"
    sTmp = sChaine
    For i = 1 To Len(sTmp)
        p = InStr(sCarAccent, Mid(sTmp, i, 1))
        If p > 0 Then Mid$(sTmp, i, 1) = Mid$(sCarSansAccent, p, 1)
    Next i
    SupprimerAccents = sTmp
End Function

[issoram]

Bonjour,

Ma question n'est pas:

• Comment faire une macro excel:
  

  http://silkyroad.developpez.com/VBA/DebuterMacros/

• ni comment utiliser debug.print!
  

  Debug.print et la fenêtre d'exécution dans l'environnement VBE :

• ni comment supprimer les accents dans une chaine de caractères
  

  Un autre exemple peut-être plus accessible

• ni comment utiliser l'aide Office (que j'ai bien sûr consultée avant de poster)
  

  tu peux utiliser [f1] et http://msdn.microsoft.com/en-us/libr...(v=vs.85).aspx

Mais bel et bien : Comment fonctionne le code ci-dessus de suppression des accents car (je n'ai pas honte de le dire), je n'ai pas compris le contenu de l'aide.

Merci bien

[Didier Gonard]

Bonjour,

il ne s'agit pas de VBA, mais d'utilisation des API...

Dans le cas présent de "FoldStringA" qui fonctionne ainsi :

FoldString permet de faire différentes tranformations d'une
chaîne de caractères, en particulier de scinder les caractères accentués en deux
caractères successifs (la lettre sans accent et l'accent sans lettre). Ainsi,
"Du mélèze brûle dans l'âtre" devient "Du me´le`ze bru^le dans l'a^tre". Après,
il suffit de parcourir cette chaîne en éliminant tous les accents.
L Longre

cordialement,

Didier

[issoram]

Merci pour cette réponse constructive .


Cordialement.

[Rockveleur]

Salut,pour cela tu peux utiliser [f1] et http://msdn.microsoft.com/en-us/libr...(v=vs.85).aspx ainsi que Debug.print et la fenêtre d'exécution dans l'environnement VBE : http://silkyroad.developpez.com/VBA/DebuterMacros/

Un autre exemple peut-être plus accessible

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Function SupprimerAccents(ByVal sChaine As String) As String
Dim sTmp As String, i As Long, p As Long
Const sCarAccent As String = "ÁÂÃÄÅÇÈÉÊËÌÍÎÏÑÒÓÔÕÖÙÚÛÜÝàáâãäåçèéêëìíîïñòóôõöùúûüýÿ"
Const sCarSansAccent As String = "AAAAACEEEEIIIINOOOOOUUUUYaaaaaaceeeeiiiinooooouuuuyy"
    sTmp = sChaine
    For i = 1 To Len(sTmp)
        p = InStr(sCarAccent, Mid(sTmp, i, 1))
        If p > 0 Then Mid$(sTmp, i, 1) = Mid$(sCarSansAccent, p, 1)
    Next i
    SupprimerAccents = sTmp
End Function

Bonjour et merci, la fonction démarre au quart de tour. j'aimerais la faire fonctionner sur des caractères unicode qui ne font pas partie du code d'écriture des macros. Habituellement j'utilise ChrW(nnnn) mais ici ça ne fonctionne 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
Function SupprimerAccents(ByVal sChaine As String) As String
Dim sTmp As String, i As Long, p As Long
 
Const sCarAccent As String = "n"
Const sCarSansAccent As String = ChrW(7749)
 
    sTmp = sChaine
    For i = 1 To Len(sTmp)
        p = InStr(sCarAccent, Mid(sTmp, i, 1))
        If p > 0 Then Mid$(sTmp, i, 1) = Mid$(sCarSansAccent, p, 1)
    Next i
    SupprimerAccents = sTmp
 
End Function

Enigme... le message d'erreur est : #VALEUR!

[Rockveleur]

Hello,
si tu ne nous mets pas la chaîne de départ à convertir ou un exemple de chaînes que tu veux convertir on va avoir plus de mal à t'aider :

Ami calmant, J.P

à savoir
1/ la fonction ChrW(.) n'est pas implémentée au sein d'une liste.
2/ autrement dit, vba n'accèpte dans son code que des caractères ANSI, dans une liste, idem.

Code :

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

1
2
3
4
5
6
' par exemple, ça ça ne fonctionne pas :
' on voit que j'ai mis du ChrW pour les accentués n'appartenant pas à ANSI, et les accentués ANSI en direct.  
' Const AccChars = ChrW(257) & "ãá" & ChrW(259) & "ä" & ChrW(7693) & ChrW(7717) & hrW(299) & "í" & ChrW(7735) & ChrW(7737) & ChrW(7745) & ChrW(7747) & "m" & ChrW(784) & ChrW(7749) & "ñ" & ChrW(7751) & ChrW(326) & hrW(7771) & ChrW(7773) & ChrW(7779) & ChrW(347) & ChrW(351) & hrW(7789) & ChrW(363) & "ú" & ChrW(361) & ChrW(256) & "ÃÁ" & hrW(258) & "Ä" & ChrW(7692) & ChrW(7716) & ChrW(298) & "Í" & hrW(7734) & ChrW(7736) & ChrW(7744) & ChrW(7746) & "M" & hrW(784) & ChrW(7748) & "Ñ" & ChrW(7750) & ChrW(325) & ChrW(7770) & hrW(7772) & ChrW(7778) & Ch
' voici la liste équivalente 
' avec accents āãáăäḍḥīíḷḹṁṃmṅñṇņṛṝṣśşṭūúũĀÃÁĂÄḌḤĪÍḶḸṀṂMṄÑṆŅṚṜṢŚŞṬŪÚŨ
' sans accents aaaaadhiillmmmnnnnrrssstuuuAAAAADHIILLMMMNNNNRRSSSTUUU

merci !
je débute, pourtant vous êtes quasi le seul groupe qui traite de mes pb . Pardon si j'agace un peu. Mon domaine de travail Vba est la fonction RR de Vba Word...

[jurassic pork]

oops désolé j'ai effacé mon premier message car après investigation je me penche sur le problème. Le souci c'est qu'un caractère unicode est constitué de plusieurs octets et cela m'étonnerait que la fonction Mid fonctionne avec ce type de caractères.

[Rockveleur]

[...]cela m'étonnerait que la fonction Mid fonctionne avec ce type de caractères.

Bonjour jurassic pork,
je me demande comment on fait dans tous ces pays qui utilisent des accentués Unicode mais non ANSI !
Amusant de voir que le code de ce forum accepte de placer tous les caractères unicode dans une zone code, alors que vba, pas

Code :

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

?ãá?ä???í????m?ñ?????????ú??ÃÁ?Ä???Í????M?Ñ?????????Ú?

[jurassic pork]

Hello,
en python , il y a un paquet qui fait la conversion de chaînes avec accents en ascii, c'est le paquet unidecode.
Exemple avec ta chaîne :

>>> from unidecode import unidecode
>>> unidecode('āãáăäḍḥīíḷḹṁṃm̐ṅñṇņṛṝṣśşṭūúũĀÃÁĂÄḌḤĪÍḶḸṀṂM̐ṄÑṆŅṚṜṢ')
'aaaaadhiillmmmnnnnrrssstuuuAAAAADHIILLMMMNNNNRRS'
>>>

Je ne sais pas où ça en est au niveau du python dans Office, mais dans Calc de LibreOffice qui est l'équivalent d'Excel on peut utiliser des macros en python.
En basic dans Excel cela risque d'être très complexe à réaliser car les caractères unicode peuvent être en plusieurs octets et le basic traite plutôt les chaînes ANSI.

[Rockveleur]

Hello,
en python , il y a un paquet qui fait la conversion de chaînes avec accents en ascii, c'est le paquet unidecode.
Je ne sais pas où ça en est au niveau du python dans Office, mais dans Calc de LibreOffice qui est l'équivalent d'Excel on peut utiliser des macros en python.
En basic dans Excel cela risque d'être très complexe à réaliser car les caractères unicode peuvent être en plusieurs octets et le basic traite plutôt les chaînes ANSI.

ça fait rêver..
je voulais passer LibreOffice, mais j'ai 2 ans de code dans Vba Word, non compatible...

[jurassic pork]

C'est aussi possible en PowerShell avec le module PSUnidecode ( à installer dans Powershell).
Voici un exemple d'utilisation avec une fonction UDF VBA qui utilise ma dll expérimentale ClassesCSharpJP.dll pour gérer le PowerShell dans le VBA

Code :

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

1
2
3
4
5
6
7
8
9
Declare PtrSafe Function CreatePowerShellClass Lib "D:\Tmp\ClassesCSharpJP.dll" () As Object
Function ConvUni2Ascii(Cell As String)
Dim Pwsh As Object, PsVariable, Resultat
Set Pwsh = CreatePowerShellClass()
Resultat = Pwsh.ExecuteCmd("Set-ExecutionPolicy Unrestricted -Scope CurrentUser;" + _
                           "Import-Module PSUnidecode; ConvertFrom-Unicode -InputObject " + _
                           """" + Cell + """")
ConvUni2Ascii = Resultat
End Function

[Rockveleur]

C'est aussi possible en PowerShell avec le module PSUnidecode ( à installer dans Powershell).
Voici un exemple d'utilisation avec une fonction UDF VBA qui utilise ma dll expérimentale ClassesCSharpJP.dll pour gérer le PowerShell dans le VBA

Code :

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

1
2
3
4
5
6
7
8
9
Declare PtrSafe Function CreatePowerShellClass Lib "D:\Tmp\ClassesCSharpJP.dll" () As Object
Function ConvUni2Ascii(Cell As String)
Dim Pwsh As Object, PsVariable, Resultat
Set Pwsh = CreatePowerShellClass()
Resultat = Pwsh.ExecuteCmd("Set-ExecutionPolicy Unrestricted -Scope CurrentUser;" + _
                           "Import-Module PSUnidecode; ConvertFrom-Unicode -InputObject " + _
                           """" + Cell + """")
ConvUni2Ascii = Resultat
End Function

Merci, va falloir que je monte quelques étages, pas d'ascenseur, c'est pas mon niveau mais je vais bosser là dessus.
Résultat de mes recherches en anglais, pas grand chose sauf les solutions habituelles avec les très limités accentués des 255 premiers caractères.
l'autre piste (ou cul d sac) ? https://forum.excel-pratique.com/exc...ec-chrw-159560
Bon je vais déjà bosser sur la solution de Jurassik Pork

[Rockveleur]

Jurassik Pork, tu a réussi avec la liste de caractères accentués (diacritiques) qui m'intéressent.

āãáăäḍḥīíḷḹṁṃmṅñṇņṛṝṣśşṭūúũĀÃÁĂÄḌḤĪÍḶḸṀṂMṄÑṆŅṚṜṢŚŞṬŪÚŨ

Un grand merci pour ton intérêt et ton aide. Ă moi de réussir à implémenter ça dans mon excel.

https://www.dangtrinh.com/2017/05/ho...m-unicode.html

Je suis bloqué pour le moment, mon ordi a une panique de droits d'accès aux fichier et je ne peux plus lancer des .exe
Il va me falloir lancer je ne sais plus quelle procédure de réparation des droits, qui ne fonctionne qu'en mode sans echec ...

[Rockveleur]

Est ce le PowerShell de Windows ?
Sur un autre ordi J'ai installé Python : python-3.12.1-embed-amd depuis python.org. est ce la bonne façon ? https://learn.microsoft.com/fr-fr/wi...thon/beginners
M$ propose de l'installer depuis son store
je ne trouve pas le paquet Unidecode chez Python
https://www.dangtrinh.com/2017/05/ho...m-unicode.html
c'est là celui-ci ? https://pypi.org/project/Unidecode/

[jurassic pork]

Hello,
il y a aussi possiblité de faire la conversion en dotnet c# avec cette fonction par exemple :

Code C# :

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
      public  string ConvUni2Ascii(string chaine)
 
           {
            try
            {
              string normalized = chaine.Normalize(NormalizationForm.FormD);
              var sb = new StringBuilder();
              foreach (char c in from c in normalized
                       let u = CharUnicodeInfo.GetUnicodeCategory(c)
                       where u != UnicodeCategory.NonSpacingMark
                       select c)
              {
                 sb.Append(c);
              }
              return sb.ToString().Normalize(NormalizationForm.FormC);
			}
	        catch (Exception ex)
            {
                return "Erreur : " + ex.Message;
            }       
        }

Avec Excel-DNA on est capable d'intégrer dans un Addin xll des fonctions C# que l'on peut appeler à partir du VBA. Exemple :

Code :

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

1
2
3
4
5
6
7
8
Sub TestDnaConvUni2Ascii()
        Dim ComLibrary As Object
        Dim ws As Worksheet
        Set ComLibrary = CreateObject("DnaLibJP.ComLibrary")
        Set ws = Worksheets("Feuil1")
        ws.Range("A2").Value = ComLibrary.ConvUni2Ascii(ws.Range("A1").Value)
        ws.Range("A6").Value = ComLibrary.ConvUni2Ascii(ws.Range("A5").Value)
End Sub

Ami calmant, J.P