XL 2016 supprimer caractères spéciaux

[david gom]

Bonjour je souhaite supprimer les caractères spéciaux autres que a-z sur ce fichier.

Auriez vous une solution ?

Merci à vous

 

[david gom]

Re et un salut à Staple1600

Ah. Pourquoi ai-je encore un gros doute ?
Si je m'en tiens rigoureusement à cette nouvelle expression, "Apôtre" , par exemple, serait donc remplacé par "Aptre".
(nous en sommes au 15ème message et le doute subsiste).

Bonjour,

Oui pas de problème si les lettres liées aux caractères spéciaux disparaissent aussi.
Merci,

 

[Staple1600]

Re

•>david gom
J'ai ouvert ton fichier
Et je t'invite donc à lire urgemment le point 1) de la charte du forum.
Celui parle de RGPD.
Ceci fait, tu devineras ce que tu dois faire avec ton fichier...🙄

 

[david gom]

Re

•>david gom
J'ai ouvert ton fichier
Et je t'invite donc à lire urgemment le point 1) de la charte du forum.
Celui parle de RGPD.
Ceci fait, tu devineras ce que tu dois faire avec ton fichier...🙄

En effet, j'ai modifié le fichier.

 

[Staple1600]

Re

•>david gom
Ah, bon?
Pourtant, c'est toujours le même fichier dans le message#1, non?
Avec tout plein de patronymes non fictifs...

 

[patricktoulon]

Oui pas de problème si les lettres liées aux caractères spéciaux disparaissent aussi.
Merci,

dans ce cas là

Sub Test2()
    Dim cel As Range
    For Each cel In [A1:c10].Cells
        With CreateObject("VBScript.RegExp")
            .Global = True: .IgnoreCase = True
            .Pattern = "[^\w]"
            cel.Value = .Replace(cel.Text, "")
        End With
    Next
End Sub

 

[david gom]

Re

•>david gom
Ah, bon?
Pourtant, c'est toujours le même fichier dans le message#1, non?
Avec tout plein de patronymes non fictifs...

Lorsque j'ouvre le fichier je ne vois que des patronymes fictifs mais bon...

 

[Staple1600]

Bonjour à toi aussi patriclktoulon...🙄

Donc en reprenant le code de job75 dans le fil que je citais

Sub Epure()
Dim tablo, E, t, i&
tablo = Array("Ã", "©", "Ã", "¨", "‰", "«", "¯") 'caractères spéciaux
E = Range("A1:A2", Range("A" & Rows.Count).End(xlUp))
For Each t In tablo
  For i = 1 To UBound(E)
    E(i, 1) = Application.Trim(Replace(E(i, 1), t, " "))
  Next
Next
E(1, 1) = "Epuré" 'si ligne de titres
[B1].Resize(UBound(E)) = E
End Sub

 

[Staple1600]

Re

•>david gom
Oui, désolé
C'est parce que, je n'ai pas vu d'indication de modification de ton premier message.
Maintenant, tu as deux solutions
(dont une qui se trouvait dans les archives du forum comme signalé dès le message#2...)

 

[david gom]

Bonjour à toi aussi patriclktoulon...🙄

Donc en reprenant le code de job75 dans le fil que je citais

Sub Epure()
Dim tablo, E, t, i&
tablo = Array("Ã", "©", "Ã", "¨", "‰", "«", "¯") 'caractères spéciaux
E = Range("A1:A2", Range("A" & Rows.Count).End(xlUp))
For Each t In tablo
  For i = 1 To UBound(E)
    E(i, 1) = Application.Trim(Replace(E(i, 1), t, " "))
  Next
Next
E(1, 1) = "Epuré" 'si ligne de titres
[B1].Resize(UBound(E)) = E
End Sub

Merci pour le temps accordé ça fonctionne.
J'ai justement modifié les noms sur le fichier pour que ce soit des noms fictifs

 

[Staple1600]

Re

Ok
Mais on est bien d'accord que le 1ère version de ton fichier était plein de noms réels?
(Ils sont encore affichés dans mon Excel en ce moment)
J'avais pas la berlue, non ? 😉

 

[jmfmarques]

Re
Si je m'en tiens aux réponses, telles que données, données à mes question insistantes, j'arrive à cette fonction :

Private Function machette(ch As String) As String
  Dim k As Integer, titi
  titi = Split(StrConv(ch, vbUnicode), Chr(0))
  For k = 0 To UBound(titi) - 1
    If titi(k) Like "[!A-z]" Then titi(k) = Chr(1)
  Next
  machette = Replace(Join(titi, ""), Chr(1), "")
End Function

Exemple d'utilisation :

MsgBox machette("Maintenant qu'est levée l'ambiguïté")

 

[david gom]

Re

Ok
Mais on est bien d'accord que le 1ère version de ton fichier était plein de noms réels?
(Ils sont encore affichés dans mon Excel en ce moment)
J'avais pas la berlue, non ? 😉

Oui bien sur j'ai modifié à la suite de ton message

 

[mapomme]

Bonsoir à tous 🙂,

Une petite fonction en VBA pur glanée sur le net.

• Auteur : Marcos Rieper
• Lien : https://www.guiadoexcel.com.br/converter-utf8-para-iso-8859-1-ascii-ansi/

Cette fonction ne supprime pas les caractères spéciaux (ce qui à mon humble avis ne se justifie en aucun cas) mais les transforme en caractère ascii.

Voir application dans le fichier joint.

nota: Super! je lis le vba portugais et je ne le savais pas 😛

Le code:

'----------------------------------------------------------------------------------------------
'---------------- Fonction sur le net
'---------------- par Marcos Rieper
'---------------- https://www.guiadoexcel.com.br/converter-utf8-para-iso-8859-1-ascii-ansi/
'---------------- Vidéo de présebntation + Code VBA
'----------------------------------------------------------------------------------------------

Function fnConverterUTF8(ByVal Texto_para_converter As String)
   Dim l As Long, sUTF8 As String
   Dim iChar As Integer
   Dim iChar2 As Integer

   For l = 1 To Len(Texto_para_converter)
      iChar = Asc(Mid(Texto_para_converter, l, 1))
      If iChar > 127 Then
         If Not iChar And 32 Then
         iChar2 = Asc(Mid(Texto_para_converter, l + 1, 1))
         sUTF8 = sUTF8 & ChrW$(((31 And iChar) * 64 + (63 And iChar2)))
         l = l + 1
      Else
         Dim iChar3 As Integer
         iChar2 = Asc(Mid(Texto_para_converter, l + 1, 1))
         iChar3 = Asc(Mid(Texto_para_converter, l + 2, 1))
         sUTF8 = sUTF8 & ChrW$(((iChar And 15) * 16 * 256) + ((iChar2 And 63) * 64) + (iChar3 And 63))
         l = l + 2
      End If
         Else
         sUTF8 = sUTF8 & Chr$(iChar)
      End If
   Next l
   fnConverterUTF8 = sUTF8
End Function

 

[Staple1600]

Bonsoir mapomme

Bravo pour cette contribution lusitanienne 😉
(testé sur le fichier d'origine (que je n'ai pas encore supprimé)
PS: tu lis plus tes MP ? (bis)

 

[Amilo]

Bonjour à tous,
Comme mapomme 😉, une proposition pour le fun,

Cordialement