Discussion :

[it-worker]

Bonjour,

je travaille présentement sous Access et je tente d'importer les données d'Excel. Je dois manipuler de très gros fichiers afin de les formater avant l'importation. Je cherche peut-être mal mais ca fait deux jours que je cherche ...

Mon problème est celui-ci: Mes fichiers peuvent avoir plusieurs milliers de lignes et jusqu'à 80 colonnes sinon plus. Chaque colonne peuvent contenir différent type de données (string, currency, long, date, etc...) Or, je dois utiliser la fonction trim sur chaque cellule pour m'assurer que l'importation se fera correctement.

j'ai déjà une fonction pour effectuer ce travail mais p...ain que c'est long ...

voici le code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Public Sub trimCellsFromRegion(ByVal cellHautGauche As Range, _
                                          ByVal cellBasDroite As Range)
 
    Dim line, column, FirstLine, LastLine, FirstColumn, LastColumn As Integer
 
    FirstLine = ...
    LastLine = ... 
    FirstColumn = ...
    LastColumn = ...
 
    For line = FirstLine To LastLine 
 
        For column = FirstColumn To LastColumn 
 
            cells(line,column).value = Trim(cells(line,column).value )
            DoEvents
 
        Next column
 
    Next line
 
End Sub

N'y aurait-il pas une fonction Excel qui effectuerait ce travaille plus rapidement?

Merci beaucoup d'avance pour votre aide.

[flo_flo]

Tu as essayé en le faisant manuellement, par exemple en remplissant la feuille #2 de ton classeur avec des TRIM() se rapportant à la feuille #1 ? Puis un coup de copier coller valeur ? Ou c'est trop chiant / long ?

My 2 cts

[it-worker]

C'est pas con ...

je vais essayer ca!!! Et je te reviens.

Merci

[ouskel'n'or]

Si tes espaces sont en début ou fin de mots, y'a pas mieux que ce que propose flo_flo.
Sinon, pour supprimer tous les espaces dans une feuille de calculs où qu'ils soient, en début, fin ou milieu de mot, tu as ça :

Code :

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

1
2
    Cells.Replace What:=" ", Replacement:="""""", LookAt:=xlPart, _
        SearchOrder:=xlByRows

A toutes fins utiles et à tout hasard

[it-worker]

bon, ce fut long mais bon!!!

Ca fonctionne très bien et ... de loin plus rapide pour le traitement!!! Merci beaucoup Flo_Flo!!!

Merci aussi à toi ouskel'n'or pour l'information j'en prend bonne note!!! hehehe

Vous êtes mon site de références pour VBA!!!





Continuez votre bon travail

@+