Suppression d'espaces inutiles

Résolu
HelpSurVBA Messages postés 5 Date d'inscription   Statut Membre Dernière intervention   -  
HelpSurVBA Messages postés 5 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

je souhaiterai supprimer sur l'ensemble de ma feuille les espaces inutiles
Mes cellules contiennent des chaînes de caractères.
Mais parfois, entre les mots ils y a des espaces en trop (deux, trois, quatre... espaces). Je voudrais ramener ces espaces à 1
pour que : "Aujourd'hui c'est samedi" (avec 4 espaces entre c'est et samedi)
devienne : "Aujourd'hui c'est samedi"

J'arrive pas à trouver de macro qui fonctionne.
Qui peut m'aider ?


A voir également:

3 réponses

Réponse 1 / 3
Frenchie83 Messages postés 2240 Date d'inscription   Statut Membre Dernière intervention   338
 
Bonjour 
Sub RemplacerEspaces()
    Application.ScreenUpdating = False
    For i = 1 To 10
        Cells.Replace What:="  ", Replacement:=" ", LookAt:=xlPart
    Next i
End Sub

Remplacez la valeur 10 par le nombre maximum d'espaces possibles.
Cdlt
0
Réponse 2 / 3
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 314
 
bonjour helpvba, Frenchie

autre possibilité quelque soit le texte et nombre espaces superflus
un peu usine à gaz mais... 
Option Explicit
'------
Function epurer_espaces(texto)
Dim Brut, Cptr As Byte
Brut = Split(texto, " ")
For Cptr = 0 To UBound(Brut)
    If Brut(Cptr) <> "" Then
        epurer_espaces = epurer_espaces & Brut(Cptr) & " "
    End If
Next
    epurer_espaces = RTrim(epurer_espaces)
End Function
0
Réponse 3 / 3
HelpSurVBA Messages postés 5 Date d'inscription   Statut Membre Dernière intervention  
 
Merci à tous
0

Discussions similaires

Que se passe-t-il quand on supprime un ami sur snapchat
Lilob7 -
kemani06 -

1 réponse