Discussion :

[Runsh63]

Bonjour,

Dans une de mes macros, je dois supprimer les espaces dans les cellules d'une de mes colonnes. J'ai essayé de taper directement ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub Suppresp()
 
With Sheets("Test")
 
        Dim LR2 As Long
        LR2 = .Cells(.Rows.Count, 1).End(xlUp).Row
 
        WorksheetFunction.Trim (.Range("C2:C" & LR2))
 
End With
End Sub

J'ai également testé ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub Suppresp()
 
With Sheets("Test")
 
        Dim LR2 As Long
        LR2 = .Cells(.Rows.Count, 1).End(xlUp).Row
 
        .Range("C2:C" & LR2).Value = WorksheetFunction.Trim (.Range("C2:C" & LR2))
 
End With
End Sub

Sans succès...

Dans une autre de mes macros dans laquelle je dois faire la même chose, j'ai fait ceci, ce qui est efficace puisque ça marche (cela revient à faire la formule Excel classique, d'où mon titre) :

Code :

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

1
2
3
4
5
6
7
Dim LR2 As Long
        LR2 = .Range("A65536").End(xlUp).Row
 
        .Range("J2:J" & LR2).FormulaR1C1 = "=Trim(RC[-7])"
        .Range("J2:J" & LR2).Copy
        .Range("C2").PasteSpecial Paste:=xlPasteValues
        .Range("J2:J" & LR2).ClearContents

Mais je souhaitrai savoir si un truc du genre ce que j'ai testé avec mes deux premiers bouts de code moisi peut fonctionner. Si oui, comment ? Est-ce que vous avez une solution SVP ? Ou vaut-il mieux que je garde mon dernier code qui marche ? Merci d'avance pour votre aide et réponse !

Cordialement,

Runsh

[rvtoulon]

Bonjour,
avec une boucle for :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Suppresp()
Dim LR2 As Long, c As Range
 
With Sheets("Test")
 
        LR2 = .Cells(.Rows.Count, 3).End(xlUp).Row
 
        For Each c In .Range("C2:C" & LR2)
          c.Value = Trim(c)
        Next c
 
End With
End Sub

[Godzestla]

Bonjour,

par exemple comme ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub Suppresp()
 
Dim LR2 As Long 
 
With Sheets("Test")
        for lr2 = 2 to .Cells(.Rows.Count, 1).End(xlUp).Row
          .Range("C" & lr2) = Trim(.Range("C" & lr2)
        next lr2
 
 End With
End Sub

mais il y certainement plus efficace

[fring]

Bonjour,

Une autre possibilité

Code :

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

Sheets("test").Columns(3).Replace What:=" ", Replacement:="", LookAt:=xlPart

[rvtoulon]

Bonjour,
Le code de fring fonctionne mais si dans la cellule il y a "MARTIN Louis" cela deviendra "MARTINLouis".
J'avais compris qu'en utilisant "TRIM" il voulais enlever les espaces avant et après la chaîne de caractère

[Godzestla]

@rvtoulon

J'avais compris qu'en utilisant "TRIM" il voulais enlever les espaces avant et après la chaîne de caractère

Voici une fois de plus un problème posé de manière ambigüe.
Seul Runsh63 sait ce qu'il en est, enfin ... je l'espère comme toi.

[Runsh63]

Bonjour à vous fring, Godzestla, rvtoulon, le forum,

Tout d'abord merci à tous pour toutes vos réponses ! En fait, la solution proposée par fring fonctionnera dans mon cas car dans ma chaîne de caractères, j'ai 4 caractères puis des vides que je veux supprimer, donc pas de problème. En fait je voulais passer par trim car avant de faire ma macro, je faisais tout ce travail de datacrunshing manuellement, et plutôt que de faire rechercher / remplacer, je passais bêtement par la formule SUPPRESPACE, d'où, "transposition" dans la macro par trim.
Quoiqu'il en soit toutes vos réponses me vont car un jour où l'autre j'aurai besoin des boucles que vous m'avez proposé, donc merci vous trois!

Cordialement,

Runsh