Bonjour tout le monde,
J’ai un code qui recherche dans une plage tous les accents et les remplaces par la même lettre sans accents, voir remplacer les caractères spéciaux par une espace.
Ce code fonctionne très bien mais je me demandais s’il y aurait une façon plus rapide d'effectuer cette manipulation car le traitement me semble très lent. Mon LastRow = 1100 max.
Je note que ces calculs se font par le processeur.
Début Code -----------------
Fin Code -----------------
K contient le nom et prénoms d'une personne
merci d'avance pour votre aide
J’ai un code qui recherche dans une plage tous les accents et les remplaces par la même lettre sans accents, voir remplacer les caractères spéciaux par une espace.
Ce code fonctionne très bien mais je me demandais s’il y aurait une façon plus rapide d'effectuer cette manipulation car le traitement me semble très lent. Mon LastRow = 1100 max.
Je note que ces calculs se font par le processeur.
Début Code -----------------
Const Accents As String = "àâäåéèêëîïôöùûüÈÉÊËÀÁÂÃÄÅÙÚÛÜ-_"
Const Normaux As String = "aaaaeeeeiioouuuEEEEAAAAAAUUUU "
Dim c As Range, ai As Byte
For Each c In Range("K2:K" & LastRow)
For ai = 1 To Len(Accents)
c.Value = Replace(c.Value, Mid(Accents, ai, 1), Mid(Normaux, ai, 1))
Next ai
Next c
Fin Code -----------------
K contient le nom et prénoms d'une personne
merci d'avance pour votre aide