Etant toujours autodidacte sur VBA sur excel 2007 ( pffff) j'ai lu
quelque part (enfin il me semble) qu'il existait une instruction VB
permettant de supprimer les caractères spéciaux d'une chaîne de caractère...
Par exemple : si on ecris :
moi,toujours/stupide
apres passage de l'instruction on obtenait :
moitoujoursstupide
Voila je perds des heures à chercher quelques chose qui n'existe auquel cas
je crèerai ce qu'il faut pas ou.....
Monseigneur susurerait-il qu'il lui manque une case, au Brunos ?
-- Bien amicalmement, "Le vin est au repas ce que le parfum est à la femme."
Jacquouille.
"Mgr Banni" a écrit dans le message de news:
bonjour brunos manque quand même un p'tit truc dans cette function car "toi,plus/bête" va renvoyer "toiplusbte" me semble qu'il faille rajouter un Case mais lequel? Mgr T.B.
"Brunos" a écrit dans le message de news:
Etant toujours autodidacte sur VBA sur excel 2007 ( pffff) j'ai lu quelque part (enfin il me semble) qu'il existait une instruction VB permettant de supprimer les caractères spéciaux d'une chaîne de caractère...
Par exemple : si on ecris : moi,toujours/stupide apres passage de l'instruction on obtenait : moitoujoursstupide
Exemple de fonction personnalisée:
Function TexteEpure(Texte As String) As String ' supprime tous les caractères AUTRES ' que "a à z","A à Z" ou chiffre. ' voir aide sur ASC et table de caractères ASCII. Dim tempmot As String, TempCar As String For i = 1 To Len(Texte) TempCar = Mid(Texte, i, 1) Select Case Asc(TempCar) Case 48 To 57 'chiffre Case 65 To 90 'caractères A à Z Case 97 To 122 'caractères a à z Case Else TempCar = "" End Select tempmot = tempmot + TempCar Next i TexteEpure = tempmot End Function
Dans ton tableau =TexteEpure("toi,plus/stupide") renvoie "toiplusstupide" -- Brunos
Monseigneur susurerait-il qu'il lui manque une case, au Brunos ?
--
Bien amicalmement,
"Le vin est au repas ce que le parfum est à la femme."
Jacquouille.
"Mgr Banni" <banni@lacurie.va> a écrit dans le message de news:
e3QzJcXaIHA.5980@TK2MSFTNGP04.phx.gbl...
bonjour brunos
manque quand même un p'tit truc dans cette function
car "toi,plus/bête" va renvoyer "toiplusbte"
me semble qu'il faille rajouter un Case mais lequel?
Mgr T.B.
"Brunos" <pasdemail@moi.mezig> a écrit dans le message de news:
OlCXRMXaIHA.4196@TK2MSFTNGP04.phx.gbl...
Etant toujours autodidacte sur VBA sur excel 2007 ( pffff) j'ai lu
quelque part (enfin il me semble) qu'il existait une instruction VB
permettant de supprimer les caractères spéciaux d'une chaîne de
caractère...
Par exemple : si on ecris :
moi,toujours/stupide
apres passage de l'instruction on obtenait :
moitoujoursstupide
Exemple de fonction personnalisée:
Function TexteEpure(Texte As String) As String
' supprime tous les caractères AUTRES
' que "a à z","A à Z" ou chiffre.
' voir aide sur ASC et table de caractères ASCII.
Dim tempmot As String, TempCar As String
For i = 1 To Len(Texte)
TempCar = Mid(Texte, i, 1)
Select Case Asc(TempCar)
Case 48 To 57 'chiffre
Case 65 To 90 'caractères A à Z
Case 97 To 122 'caractères a à z
Case Else
TempCar = ""
End Select
tempmot = tempmot + TempCar
Next i
TexteEpure = tempmot
End Function
Dans ton tableau =TexteEpure("toi,plus/stupide") renvoie "toiplusstupide"
--
Brunos
Monseigneur susurerait-il qu'il lui manque une case, au Brunos ?
-- Bien amicalmement, "Le vin est au repas ce que le parfum est à la femme."
Jacquouille.
"Mgr Banni" a écrit dans le message de news:
bonjour brunos manque quand même un p'tit truc dans cette function car "toi,plus/bête" va renvoyer "toiplusbte" me semble qu'il faille rajouter un Case mais lequel? Mgr T.B.
"Brunos" a écrit dans le message de news:
Etant toujours autodidacte sur VBA sur excel 2007 ( pffff) j'ai lu quelque part (enfin il me semble) qu'il existait une instruction VB permettant de supprimer les caractères spéciaux d'une chaîne de caractère...
Par exemple : si on ecris : moi,toujours/stupide apres passage de l'instruction on obtenait : moitoujoursstupide
Exemple de fonction personnalisée:
Function TexteEpure(Texte As String) As String ' supprime tous les caractères AUTRES ' que "a à z","A à Z" ou chiffre. ' voir aide sur ASC et table de caractères ASCII. Dim tempmot As String, TempCar As String For i = 1 To Len(Texte) TempCar = Mid(Texte, i, 1) Select Case Asc(TempCar) Case 48 To 57 'chiffre Case 65 To 90 'caractères A à Z Case 97 To 122 'caractères a à z Case Else TempCar = "" End Select tempmot = tempmot + TempCar Next i TexteEpure = tempmot End Function
Dans ton tableau =TexteEpure("toi,plus/stupide") renvoie "toiplusstupide" -- Brunos
