Discussion :

[im-rainmaker]

Bonjour,


Je suis actuellement à la recherche d'une macro pour convertir les caractères avec accents par des sans accents.

Je tiens à préciser que je connais absolument rien en macro.

Donc, j'ai trouvé la fonction suivante sur le net :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Main
End Sub
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

et j'ai placé cette macro dans : Mes macros > Standard > Module1.

Mais quand je l'exécute j'ai le message d'erreur suivant : Erreur d'exécution Basic. L'argument n'est pas facultatif



Voilà, je ne comprends pas l'erreur et je voudrais vraiment que cette macro puisse fonctionner car j'ai plusieur fois par semaine 10-15 fichier ou je dois enlever tous les accents avec Rechercher>Remplacer.

Merci d'avance et bonne journée.

[jurassic pork]

hello,
c'est normal que tu ais une erreur la macro attend un argument qui est une chaîne. Je ne sais pas comment exactement tu lances la macro mais il faudrait exactement savoir ce que tu veux faire et à partir de quoi :

- LibreOffice ? OpenOffice ? version ?
- Writer ? calc ? autre ?
- Tout le texte d'un document writer ? toutes les cellules d'un document calc ? une seule cellule ? un texte, sélectionné ?

Ami calmant , J.P

[im-rainmaker]

Bonjour,

Alors c'est Open Office Calc Ver. 4.1.1

Et oui j'essaye de faire cette recherche dans toutes les cellules de mon document (nom, prénom,adresse,etc)

[jurassic pork]

va voir ici

oops y a un peu de boulot à faire c'est une fonction, il va falloir balayer toutes les cellules.

[im-rainmaker]

Merci de ta réponse, mais malheureusement cela ne m'aide pas plus.

J'ai téléchargé le fichier .ods avec la macro et l'ai lancé depuis le fichier que je dois modifier en allant dans : Gérer les macros > Macros OpenOffice Basic > FonctionsPlus.ods > Standard > ModulesFonctionPlus > Supprime_Accents

Mais j'ai encore le même message d'erreur que sur l'ancien programme :




J'ai donc essayé de copier/coller mon document dans le fichier qui contient la macro et j'ai la même erreur si je passe par "Gérer les macros", mais j'ai l'erreur suivante si je passe par "Exécuter une macro" (option que je n'avais pas dans mon fichier original)






Alors je sais que ce n'est pas censé être accessible par un néophyte, mais je ne comprends pas que ce soit si peu intuitif.

[jurassic pork]

tu peux essayer ceci pour la feuille en cours :

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
22
23
24
25
Sub CalcSupprimerAccent
'J.P  Mai 2015
Dim oDoc,aTrouve,aRemplace,aTabCount,SetR,oSheet
oDoc = ThisComponent
aTrouve =    Array("Á","Â","Ã","Ä","Å","Ç","È","É","Ê","Ë","Ì","Í","Î","Ï","Ñ","Ò",_
                 "Ó","Ô","Õ","Ö","Ù","Ú","Û","Ü","Ý","à","á","â","ã","ä","å","ç",_
                 "è","é","ê","ë","ì","í","î","ï","ñ","ò","ó","ô","õ","ö","ù","ú","û","ü","ý","ÿ")
aRemplace = Array("A","A","A","A","A","C","E","E","E","E","I","I","I","I","N","O",_
                 "O","O","O","O","U","U","U","U","Y","a","a","a","a","a","a","c",_
                 "e","e","e","e","i","i","i","i","n","o","o","o","o","o","u","u","u","u","y","y")
aTabCount = 0
' on exécute la macro sur la feuille courante
osheet = odoc.CurrentSelection.Spreadsheet
'oSheet = oDoc.getSheets.getByName(oDoc.CurrentSelection.Spreadsheet.Name)
SetR = oSheet.createReplaceDescriptor
SetR.SearchCaseSensitive = true
SetR.SearchWords = false '  on cherche les lettres pas les mots
SetR.SearchRegularExpression = true
While aTabCount <= uBound(aTrouve)
SetR.setSearchString(aTrouve(aTabCount))
SetR.setReplaceString(aRemplace(aTabCount))
aTabCount = aTabCount + 1
oSheet.ReplaceAll(SetR)
Wend
End Sub

A optimiser certainement

[im-rainmaker]

tu peux essayer ceci pour la feuille en cours :

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
22
23
24
25
Sub CalcSupprimerAccent
'J.P  Mai 2015
Dim oDoc,aTrouve,aRemplace,aTabCount,SetR,oSheet
oDoc = ThisComponent
aTrouve =    Array("Á","Â","Ã","Ä","Å","Ç","È","É","Ê","Ë","Ì","Í","Î","Ï","Ñ","Ò",_
                 "Ó","Ô","Õ","Ö","Ù","Ú","Û","Ü","Ý","à","á","â","ã","ä","å","ç",_
                 "è","é","ê","ë","ì","í","î","ï","ñ","ò","ó","ô","õ","ö","ù","ú","û","ü","ý","ÿ")
aRemplace = Array("A","A","A","A","A","C","E","E","E","E","I","I","I","I","N","O",_
                 "O","O","O","O","U","U","U","U","Y","a","a","a","a","a","a","c",_
                 "e","e","e","e","i","i","i","i","n","o","o","o","o","o","u","u","u","u","y","y")
aTabCount = 0
' on exécute la macro sur la feuille courante
osheet = odoc.CurrentSelection.Spreadsheet
'oSheet = oDoc.getSheets.getByName(oDoc.CurrentSelection.Spreadsheet.Name)
SetR = oSheet.createReplaceDescriptor
SetR.SearchCaseSensitive = true
SetR.SearchWords = false '  on cherche les lettres pas les mots
SetR.SearchRegularExpression = true
While aTabCount <= uBound(aTrouve)
SetR.setSearchString(aTrouve(aTabCount))
SetR.setReplaceString(aRemplace(aTabCount))
aTabCount = aTabCount + 1
oSheet.ReplaceAll(SetR)
Wend
End Sub

A optimiser certainement

Eh bien, un très grand merci ! Tout à l'air de fonctionner.

En fait j'étais revenus pour dire que j'avais trouvé une solution : Enregistrer une macro pendant que je faisais un rechercher/remplacer. La macro fonctionnait, mais le soucis était que lorsque le programme ne trouvait pas l'accent que je recherchais, une boite de dialogue s'ouvrait et me prévenait que le programme n'avait rien trouvé (donc beaucoup de chargement et devoir attendre pour cliquer sur OK et que la macro passe à la suite).

Encore merci ! Et bonne journée