Suppression de blancs

[sawya]

Bonjour,
tout d'abord, permettez moi de vous presenter mes meilleurs voeux pour l'annee a venir.

Je cherche, une macro qui me permette de supprimer les blancs devant et derriere une date dans une colonne determinee.
En effet, quand je veux faire migrer la base données vers Nimegue, les espaces blancs decalent les données de la date.

De nouveau j'ai beaucoup d'enregistrements et a la main c'est fastidieux.

Si vous pouviez me trouver cela dans votre coffre aux trésors (mais aussi m'expliquer comment l'enregistrer dans l'editeur), cela me ferait enomement plaisir.
D'avance je vous remercie
Cordialement et avec , encore une fois mes meilleurs voeux

Sawya

 

[Staple1600]

Re : Suppression de blancs

Bonjour



Une solution par formule (si les données sont dans la colonne A)
en B1, saisir:
=SUPPRESPACE(A1)*1

Puis recopie vers le bas
Puis Edition/Copier/Collage Spécial/Valeurs


Par macro

Sub Macro2()
Dim C As Range
'ici adapter selon la colonne à traiter
For Each C In Range("A1:A" & [A65536].End(xlUp).Row)
C.Value = Trim(C.Value)
Next C
End Sub

Une variante (avec choix de la colonne à traiter)

Sub Macro3()
Dim C As Range
Dim x As Long
x = InputBox("Numéro de colonne?")
For Each C In Range(Cells(1, x), Cells(65536, x).End(xlUp))
C.Value = Trim(C.Text)
C.NumberFormat = "dd/mm/yy" ' ou "dd/mm/yyyy" pour date 01/01/2008
Next C
End Sub

 

[sawya]

Re : Suppression de blancs

Super, merci de totu coeur.
Mais puis je encore abuser de votre temps.
Comment fait on pour creer une macro ? ou et comment coller le code que vous transmettez?

Merci encore

Sawya

 

[sawya]

Re : Suppression de blancs

Merci,
super sympa ce tuto, je m'en vais l'essayer tout de suite.

Je vous tiens au courant.
A très bientot
Sawya

PS: bonne et heureuse année a tous