Discussion :

[sash6]

Bonjour tout le monde,

La boucle suivante est censée faire un nettoyage des éventuels espaces.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Public Sub boucle_nettoyage()
 
Dim c, tbl As Range
ActiveSheet.[A16].Select
Set tbl = ActiveCell.CurrentRegion
        tbl.Offset(1, 0).Resize(tbl.Rows.Count - 1, _
        tbl.Columns.Count).Activate
For Each c In tbl
        If Not IsEmpty(c) Then
        c.Value = Trim(c.Value)
        End If
Next c
End Sub

Toutefois, sur toutes les cellules contenant des valeurs numériques, celles qui contiennent des décimales sont transformées en format texte. Qqn sait-il pourquoi et comment je peux y remédier?

Alex

[ouskel'n'or]

1 - D'où viennent les données que tu "nettoies" ?
2 - Quel est ton séparateur décimal ?

[sash6]

Salut Ouskel,

1. Les données arrivent en .xls je ne sais pas si elles ont été au préalable exportées.
2. Le séparateur décimal est le point (celui sur le clavier numérique) même si une virgule apparaît. J'ai regardé les formats des cellules c'est du nombre partout donc à mon avis ça vient pas du sépareteur.

Je viens de fouiller sur les tutos de Silkyroad et j'ai trouvé une autre syntaxe qui elle a l'air de fonctionner correctement:

Code :

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

c = Application.WorksheetFunction.Trim(c)

Toutefois je ne vois ce qu'elle a la mienne!

[ouskel'n'or]

As-tu essayé

Code :

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

c = Trim(c)

ou

Code :

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

c.value = Trim(c)

? Parce que je ne vois pas non plus pourquoi ça pose pb
Mais je testerais de préférence la première "version"

[sash6]

Effectivement la première "version" fonctionne correctement! ça doit être le c.value qui pose problème.
Merci Ouskel!