Discussion :

[touche_a_tout]

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

[joe.levrai]

Bonjour,


via une fonction personnalisée ?

Code :

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

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

[tototiti2008]

Bonjour,

une autre possibilité

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
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

[joe.levrai]

Bonjour,

c'est la ponctuation, et non les accents, qu'il souhaite supprimer

[tototiti2008]

Ok, je retourne me coucher

[touche_a_tout]

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

[Franc]

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

Code :

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

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 :

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

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

[jurassic pork]

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

Code :

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

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

Ami calmant, J.P

[touche_a_tout]

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

[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 ?

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