Espace après du texte

Bonjour,

j'ai un gros fichier avec beaucoup de colonne et ligne. Dans chaque cellule, après le texte/chiffre j'ai souvent un ou deux espaces. Avez-vous un code/manip pour les enlever?

Merci!!

bonjour,

utilise LTrim

A+

merci pour l'info.

Voici la formule complète:

=SUPPRESPACE(GAUCHE(B2;NBCAR(B2)-1))

bonne journée

encore mieux!!! Le code n'est pas de moi::

Sub Suppr_Tout_Espace

Dim c
For each c in Selection.Cells
c.Formula = TRIM(c.value)
Next
End Sub

Attention TRIM supprime tous les espaces...

Utilise LTRIM (ne supprime que les espaces situés à droite)

A+

merci mais de toute façon RIEN ne marche: formule, vba, right, left.... il m'affiche bien un vide mais il refuse de l'effacer, plein de c***

même avec ce code il ne m'affiche pas de fenêtre quand il y a un espace à la fin du texte:

If Right(Cells(3220, 19), 1) = " " Then
MsgBox Right(Cells(3220, 19), 1)
End If

même cette formule ne fonctionne pas

=SI(GAUCHE(B6;NBCAR(B6)-1) = " ";SUPPRESPACE(GAUCHE(B7;NBCAR(B7)-1));B6)

il prend les espaces comme un caractère

ce code n'on( plus ne fonctionne pas:

Sub DELETE_Espace()
Dim lastrow, mycolumn
Dim fini As String
lastrow = ActiveSheet.UsedRange.Rows.Count
mycolumn = ActiveCell.Column

    For x = 2 To lastrow
        'Cells(x, mycolumn) = RTrim(Cells(x, mycolumn))
        'fini = RTrim(Cells(x, mycolumn))
        'Cells(x, mycolumn) = fini
        Cells(x, mycolumn) = Trim(Cells(x, mycolumn))
        Cells(x, mycolumn) = LTrim(Cells(x, mycolumn))
        Cells(x, mycolumn) = RTrim(Cells(x, mycolumn))
    Next x

End Sub

Bonjour,

Il ne s'agit peut être pas d'un espace (Chr(32)), mais d'un espace insécable (Chr(160)).

Donc, tenter :

Sub SupprEspace()
Dim Plage As Range, b As Boolean
    Set Plage = Worksheets("Feuil1").Range("A1:L1569")     '-*-*-*-*-*-*-*-* A ADPATER -*--*-*-*-*-*-*-
    b = Plage.Replace(Chr(160), vbNullString)
End Sub

En faisant simplement une sélection de tes valeurs => "Rechercher et sélectionner" => "remplacer"=> dans rechercher tu mets un espace et tu fais directement remplacer tout.

J'imagine que t'as déja fait la manip mais sait on jamais...

c'est bien un espace insécable!!! Merci du fond du coeur!!!!!