Discussion :

[maestro1303]

Bonjour tout le monde,

J'ai plusieurs espaces dans une cellule et les fonctions Trim, rtrim,ltrim ne peuvent pas me servir, et je voudrais une fonction vba qui équivaudrait à

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=SUBSTITUE(A1," ","")

quand je suppose que les données se trouvent dans la cellule A1.

Merci beaucoup!

[mordrhim]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Replace(Range("A1"), " ", "")

[maestro1303]

Merci beaucoup Mordrhim,

Et si je veux à l'intérieur de mon code vba supprimer tous les espace de la colonne C?

[Invité]

Bonjour,

Exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
dl = Range("C65536").End(xlUp).Row
pl = 2
For i = pl To dl
mt = Cells(i, 3)
Cells(i, 3) = Replace(mt, " ", "")
Next i

[LeForestier]

bonjour,
essaie cette sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub OteSpace()
Dim i As Integer
Sheets("NomFeuille").Select
    For i = 1 To Range("C65536").End(xlUp).Row
        Cells(i, 3).Value = Replace(Cells(i, 3), " ", "")
    Next i
End Sub

A+
EDIT: sorry jacques jean croisement poste, je n'ai pas envoyé directement

[ouskel'n'or]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
    Columns("C:C").Replace What:=" ", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows

[Invité]

Pas de problème LeForestier, c'est courant.

Maintenant Maestro1303 a le choix entre 3 solutions, dont la mienne qui, comme d'habitude, n'est pas la plus courte.

Amicalement.

[AlainTech]

J'avais encore mal lu

Mais non...

je voudrais une fonction vba qui équivaudrait à

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=SUBSTITUE(A1," ","")

[ouskel'n'or]

Ben quoi, le week-end, y'a personne qui travaille, faut bien s'amuser...