Pour simplifier le code

Version imprimable

27/11/2024, 09h46
touche_a_tout

Pour simplifier le code

Bonjour,
Je suis toujours sur mes statistiques lexicologiques et je veux débarrasser mes textes de tous les signes de ponctuation. Je peux évidemment les éliminer un par un (galère) mais je me rappelle avoir vu sur la toile une formule abrégée qui permet d'éliminer tous les signes d'un coup; mais pas possible de la retrouver. Est-ce que quelqu'un voit à quoi je fais allusion ? Il me semble avoir en mémoire une énumération du genre . , : ; - ( ) ! etc. etc. mais pas le code qui l'accompagne.
Merci d'avance pour toute piste.
Cordialement
touche_a_tout

Bonjour,

via une fonction personnalisée ?

Code:

1
2
3
4
5
6
7
8
Function RemovePunctuation(Txt As String) As String
    With CreateObject("VBScript.RegExp")
        .Pattern = "[^A-Z0-9 ]"
        .IgnoreCase = True
        .Global = True
        RemovePunctuation = .Replace(Txt, "")
    End With
End Function

Bonjour,

une autre possibilité

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Function sansAccent(Texte As String)
 
    Dim listeAccents  As String, listeLettres As String, mot as String
    Dim i As Long
    listeAccents = "ÀÁÂÃÄÅÇÈÉÊËÌÍÎÏÒÓÔÕÖÙÚÛÜÝàáâãäåçèéêëìíîïðòóôõöùúûüýÿ"
    listeLettres = "AAAAAACEEEEIIIIOOOOOUUUUYaaaaaaceeeeiiiioooooouuuuyy"
    mot = Texte
 
    For i = 1 To Len(listeAccents)
        mot = Replace(mot, Mid(listeAccents, i, 1), Mid(listeLettres, i, 1))
    Next
 
    sansAccent = mot
 
End Function

27/11/2024, 11h30
joe.levrai

Bonjour,

c'est la ponctuation, et non les accents, qu'il souhaite supprimer :aie:
27/11/2024, 12h26
tototiti2008

Ok, je retourne me coucher :mouarf:
27/11/2024, 13h17
touche_a_tout

[XL-2016] Pour simplifier le code

Bonjour et merci Joe Levrai,
Question HS: Sur ce forum il m'arrive de faire Ctrl/a au lieu de Maj/a, ce qui efface tout ce qui précède; y a-t-il un moyen de récupérer le texte perdu comme on peut le faire dans un traitement de texte ?.
Je viens au fait: je patauge pas mal dans les fonctions personnalisées. Déjà la tienne contient des termes inconnus de moi: RegExp, la valeur donnée à Pattern, ce qui fait que je ne comprends pas ce qu'elle fait. Et je ne vois pas où placer l'appel de la fonction.
Pour clarifier, voici le contexte: le texte dont je veux faire disparaître les signes de ponctuation occupe la colonne A d'une feuille Excel, à raison d'un mot (ou signe) par cellule. Mon intention est de remplacer les ponctuations par "" puis de supprimer chaque ligne entière dont la première cellule est égale à "".
Parcourir la colonne A en testant chaque cellule, y compris celles contenant un mot, prend un temps fou, d'où le recours à une procédure abrégée.
Il me semble avoir vu une procédure intriquant en série le mot SUBSTITUTE, genre SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE... mais je ne me rappelle pas le contexte. Une idée à ce sujet ?
D'autre part: mon texte-source provient de Word; serait-il préférable d'éliminer la ponctuation dans Word avant de copier le texte-source dans Excel (j'ai besoin qu'il soit dans Excel pour les opérations de statistique proprement dites) ?
Ma question est assez confuse, j'en suis conscient et désolé; merci d'avance de ne pas m'en tenir rigueur.
Cordialement
touche_a_tout

Salut, en reprenant la fonction de joe.levrai, voici une macro qui automatise le processus d'effacement pour la colonne A:

Code:

1
2
3
4
5
6
7
8
9
Function RemovePunctuation(Txt As String) As String
    ' Supprime tous les caractères non alphanumériques et non espaces
    With CreateObject("VBScript.RegExp")
        .Pattern = "[^A-Za-z0-9 ]" ' Garder seulement les lettres, chiffres et espaces
        .IgnoreCase = True
        .Global = True
        RemovePunctuation = .Replace(Txt, "")
    End With
End Function

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Sub NettoyerColonneA()
    Dim DerniereLigne As Long
    Dim i As Long
 
    DerniereLigne = Cells(Rows.Count, 1).End(xlUp).Row
 
    For i = 1 To DerniereLigne
        If Not IsEmpty(Cells(i, 1).Value) Then
            Cells(i, 1).Value = RemovePunctuation(Cells(i, 1).Value)
        End If
    Next i
End Sub

27/11/2024, 17h15
jurassic pork

Hello,
attention le motif choisi enlève aussi les accents héhé ! devient hh
A essayer :

Code:

.Pattern = "[^\w\dÀ-ú ]" '^ pas les \w les lettres et le _ \d les chiffres À-ú toutes les lettres accentuées

Ami calmant, J.P
27/11/2024, 17h59
touche_a_tout

[XL-2016] Pour simplifier le code

Bonsoir,
La fonction de Franc, merci à lui, à laquelle je ne comprends pas grand-chose, moyennant la retouche de J.P. , merci à lui aussi, fonctionne au poil et économise des douzaines de lignes de code, c'est top. Vous êtes excellents.
Voilà une discussion rondement menée à son heureux terme. Bravo.
Cordialement
touche_a_tout
P.S. Super, Franc, le bout de code pour l'incorporation de la fonction au corps de la bidouille. Merci
28/11/2024, 20h22
Invité

Je ne sais pas le but final de la fonction mais si elle se limite uniquement aux caractères latins ça ne pose pas problème mais cette solution reste inadaptée pour les caractères exotiques . je suggère l'utilisation de GetStringType pour récupérer le type de chaque caractère pour ne garder que ceux qui vous intéressent

https://learn.microsoft.com/en-us/wi...getstringtypew
28/11/2024, 20h56
tototiti2008

Bonsoir,

Vraiment, des API pour enlever des ponctuations ?
Déjà regExp, mouais mais bon, 70% des programmeurs de métier (pas mon cas) ont tendance à dire que si on peut se passer de regExp, c'est mieux
On va pas un peu loin ?

Citation:

Function sansPonct(Texte As String)

Dim listePonct As String, mot As String
Dim i As Long
listePonct = "();,.:!?"
mot = Texte

For i = 1 To Len(listePonct)
mot = Replace(mot, Mid(listePonct, i, 1), "")
Next

sansPonct = mot

End Function