Sub SansAccent() Dim c As Range For Each c In ActiveSheet.UsedRange c.Value = Virer_Accents$(c.Value) Next c End Sub
Cordialement. Daniel Merci c'est bon ça fonctionne parfaitement
M.
JB
Bonjour,
Pour ne pas détruire les formules.
Sub sansAccent() For Each c In Cells.SpecialCells(xlCellTypeConstants, 23) codeA = "ÉÈÊËÔéèêëàçùôûïî" codeB = "EEEEOeeeeacuouii" temp = c 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 c.Value = temp Next c End Sub
JB
On 11 mar, 15:56, Michel (pen ar bed) wrote:
bonjour,
Sur excelabo j'ai trouvé une fonction qui enlève les accents cela fonctionne impect directement sur les cellules (merci)
mais ce que je n'arrive pas à faire avec c'est m'en servir pour virer tous les accents d'une feuille d'un seul coup
un petit coup de main Merci M.
Bonjour,
Pour ne pas détruire les formules.
Sub sansAccent()
For Each c In Cells.SpecialCells(xlCellTypeConstants, 23)
codeA = "ÉÈÊËÔéèêëàçùôûïî"
codeB = "EEEEOeeeeacuouii"
temp = c
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
c.Value = temp
Next c
End Sub
JB
On 11 mar, 15:56, Michel (pen ar bed) <Mic...@mail.net> wrote:
bonjour,
Sur excelabo j'ai trouvé une fonction qui enlève les accents cela
fonctionne impect directement sur les cellules (merci)
mais ce que je n'arrive pas à faire avec c'est m'en servir pour virer
tous les accents d'une feuille d'un seul coup
Sub sansAccent() For Each c In Cells.SpecialCells(xlCellTypeConstants, 23) codeA = "ÉÈÊËÔéèêëàçùôûïî" codeB = "EEEEOeeeeacuouii" temp = c 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 c.Value = temp Next c End Sub
JB
On 11 mar, 15:56, Michel (pen ar bed) wrote:
bonjour,
Sur excelabo j'ai trouvé une fonction qui enlève les accents cela fonctionne impect directement sur les cellules (merci)
mais ce que je n'arrive pas à faire avec c'est m'en servir pour virer tous les accents d'une feuille d'un seul coup
un petit coup de main Merci M.
Michel (pen ar bed)
Bonjour,
Pour ne pas détruire les formules.
Sub sansAccent() For Each c In Cells.SpecialCells(xlCellTypeConstants, 23) codeA = "ÉÈÊËÔéèêëàçùôûïî" codeB = "EEEEOeeeeacuouii" temp = c 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 c.Value = temp Next c End Sub
JB
Merci
Bonjour,
Pour ne pas détruire les formules.
Sub sansAccent()
For Each c In Cells.SpecialCells(xlCellTypeConstants, 23)
codeA = "ÉÈÊËÔéèêëàçùôûïî"
codeB = "EEEEOeeeeacuouii"
temp = c
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
c.Value = temp
Next c
End Sub
Sub sansAccent() For Each c In Cells.SpecialCells(xlCellTypeConstants, 23) codeA = "ÉÈÊËÔéèêëàçùôûïî" codeB = "EEEEOeeeeacuouii" temp = c 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 c.Value = temp Next c End Sub