AV m’a proposé une fonction qui vire les accents pour pallier à un fichier
DRH bancal, comment la corriger afin que ç soit changé en c.
La fonction est :
Function VirerAccents$(chaine$)
'Fonction AV
Dim tmp$
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
VirerAccents = VirerAccents & x
Next
End Function
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
Francois L
Bonjour à tous
AV ma proposé une fonction qui vire les accents pour pallier à un fichier DRH bancal, comment la corriger afin que ç soit changé en c. La fonction est :
Function VirerAccents$(chaine$)
'Fonction AV Dim tmp$ 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 VirerAccents = VirerAccents & x Next End Function
Bonsoir,
A priori, le code 199 pour la majuscule et 231 pour la minuscule.
-- François L
Bonjour à tous
AV ma proposé une fonction qui vire les accents pour pallier à un fichier
DRH bancal, comment la corriger afin que ç soit changé en c.
La fonction est :
Function VirerAccents$(chaine$)
'Fonction AV
Dim tmp$
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
VirerAccents = VirerAccents & x
Next
End Function
Bonsoir,
A priori, le code 199 pour la majuscule et 231 pour la minuscule.
AV ma proposé une fonction qui vire les accents pour pallier à un fichier DRH bancal, comment la corriger afin que ç soit changé en c. La fonction est :
Function VirerAccents$(chaine$)
'Fonction AV Dim tmp$ 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 VirerAccents = VirerAccents & x Next End Function
Bonsoir,
A priori, le code 199 pour la majuscule et 231 pour la minuscule.
-- François L
Jean-Paul V
Bonjour François
Merci ça marche du moins avec ç , je ne sais pas faire un ç majuscule,je n'ai pas testé. Bonne journée
Bonjour à tous
AV m’a proposé une fonction qui vire les accents pour pallier à un fichier DRH bancal, comment la corriger afin que ç soit changé en c. La fonction est :
Function VirerAccents$(chaine$)
'Fonction AV Dim tmp$ 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 VirerAccents = VirerAccents & x Next End Function
Bonsoir,
A priori, le code 199 pour la majuscule et 231 pour la minuscule.
-- François L
Bonjour François
Merci ça marche du moins avec ç , je ne sais pas faire un ç majuscule,je
n'ai pas testé.
Bonne journée
Bonjour à tous
AV m’a proposé une fonction qui vire les accents pour pallier à un fichier
DRH bancal, comment la corriger afin que ç soit changé en c.
La fonction est :
Function VirerAccents$(chaine$)
'Fonction AV
Dim tmp$
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
VirerAccents = VirerAccents & x
Next
End Function
Bonsoir,
A priori, le code 199 pour la majuscule et 231 pour la minuscule.
Merci ça marche du moins avec ç , je ne sais pas faire un ç majuscule,je n'ai pas testé. Bonne journée
Bonjour à tous
AV m’a proposé une fonction qui vire les accents pour pallier à un fichier DRH bancal, comment la corriger afin que ç soit changé en c. La fonction est :
Function VirerAccents$(chaine$)
'Fonction AV Dim tmp$ 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 VirerAccents = VirerAccents & x Next End Function
Bonsoir,
A priori, le code 199 pour la majuscule et 231 pour la minuscule.
-- François L
Francois L
Bonjour François
Merci ça marche du moins avec ç , je ne sais pas faire un ç majuscule,je n'ai pas testé.
Re, Pour Ç : Alt+128
-- François L
Bonjour François
Merci ça marche du moins avec ç , je ne sais pas faire un ç majuscule,je
n'ai pas testé.
Cher MichDenis voilà une bien pertinente intvervention...
...ce qui n'est pas toujours le cas dans ce forum où certains se croient malins en intervenant pour ne rien dire et sermer la zizanie en mélangeant tous les fils ! Je tenais à le dire haut et fort !
Merci pour ton aide précieuse - à une prochaine - Croy
Cher MichDenis voilà une bien pertinente intvervention...
...ce qui n'est pas toujours le cas dans ce forum où certains se
croient malins en intervenant pour ne rien dire et sermer la zizanie en
mélangeant tous les fils ! Je tenais à le dire haut et fort !
Merci pour ton aide précieuse - à une prochaine - Croy
Cher MichDenis voilà une bien pertinente intvervention...
...ce qui n'est pas toujours le cas dans ce forum où certains se croient malins en intervenant pour ne rien dire et sermer la zizanie en mélangeant tous les fils ! Je tenais à le dire haut et fort !
Merci pour ton aide précieuse - à une prochaine - Croy
