Eliminer les espaces vide

A

andré

XLDnaute Barbatruc

• 27 Juin 2006

• #2

Salut,

Petite macro enregistrée :

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

Â+

 

Vote positif 0 Vote négatif

flo2002

XLDnaute Impliqué

• 27 Juin 2006

• #3

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!

 

Vote positif 0 Vote négatif

S

Sandy

Guest

• 27 Juin 2006

• #4

Salut

merci, mais elle ne marche pas en VBA 🙁

savez vous autre methode?

Merci
A+

 

Vote positif 0 Vote négatif

S

Sandy

Guest

• 27 Juin 2006

• #5

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+

 

Vote positif 0 Vote négatif

SergiO

XLDnaute Accro

• 27 Juin 2006

• #6

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

 

Vote positif 0 Vote négatif

S

Sandy

Guest

• 27 Juin 2006

• #7

Salut

toujours la macro ne marche pas 🙁 savez vos pourkoi?

Merci
A+

 

Vote positif 0 Vote négatif

Tibo

XLDnaute Barbatruc

• 27 Juin 2006

• #8

Salut,

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

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

@+

 

Vote positif 0 Vote négatif

S

Sandy

Guest

• 27 Juin 2006

• #9

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

 

Vote positif 0 Vote négatif

S

Sandy

Guest

• 27 Juin 2006

• #10

salut

personne pourra m aider 🙁

j ai besoin de votre aide

Merci

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 27 Juin 2006

• #11

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

Cliquez pour agrandir...

salut

 

Vote positif 0 Vote négatif

S

Sandy

Guest

• 27 Juin 2006

• #12

salut

Merci à tout le monde

biz
sandy
A+

 

Vote positif 0 Vote négatif