supprime tous les accents

[stef1412]

bonjour

je suis tous nouveaux sur excel, je travail depuis 8 jours dans une boite
de routage postal , je reçois des fichiers excel avec des nom et adresse des gens 2000 personnes, mais la poste ne veux pas les accents sur les lettres ni les -et les _ comment faire pour les supprimes en automatique sur excel. j'ai bien vue des codes sur le forum mais je ne sais pas ou les mettre sur excel.
merci pour votre réponse

merci pour votre reponse
mais je comprend rien ou mettre les codes vous avez pas un tuto au secoure, a l'aide
merci

 

[alexga78]

Re : supprime tous les accents

Bonsoir Stef1412, le forum

un essai au plus simple à placer dans un module de l'éditeur de macro (alt F11)

Option Explicit
Dim ws As Worksheet
Sub accent()
For Each ws In ActiveWorkbook.Worksheets
With ws
   .Activate
   Cells.Replace What:="é", Replacement:="e"
   Cells.Replace What:="è", Replacement:="e"
   Cells.Replace What:="à", Replacement:="a"
   Cells.Replace What:="ù", Replacement:="u"
   Cells.Replace What:="-", Replacement:=" "
   Cells.Replace What:="_", Replacement:=" "
End With
Next ws
End Sub

Bonne soirée

 

[BOISGONTIER]

Re : supprime tous les accents

Bonsoir,

Sélectionner le champ à convertir puis lancer la macro:

Sub conv()
  For Each c In Selection
    c.Value = sansAccent(c)
  Next c
End Sub

Function sansAccent(chaine)
   codeA = "ÉÈÊËÔéèêëàçùôûïî"
   codeB = "EEEEOeeeeacuouii"
   temp = chaine
   For i = 1 To Len(temp)
    p = InStr(codeA, Mid(temp, i, 1))
    If p > 0 Then Mid(temp, i, 1) = Mid(codeB, p, 1)
   Next
   sansAccent = temp
End Function

JB
Formation Excel VBA JB

 

[vbacrumble]

Re : supprime tous les accents

Bonsoir

bonjour
... mais la poste ne veux pas les accents sur les lettres ni les -et les _ comment faire pour les supprimes en automatique sur excel...

Je propose cette modif du code De BOISGONTIER, pour les tirets - _

Sub conv()
  For Each c In Selection
    c.Value = Application.Trim(sansAccent(c))
  Next c
End Sub

Function sansAccent(chaine)
   codeA = "ÉÈÊËÔéèêëàçùôûïî-_"
   codeB = "EEEEOeeeeacuouii  "
   temp = chaine
   For i = 1 To Len(temp)
    p = InStr(codeA, Mid(temp, i, 1))
    If p > 0 Then Mid(temp, i, 1) = Mid(codeB, p, 1)
   Next
   sansAccent = temp
End Function

 

[stef1412]

Re : supprime tous les accents

merci pour votre réponse
mais je comprend rien ou mettre les codes vous avez pas un tuto au secoure, a l'aide
merci

 

[vbacrumble]

Re : supprime tous les accents

Bonjour


Tu ouvres ton fichier Excel à traiter

Tu fais Outils/Macros/Visual Basic Editor

Ensuite Insertion/Module

Puis tu copies le code VBA

Ensuite tu retournes dans Excel.

Tu sélectionnes les cellules contenant les caractères à effacer ou remplacer
puis Outils/Macros

Tu sélectionnes conv et tu cliques sur Exécuter.

 

[stef1412]

Re : supprime tous les accents

bonjour et merci a tous