Ce mémo a été publié le 20 décembre 2010 et peut contenir des informations qui peuvent être incomplètes, non mises à jour voir erronées du fait de son ancienneté.
N'hésitez pas à compléter votre recherche sur des articles plus récents.
La fonction replace est pratique, mais à ses limites.
Pour palier à cela, voici une fonction qui utilise cette fonction en améliorant le rendu final.
Voici une fonction simple qui permet de supprimer tous les espaces en double, triple, quadruple, etc…
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 |
Public Function func_DelAllSpace(str_ParamString As String) Dim str_TempString As String Dim i As Integer str_TempString = LTrim(str_ParamString) str_TempString = RTrim(str_TempString) i = InStr(1, str_TempString, " ") While i <> 0 str_TempString = Replace(str_TempString, " ", " ") i = InStr(1, str_TempString, " ") DoEvents Wend func_DelAllSpace = str_TempString End Function |
Exemple d’utilisation :
1 2 3 4 5 6 7 8 9 10 |
Sub test_space() Dim str_test As String str_test = "C'est trop top !" Debug.Print str_test str_test = func_DelAllSpace(str_test) Debug.Print str_test End Sub |
Résultat :
1 2 |
C'est trop top ! C'est trop top ! |
BRAVO ET MERCI
De rien, content d’avoir pu aider !
ça m’a aidé , merci bcp
Bonjour, Jérôme, je trouve votre tuto explicite et concis, merci encore.
Avec plaisir !
Merci