VBA Fonction Trim sur colonne Résolu

Question

Bonjour, 


Je cherche à appliquer une fonction Trim sur toute une colonne car j'ai des données parmi celle-ci qui sont précédées d'un espace et donc les calculs qui suivent ne fonctionne pas correctement.

Et donc j'aimerais savoir si c'est possible de le faire sur toute une colonne 

et si oui comment ? 


Merci d'avance


M&m



Configuration: Windows XP / Firefox 3.6.10

cousinhub29 · Answer

Bonjour,

Le plus simple, et le plus rapide, est de passer par l'intermédiaire d'un tableau...

du style :

Sub utiliser_trim()
Dim a
Dim I As Long
a = Range([A1], [A65000].End(xlUp))
For I = LBound(a) To UBound(a)
    a(I, 1) = Trim(a(I, 1))
Next I
Range([A1], [A65000].End(xlUp)) = a
End Sub


Bon courage

M&m · Answer

Un grand merci à toi Cousin hub mais j'ai un nouveau problème grâce à ta macro ;p

la fonction Trim fonctionne bien mais  je l'applique sur une colonne contenant des dates et allez savoir pourquoi la date change ! :

par exemple si j'applique un Trim sur une cellule contenant " 10/03/2010", l'espace est enlevé mais ma date devient "03/10/2010" 

Si quelqu'un aurait une idée ou une ligne de code à rajouter au code de counsinhub, je suis preneur !

M&m

cousinhub29 · Answer

Bonsoir,

Euh....

Un grand merci à toi Cousin hub mais j'ai un nouveau problème grâce à ta macro ;p


"grâce", ou "à cause"?????

Est-ce que les cellules ont des dates, tout le temps, ou uniquement au petit bonheur la chance?

Au cas où, si dans ton fichier, tu veux appliquer ce format à un type indifférent, tu peux essayer ainsi :

Sub utiliser_trim()
Dim a
Dim I As Long
a = Range([A1], [A65000].End(xlUp))
For I = LBound(a) To UBound(a)
    If IsDate(a(I, 1)) Then
        a(I, 1) = CDate(Trim(a(I, 1)))
    Else
        a(I, 1) = Trim(a(I, 1))
    End If
Next I
Range([A1], [A65000].End(xlUp)) = a
End Sub


Bonne soirée

M&m · Answer

"grâce", ou "à cause"????? 


c'était de l'ironie :)

bref ! en tout cas je viens de tester ton nouveau code et il fonctionne parfaitement: c'était bien toute une colonne de dates.

Un grand merci à toi cousinhub

VBA Fonction Trim sur colonne

4 réponses

Discussions similaires

Newsletters