Bonjour tout le monde,
Je viens vers vous concernant une demande sur une suppression d'accent ... Je tourne un peu en rond j'arrive à le faire de manière automatique sur toute la feuille dès que je rentre mon mot mais j'aimerais en fait réussir à ne le faire que sur une "Range" et sur ça je bloque ...
J'ai fait un module contenant :
Function sansAccent(mot As String)
Dim listeAccents As String, listeLettres As String
listeAccents = "ÀÁÂÃÄÅÇÈÉÊËÌÍÎÏÒÓÔÕÖÙÚÛÜÝàáâãäåçèéêëìíîïðòóôõöùúûüýÿ"
listeLettres = "AAAAAACEEEEIIIIOOOOOUUUUYaaaaaaceeeeiiiioooooouuuuyy"
Dim i As Integer
For i = 1 To Len(listeAccents)
mot = Replace(mot, Mid(listeAccents, i, 1), Mid(listeLettres, i, 1))
Next
sansAccent = mot
End Function
Et sur ma feuille :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 Then
Target.Formula = sansAccent(Target.Formula)
End If
End Sub
Mais bon comme je le dis ça s'applique sur toute ma feuille sauf que j'aimerais que ce soit limité de A1 à A15 (et dans le meilleur des cas passer même par le Row.Count.End(xlUp) en partant de A8 par exemple.
Merci d'avance à vous et bonne journée,
Cordialement,