Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
jps
bonjour laurent étrange exemple qu'un exemple où on ne voit pas l'once d'un accent.... bref, pour les accents (mais pas pour les cédilles), j'ai trouvé cela dans mes archives, signé alain vallon (av) s'il nous lit, il saura ajouter le Case qui va bien pour le ç.. HTH jps
Sub supprimerAccents() Dim C Application.ScreenUpdating = False For Each C In Selection C.Value = Virer_Accents(C.Value) Next C End Sub Function Virer_Accents$(Chaine$) Dim tmp$ Dim i Dim X
tmp = Trim(Chaine) For i = 1 To Len(tmp) X = Asc(Mid(tmp, i, 1)) Select Case X Case 192 To 197: X = "A" Case 200 To 203: X = "E" Case 204 To 207: X = "I" Case 209: X = "N" Case 210 To 214: X = "O" Case 217 To 220: X = "U" Case 221: X = "Y" Case 224 To 229: X = "a" Case 232 To 235: X = "e" Case 236 To 239: X = "i" Case 241: X = "n" Case 240, 242 To 246: X = "o" Case 249 To 252: X = "u" Case 253, 255: X = "y" Case Else: X = Chr(X) End Select Virer_Accents = Virer_Accents & X Next End Function 'av
"Laurent Fron" a écrit dans le message de news:42f88888$0$5792$
Bonjour,
Je souhaire une fonction simple pour remplacer les caractères accentués dans
une cellule par les caractères non accentués.
ex: françois devient ; francois
Pouvez vous m'aider ?
Merci
/lfr
bonjour laurent
étrange exemple qu'un exemple où on ne voit pas l'once d'un accent....
bref, pour les accents (mais pas pour les cédilles), j'ai trouvé cela dans
mes archives, signé alain vallon (av)
s'il nous lit, il saura ajouter le Case qui va bien pour le ç..
HTH
jps
Sub supprimerAccents()
Dim C
Application.ScreenUpdating = False
For Each C In Selection
C.Value = Virer_Accents(C.Value)
Next C
End Sub
Function Virer_Accents$(Chaine$)
Dim tmp$
Dim i
Dim X
tmp = Trim(Chaine)
For i = 1 To Len(tmp)
X = Asc(Mid(tmp, i, 1))
Select Case X
Case 192 To 197: X = "A"
Case 200 To 203: X = "E"
Case 204 To 207: X = "I"
Case 209: X = "N"
Case 210 To 214: X = "O"
Case 217 To 220: X = "U"
Case 221: X = "Y"
Case 224 To 229: X = "a"
Case 232 To 235: X = "e"
Case 236 To 239: X = "i"
Case 241: X = "n"
Case 240, 242 To 246: X = "o"
Case 249 To 252: X = "u"
Case 253, 255: X = "y"
Case Else: X = Chr(X)
End Select
Virer_Accents = Virer_Accents & X
Next
End Function 'av
"Laurent Fron" <lfron@free.fr> a écrit dans le message de
news:42f88888$0$5792$636a15ce@news.free.fr...
Bonjour,
Je souhaire une fonction simple pour remplacer les caractères accentués
dans
bonjour laurent étrange exemple qu'un exemple où on ne voit pas l'once d'un accent.... bref, pour les accents (mais pas pour les cédilles), j'ai trouvé cela dans mes archives, signé alain vallon (av) s'il nous lit, il saura ajouter le Case qui va bien pour le ç.. HTH jps
Sub supprimerAccents() Dim C Application.ScreenUpdating = False For Each C In Selection C.Value = Virer_Accents(C.Value) Next C End Sub Function Virer_Accents$(Chaine$) Dim tmp$ Dim i Dim X
tmp = Trim(Chaine) For i = 1 To Len(tmp) X = Asc(Mid(tmp, i, 1)) Select Case X Case 192 To 197: X = "A" Case 200 To 203: X = "E" Case 204 To 207: X = "I" Case 209: X = "N" Case 210 To 214: X = "O" Case 217 To 220: X = "U" Case 221: X = "Y" Case 224 To 229: X = "a" Case 232 To 235: X = "e" Case 236 To 239: X = "i" Case 241: X = "n" Case 240, 242 To 246: X = "o" Case 249 To 252: X = "u" Case 253, 255: X = "y" Case Else: X = Chr(X) End Select Virer_Accents = Virer_Accents & X Next End Function 'av
"Laurent Fron" a écrit dans le message de news:42f88888$0$5792$
Bonjour,
Je souhaire une fonction simple pour remplacer les caractères accentués dans
une cellule par les caractères non accentués.
ex: françois devient ; francois
Pouvez vous m'aider ?
Merci
/lfr
FxM
Bonjour,
Me semble que ce devrait aller en ajoutant :
Case 231: X = "c"
@+ FxM
bonjour laurent étrange exemple qu'un exemple où on ne voit pas l'once d'un accent.... bref, pour les accents (mais pas pour les cédilles), j'ai trouvé cela dans mes archives, signé alain vallon (av) s'il nous lit, il saura ajouter le Case qui va bien pour le ç.. HTH jps
Sub supprimerAccents() Dim C Application.ScreenUpdating = False For Each C In Selection C.Value = Virer_Accents(C.Value) Next C End Sub Function Virer_Accents$(Chaine$) Dim tmp$ Dim i Dim X
tmp = Trim(Chaine) For i = 1 To Len(tmp) X = Asc(Mid(tmp, i, 1)) Select Case X Case 192 To 197: X = "A" Case 200 To 203: X = "E" Case 204 To 207: X = "I" Case 209: X = "N" Case 210 To 214: X = "O" Case 217 To 220: X = "U" Case 221: X = "Y" Case 224 To 229: X = "a" Case 232 To 235: X = "e" Case 236 To 239: X = "i" Case 241: X = "n" Case 240, 242 To 246: X = "o" Case 249 To 252: X = "u" Case 253, 255: X = "y" Case Else: X = Chr(X) End Select Virer_Accents = Virer_Accents & X Next End Function 'av
"Laurent Fron" a écrit dans le message de news:42f88888$0$5792$
Bonjour,
Je souhaire une fonction simple pour remplacer les caractères accentués
dans
une cellule par les caractères non accentués.
ex: françois devient ; francois
Pouvez vous m'aider ?
Merci
/lfr
Bonjour,
Me semble que ce devrait aller en ajoutant :
Case 231: X = "c"
@+
FxM
bonjour laurent
étrange exemple qu'un exemple où on ne voit pas l'once d'un accent....
bref, pour les accents (mais pas pour les cédilles), j'ai trouvé cela dans
mes archives, signé alain vallon (av)
s'il nous lit, il saura ajouter le Case qui va bien pour le ç..
HTH
jps
Sub supprimerAccents()
Dim C
Application.ScreenUpdating = False
For Each C In Selection
C.Value = Virer_Accents(C.Value)
Next C
End Sub
Function Virer_Accents$(Chaine$)
Dim tmp$
Dim i
Dim X
tmp = Trim(Chaine)
For i = 1 To Len(tmp)
X = Asc(Mid(tmp, i, 1))
Select Case X
Case 192 To 197: X = "A"
Case 200 To 203: X = "E"
Case 204 To 207: X = "I"
Case 209: X = "N"
Case 210 To 214: X = "O"
Case 217 To 220: X = "U"
Case 221: X = "Y"
Case 224 To 229: X = "a"
Case 232 To 235: X = "e"
Case 236 To 239: X = "i"
Case 241: X = "n"
Case 240, 242 To 246: X = "o"
Case 249 To 252: X = "u"
Case 253, 255: X = "y"
Case Else: X = Chr(X)
End Select
Virer_Accents = Virer_Accents & X
Next
End Function 'av
"Laurent Fron" <lfron@free.fr> a écrit dans le message de
news:42f88888$0$5792$636a15ce@news.free.fr...
Bonjour,
Je souhaire une fonction simple pour remplacer les caractères accentués
bonjour laurent étrange exemple qu'un exemple où on ne voit pas l'once d'un accent.... bref, pour les accents (mais pas pour les cédilles), j'ai trouvé cela dans mes archives, signé alain vallon (av) s'il nous lit, il saura ajouter le Case qui va bien pour le ç.. HTH jps
Sub supprimerAccents() Dim C Application.ScreenUpdating = False For Each C In Selection C.Value = Virer_Accents(C.Value) Next C End Sub Function Virer_Accents$(Chaine$) Dim tmp$ Dim i Dim X
tmp = Trim(Chaine) For i = 1 To Len(tmp) X = Asc(Mid(tmp, i, 1)) Select Case X Case 192 To 197: X = "A" Case 200 To 203: X = "E" Case 204 To 207: X = "I" Case 209: X = "N" Case 210 To 214: X = "O" Case 217 To 220: X = "U" Case 221: X = "Y" Case 224 To 229: X = "a" Case 232 To 235: X = "e" Case 236 To 239: X = "i" Case 241: X = "n" Case 240, 242 To 246: X = "o" Case 249 To 252: X = "u" Case 253, 255: X = "y" Case Else: X = Chr(X) End Select Virer_Accents = Virer_Accents & X Next End Function 'av
"Laurent Fron" a écrit dans le message de news:42f88888$0$5792$
Bonjour,
Je souhaire une fonction simple pour remplacer les caractères accentués
dans
une cellule par les caractères non accentués.
ex: françois devient ; francois
Pouvez vous m'aider ?
Merci
/lfr
jps
merci françois (francois?)-xavier ; j'ai eu la flemme de rechercher le code ASCII du "c".. et puis, pas de majuscule, c'est déjà bien jps
"FxM" a écrit dans le message de news:uVfY%
Bonjour,
Me semble que ce devrait aller en ajoutant :
Case 231: X = "c"
@+ FxM
bonjour laurent étrange exemple qu'un exemple où on ne voit pas l'once d'un accent.... bref, pour les accents (mais pas pour les cédilles), j'ai trouvé cela dans
mes archives, signé alain vallon (av) s'il nous lit, il saura ajouter le Case qui va bien pour le ç.. HTH jps
Sub supprimerAccents() Dim C Application.ScreenUpdating = False For Each C In Selection C.Value = Virer_Accents(C.Value) Next C End Sub Function Virer_Accents$(Chaine$) Dim tmp$ Dim i Dim X
tmp = Trim(Chaine) For i = 1 To Len(tmp) X = Asc(Mid(tmp, i, 1)) Select Case X Case 192 To 197: X = "A" Case 200 To 203: X = "E" Case 204 To 207: X = "I" Case 209: X = "N" Case 210 To 214: X = "O" Case 217 To 220: X = "U" Case 221: X = "Y" Case 224 To 229: X = "a" Case 232 To 235: X = "e" Case 236 To 239: X = "i" Case 241: X = "n" Case 240, 242 To 246: X = "o" Case 249 To 252: X = "u" Case 253, 255: X = "y" Case Else: X = Chr(X) End Select Virer_Accents = Virer_Accents & X Next End Function 'av
"Laurent Fron" a écrit dans le message de news:42f88888$0$5792$
Bonjour,
Je souhaire une fonction simple pour remplacer les caractères accentués
dans
une cellule par les caractères non accentués.
ex: françois devient ; francois
Pouvez vous m'aider ?
Merci
/lfr
merci françois (francois?)-xavier ; j'ai eu la flemme de rechercher le code
ASCII du "c".. et puis, pas de majuscule, c'est déjà bien
jps
"FxM" <nullos@greuchmeu.ici> a écrit dans le message de
news:uVfY%23DOnFHA.1468@TK2MSFTNGP12.phx.gbl...
Bonjour,
Me semble que ce devrait aller en ajoutant :
Case 231: X = "c"
@+
FxM
bonjour laurent
étrange exemple qu'un exemple où on ne voit pas l'once d'un accent....
bref, pour les accents (mais pas pour les cédilles), j'ai trouvé cela
dans
mes archives, signé alain vallon (av)
s'il nous lit, il saura ajouter le Case qui va bien pour le ç..
HTH
jps
Sub supprimerAccents()
Dim C
Application.ScreenUpdating = False
For Each C In Selection
C.Value = Virer_Accents(C.Value)
Next C
End Sub
Function Virer_Accents$(Chaine$)
Dim tmp$
Dim i
Dim X
tmp = Trim(Chaine)
For i = 1 To Len(tmp)
X = Asc(Mid(tmp, i, 1))
Select Case X
Case 192 To 197: X = "A"
Case 200 To 203: X = "E"
Case 204 To 207: X = "I"
Case 209: X = "N"
Case 210 To 214: X = "O"
Case 217 To 220: X = "U"
Case 221: X = "Y"
Case 224 To 229: X = "a"
Case 232 To 235: X = "e"
Case 236 To 239: X = "i"
Case 241: X = "n"
Case 240, 242 To 246: X = "o"
Case 249 To 252: X = "u"
Case 253, 255: X = "y"
Case Else: X = Chr(X)
End Select
Virer_Accents = Virer_Accents & X
Next
End Function 'av
"Laurent Fron" <lfron@free.fr> a écrit dans le message de
news:42f88888$0$5792$636a15ce@news.free.fr...
Bonjour,
Je souhaire une fonction simple pour remplacer les caractères accentués
merci françois (francois?)-xavier ; j'ai eu la flemme de rechercher le code ASCII du "c".. et puis, pas de majuscule, c'est déjà bien jps
"FxM" a écrit dans le message de news:uVfY%
Bonjour,
Me semble que ce devrait aller en ajoutant :
Case 231: X = "c"
@+ FxM
bonjour laurent étrange exemple qu'un exemple où on ne voit pas l'once d'un accent.... bref, pour les accents (mais pas pour les cédilles), j'ai trouvé cela dans
mes archives, signé alain vallon (av) s'il nous lit, il saura ajouter le Case qui va bien pour le ç.. HTH jps
Sub supprimerAccents() Dim C Application.ScreenUpdating = False For Each C In Selection C.Value = Virer_Accents(C.Value) Next C End Sub Function Virer_Accents$(Chaine$) Dim tmp$ Dim i Dim X
tmp = Trim(Chaine) For i = 1 To Len(tmp) X = Asc(Mid(tmp, i, 1)) Select Case X Case 192 To 197: X = "A" Case 200 To 203: X = "E" Case 204 To 207: X = "I" Case 209: X = "N" Case 210 To 214: X = "O" Case 217 To 220: X = "U" Case 221: X = "Y" Case 224 To 229: X = "a" Case 232 To 235: X = "e" Case 236 To 239: X = "i" Case 241: X = "n" Case 240, 242 To 246: X = "o" Case 249 To 252: X = "u" Case 253, 255: X = "y" Case Else: X = Chr(X) End Select Virer_Accents = Virer_Accents & X Next End Function 'av
"Laurent Fron" a écrit dans le message de news:42f88888$0$5792$
Bonjour,
Je souhaire une fonction simple pour remplacer les caractères accentués
dans
une cellule par les caractères non accentués.
ex: françois devient ; francois
Pouvez vous m'aider ?
Merci
/lfr
AV
...s'il nous lit,
Je suis venu, j'ai lu et je suis repartu (mon intervention aurait semblé superfétatoitre) !
AV
...s'il nous lit,
Je suis venu, j'ai lu et je suis repartu (mon intervention aurait semblé
superfétatoitre) !
et tu ne te foutrais pas un peu de nu, par la même occasion? jps
"AV" a écrit dans le message de news:
...s'il nous lit,
Je suis venu, j'ai lu et je suis repartu (mon intervention aurait semblé superfétatoitre) !
AV
Laurent Fron
Que dire ...
Merci
Et oui pour moi le ç est un accent ....
va falloir que je reprenne mes cours
/lfr
"jps" a écrit dans le message de news: %
bonjour laurent étrange exemple qu'un exemple où on ne voit pas l'once d'un accent.... bref, pour les accents (mais pas pour les cédilles), j'ai trouvé cela dans mes archives, signé alain vallon (av) s'il nous lit, il saura ajouter le Case qui va bien pour le ç.. HTH jps
Sub supprimerAccents() Dim C Application.ScreenUpdating = False For Each C In Selection C.Value = Virer_Accents(C.Value) Next C End Sub Function Virer_Accents$(Chaine$) Dim tmp$ Dim i Dim X
tmp = Trim(Chaine) For i = 1 To Len(tmp) X = Asc(Mid(tmp, i, 1)) Select Case X Case 192 To 197: X = "A" Case 200 To 203: X = "E" Case 204 To 207: X = "I" Case 209: X = "N" Case 210 To 214: X = "O" Case 217 To 220: X = "U" Case 221: X = "Y" Case 224 To 229: X = "a" Case 232 To 235: X = "e" Case 236 To 239: X = "i" Case 241: X = "n" Case 240, 242 To 246: X = "o" Case 249 To 252: X = "u" Case 253, 255: X = "y" Case Else: X = Chr(X) End Select Virer_Accents = Virer_Accents & X Next End Function 'av
"Laurent Fron" a écrit dans le message de news:42f88888$0$5792$
Bonjour,
Je souhaire une fonction simple pour remplacer les caractères accentués dans
une cellule par les caractères non accentués.
ex: françois devient ; francois
Pouvez vous m'aider ?
Merci
/lfr
Que dire ...
Merci
Et oui pour moi le ç est un accent ....
va falloir que je reprenne mes cours
/lfr
"jps" <adresse@ntiscud> a écrit dans le message de news:
%23oAAPBOnFHA.2472@TK2MSFTNGP15.phx.gbl...
bonjour laurent
étrange exemple qu'un exemple où on ne voit pas l'once d'un accent....
bref, pour les accents (mais pas pour les cédilles), j'ai trouvé cela dans
mes archives, signé alain vallon (av)
s'il nous lit, il saura ajouter le Case qui va bien pour le ç..
HTH
jps
Sub supprimerAccents()
Dim C
Application.ScreenUpdating = False
For Each C In Selection
C.Value = Virer_Accents(C.Value)
Next C
End Sub
Function Virer_Accents$(Chaine$)
Dim tmp$
Dim i
Dim X
tmp = Trim(Chaine)
For i = 1 To Len(tmp)
X = Asc(Mid(tmp, i, 1))
Select Case X
Case 192 To 197: X = "A"
Case 200 To 203: X = "E"
Case 204 To 207: X = "I"
Case 209: X = "N"
Case 210 To 214: X = "O"
Case 217 To 220: X = "U"
Case 221: X = "Y"
Case 224 To 229: X = "a"
Case 232 To 235: X = "e"
Case 236 To 239: X = "i"
Case 241: X = "n"
Case 240, 242 To 246: X = "o"
Case 249 To 252: X = "u"
Case 253, 255: X = "y"
Case Else: X = Chr(X)
End Select
Virer_Accents = Virer_Accents & X
Next
End Function 'av
"Laurent Fron" <lfron@free.fr> a écrit dans le message de
news:42f88888$0$5792$636a15ce@news.free.fr...
Bonjour,
Je souhaire une fonction simple pour remplacer les caractères accentués
dans
bonjour laurent étrange exemple qu'un exemple où on ne voit pas l'once d'un accent.... bref, pour les accents (mais pas pour les cédilles), j'ai trouvé cela dans mes archives, signé alain vallon (av) s'il nous lit, il saura ajouter le Case qui va bien pour le ç.. HTH jps
Sub supprimerAccents() Dim C Application.ScreenUpdating = False For Each C In Selection C.Value = Virer_Accents(C.Value) Next C End Sub Function Virer_Accents$(Chaine$) Dim tmp$ Dim i Dim X
tmp = Trim(Chaine) For i = 1 To Len(tmp) X = Asc(Mid(tmp, i, 1)) Select Case X Case 192 To 197: X = "A" Case 200 To 203: X = "E" Case 204 To 207: X = "I" Case 209: X = "N" Case 210 To 214: X = "O" Case 217 To 220: X = "U" Case 221: X = "Y" Case 224 To 229: X = "a" Case 232 To 235: X = "e" Case 236 To 239: X = "i" Case 241: X = "n" Case 240, 242 To 246: X = "o" Case 249 To 252: X = "u" Case 253, 255: X = "y" Case Else: X = Chr(X) End Select Virer_Accents = Virer_Accents & X Next End Function 'av
"Laurent Fron" a écrit dans le message de news:42f88888$0$5792$
Bonjour,
Je souhaire une fonction simple pour remplacer les caractères accentués dans
une cellule par les caractères non accentués.
ex: françois devient ; francois
Pouvez vous m'aider ?
Merci
/lfr
AV
et tu ne te foutrais pas un peu de nu, par la même occasion?
Ben pourqu ? T'avais donnu l'essentiel et FxM avait complétu; qu'aurais-je donc pu ajoutu ?
AV
et tu ne te foutrais pas un peu de nu, par la même occasion?
Ben pourqu ?
T'avais donnu l'essentiel et FxM avait complétu; qu'aurais-je donc pu ajoutu ?
et tu ne te foutrais pas un peu de nu, par la même occasion?
Ben pourqu ? T'avais donnu l'essentiel et FxM avait complétu; qu'aurais-je donc pu ajoutu ?
AV
jps
ce n'était qu'une boutade, un trait de (mauvais) esprit...te absolvo, laurent tu as vu que FxM a complété le Case pour le ç... jps
"Laurent Fron" a écrit dans le message de news:42f8d93b$0$11621$
Que dire ...
Merci
Et oui pour moi le ç est un accent ....
va falloir que je reprenne mes cours
/lfr
"jps" a écrit dans le message de news: %
bonjour laurent étrange exemple qu'un exemple où on ne voit pas l'once d'un accent.... bref, pour les accents (mais pas pour les cédilles), j'ai trouvé cela dans
mes archives, signé alain vallon (av) s'il nous lit, il saura ajouter le Case qui va bien pour le ç.. HTH jps
Sub supprimerAccents() Dim C Application.ScreenUpdating = False For Each C In Selection C.Value = Virer_Accents(C.Value) Next C End Sub Function Virer_Accents$(Chaine$) Dim tmp$ Dim i Dim X
tmp = Trim(Chaine) For i = 1 To Len(tmp) X = Asc(Mid(tmp, i, 1)) Select Case X Case 192 To 197: X = "A" Case 200 To 203: X = "E" Case 204 To 207: X = "I" Case 209: X = "N" Case 210 To 214: X = "O" Case 217 To 220: X = "U" Case 221: X = "Y" Case 224 To 229: X = "a" Case 232 To 235: X = "e" Case 236 To 239: X = "i" Case 241: X = "n" Case 240, 242 To 246: X = "o" Case 249 To 252: X = "u" Case 253, 255: X = "y" Case Else: X = Chr(X) End Select Virer_Accents = Virer_Accents & X Next End Function 'av
"Laurent Fron" a écrit dans le message de news:42f88888$0$5792$
Bonjour,
Je souhaire une fonction simple pour remplacer les caractères accentués dans
une cellule par les caractères non accentués.
ex: françois devient ; francois
Pouvez vous m'aider ?
Merci
/lfr
ce n'était qu'une boutade, un trait de (mauvais) esprit...te absolvo,
laurent
tu as vu que FxM a complété le Case pour le ç...
jps
"Laurent Fron" <lfron@free.fr> a écrit dans le message de
news:42f8d93b$0$11621$636a15ce@news.free.fr...
Que dire ...
Merci
Et oui pour moi le ç est un accent ....
va falloir que je reprenne mes cours
/lfr
"jps" <adresse@ntiscud> a écrit dans le message de news:
%23oAAPBOnFHA.2472@TK2MSFTNGP15.phx.gbl...
bonjour laurent
étrange exemple qu'un exemple où on ne voit pas l'once d'un accent....
bref, pour les accents (mais pas pour les cédilles), j'ai trouvé cela
dans
mes archives, signé alain vallon (av)
s'il nous lit, il saura ajouter le Case qui va bien pour le ç..
HTH
jps
Sub supprimerAccents()
Dim C
Application.ScreenUpdating = False
For Each C In Selection
C.Value = Virer_Accents(C.Value)
Next C
End Sub
Function Virer_Accents$(Chaine$)
Dim tmp$
Dim i
Dim X
tmp = Trim(Chaine)
For i = 1 To Len(tmp)
X = Asc(Mid(tmp, i, 1))
Select Case X
Case 192 To 197: X = "A"
Case 200 To 203: X = "E"
Case 204 To 207: X = "I"
Case 209: X = "N"
Case 210 To 214: X = "O"
Case 217 To 220: X = "U"
Case 221: X = "Y"
Case 224 To 229: X = "a"
Case 232 To 235: X = "e"
Case 236 To 239: X = "i"
Case 241: X = "n"
Case 240, 242 To 246: X = "o"
Case 249 To 252: X = "u"
Case 253, 255: X = "y"
Case Else: X = Chr(X)
End Select
Virer_Accents = Virer_Accents & X
Next
End Function 'av
"Laurent Fron" <lfron@free.fr> a écrit dans le message de
news:42f88888$0$5792$636a15ce@news.free.fr...
Bonjour,
Je souhaire une fonction simple pour remplacer les caractères accentués
dans
ce n'était qu'une boutade, un trait de (mauvais) esprit...te absolvo, laurent tu as vu que FxM a complété le Case pour le ç... jps
"Laurent Fron" a écrit dans le message de news:42f8d93b$0$11621$
Que dire ...
Merci
Et oui pour moi le ç est un accent ....
va falloir que je reprenne mes cours
/lfr
"jps" a écrit dans le message de news: %
bonjour laurent étrange exemple qu'un exemple où on ne voit pas l'once d'un accent.... bref, pour les accents (mais pas pour les cédilles), j'ai trouvé cela dans
mes archives, signé alain vallon (av) s'il nous lit, il saura ajouter le Case qui va bien pour le ç.. HTH jps
Sub supprimerAccents() Dim C Application.ScreenUpdating = False For Each C In Selection C.Value = Virer_Accents(C.Value) Next C End Sub Function Virer_Accents$(Chaine$) Dim tmp$ Dim i Dim X
tmp = Trim(Chaine) For i = 1 To Len(tmp) X = Asc(Mid(tmp, i, 1)) Select Case X Case 192 To 197: X = "A" Case 200 To 203: X = "E" Case 204 To 207: X = "I" Case 209: X = "N" Case 210 To 214: X = "O" Case 217 To 220: X = "U" Case 221: X = "Y" Case 224 To 229: X = "a" Case 232 To 235: X = "e" Case 236 To 239: X = "i" Case 241: X = "n" Case 240, 242 To 246: X = "o" Case 249 To 252: X = "u" Case 253, 255: X = "y" Case Else: X = Chr(X) End Select Virer_Accents = Virer_Accents & X Next End Function 'av
"Laurent Fron" a écrit dans le message de news:42f88888$0$5792$
Bonjour,
Je souhaire une fonction simple pour remplacer les caractères accentués dans
une cellule par les caractères non accentués.
ex: françois devient ; francois
Pouvez vous m'aider ?
Merci
/lfr
jps
:-)))))) jps
"AV" a écrit dans le message de news: %
et tu ne te foutrais pas un peu de nu, par la même occasion?
Ben pourqu ? T'avais donnu l'essentiel et FxM avait complétu; qu'aurais-je donc pu ajoutu ?
AV
:-))))))
jps
"AV" <alainPFFFvallon@wanadoo.fr> a écrit dans le message de news:
%23awiEFQnFHA.2860@TK2MSFTNGP15.phx.gbl...
et tu ne te foutrais pas un peu de nu, par la même occasion?
Ben pourqu ?
T'avais donnu l'essentiel et FxM avait complétu; qu'aurais-je donc pu
ajoutu ?
