Eliminer les espaces vide

[Sandy]

Bonjour,

j ai un petit souci, j ai besoin d'éliminer tous les espace vide en VBA dans une chaine de caractère
exemple :

CHAINE 1 : DTE 000 === E0120
resultat : DTE000===E0120

pourriez vous m aider

Sandy
A+ Merci

 

[andré]

Salut,

Petite macro enregistrée :

ActiveCell.Cells.Select
Selection.Replace What:=' ', Replacement:='', LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

Â+

 

[flo2002]

Bonjour André et Sandy,
je ne sais pas si tu as une seule colonne, mais si c'est le cas un tri pourrai suffir?
bon courage!

 

[Sandy]

Salut

merci, mais elle ne marche pas en VBA 🙁

savez vous autre methode?

Merci
A+

 

[Sandy]

Salut

en fait moi je suis entrain de faire une comparaison entre deux chaines mais avant de faire cette comparaison j ai besoin d 'eliminer tous les expaces vide.
chacune des chaine se trouvent dans une colonne

Merci
A+

 

[SergiO]

Bonjour Sandy,André,Flo2002

La macro d'andré modifiée :

Sub Macro1()

Columns('A:A').Select

Selection.Replace What:=' ', Replacement:='', LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

End Sub

avec tes données dans la colonne A

 

[Sandy]

Salut

toujours la macro ne marche pas 🙁 savez vos pourkoi?

Merci
A+

 

[Tibo]

Salut,

Dans la macro, tapes Alt 0160 à la place de l'espace.

Il s'agit du code de l'espace insécable.

@+

 

[Sandy]

salut


voila mon code et mon prb

Sub Bouton1_QuandClic()
Dim t1 As String
Dim t2 As String

t1 = Sheets('feuil1').Range('a1')
t2 = Sheets('feuil2').Range('a1')

If t1 = '' Or t2 = '' Then Exit Sub
'mon probleme est la dans cette if, pour cela j ai decidé d eliminer les espaces'

t1 = Mid(t1, 10, Len(t1) - 4)
t2 = Mid(t2, 10, Len(t2) - 4)

Sheets('feuil2').Range('b1') = IIf(t1 = t2, 1, 0)
If Sheets('feuil2').Range('b1') = 1 Then
Sheets('feuil1').Range('c2').Value = DateValue(Sheets('feuil1').Range('b2') + Sheets('feuil1').Range('a2').Value)
End If
End Sub

avez vous autre methode

Merci

 

[Sandy]

salut

personne pourra m aider 🙁

j ai besoin de votre aide

Merci

 

[Hervé]

bonjour

peut etre comme ceci :

Sub Bouton1_QuandClic()
Dim t1 As String
Dim t2 As String

t1 = Sheets('feuil1').Range('a1')
t2 = Sheets('feuil2').Range('a1')

If t1 = '' Or t2 = '' Then Exit Sub
''mon probleme est la dans cette if, pour cela j ai decidé d eliminer les espaces'
t1 = Application.Substitute(t1, ' ', '')
t2 = Application.Substitute(t2, ' ', '')

t1 = Mid(t1, 10, Len(t1) - 4)
t2 = Mid(t2, 10, Len(t2) - 4)

Sheets('feuil2').Range('b1') = IIf(t1 = t2, 1, 0)
If Sheets('feuil2').Range('b1') = 1 Then
Sheets('feuil1').Range('c2').Value = DateValue(Sheets('feuil1').Range('b2') + Sheets('feuil1').Range('a2').Value)
End If
End Sub

salut

 

[Sandy]

salut

Merci à tout le monde

biz
sandy
A+