Supprimer les espaces des cellules d'un autre classeur

Bonjour,

J'ai encore un petit problème pour terminer cette macro.

Je rappelle le contexte, j'ai un fichier A (Macro dimensionnement seuils.xls) et un fichier B (extract.xls)

Lorsque je clique sur le bouton de formulaire présent dans le fichier A, le tableau présent dans celui ci se rempli en fonction des valeurs présentes dans le fichier B.

Le problème que je rencontre est que lorsqu'il y a des espaces "avant" dans les cellules du fichier B, la macro me reponds #N/A dans mon tableau présent sur le fichier A.

Le besoin serait qu'avant le remplissage du tableau présent en fichier A, la macro me supprime les espaces (avant le texte) dans les cellules du fichier B.

J'ai testé avec ce morceau de code :

mais cela me supprime les espaces dans le fichier A et non dans le B ;-(

Dim i As Long

For i= 1 To ThisWorkbook.Sheets("Feuil1").Range("A530").End(xlUp).Row

Cells(i, 1).Value = Trim(Cells(i, 1).Value)

Next i

Quelqu'un pourrait il m'aider ?

Je vous remercie infiniement

Bonne journée à vous

Cordialement

Béatrice

Bonjour

A vérifier

Juste une partie de la macro

'Renomme la cellule B1 en fonction de la cellulle E12 du fichier EXTRACT.xls
Workbooks("MACRO- DIMENSIONNEMENT SEUILS.xls").Sheets("DIMENSIONNEMENT").Range("B1") = ThisWorkbook.Sheets("Feuil1").Range("E12").Value

ThisWorkbook.Sheets("Feuil1").Columns("A").Replace What:=" ", Replacement:="", LookAt:=xlPart, SearchOrder:= _
        xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

'Recopie les données en fonction de celles trouvées dans le fichier Extract.xls

Bonjour Banzai64,

Merci pour toute l'aide que vous m'apportez pour mes macros

Je viens de tester cette solution.

Elle fonctionne très bien mais le souci c'est qu'elle me supprime tous les espaces de la cellule. Du coup, le fichier A ne reconnait plus les données.

Est ce possible de ne supprimer que les espaces se trouvant à l'avant du mot dans les cellules ?

Merci encore

Bonjour

Une autre solution , mais si c'est pas ça transmet un fichier avec des données qui posent problème

Sub ChiffrAuto()
Dim NomFeuille As String
Dim Compteur As Integer
Dim Plag As Range
Dim J As Long

  'Cache le traitement de la macro
  Application.ScreenUpdating = False

  With ThisWorkbook.Sheets("Feuil1")
    'Renomme la cellule B1 en fonction de la cellulle E12 du fichier EXTRACT.xls
    Workbooks("MACRO- DIMENSIONNEMENT SEUILS.xls").Sheets("DIMENSIONNEMENT").Range("B1") = .Range("E12").Value
    ' Supprime les espaces au début et à la fin de chaque mot de la colonne A
    For J = 1 To .Range("A" & Rows.Count).End(xlUp).Row
      .Range("A" & J) = Trim(.Range("A" & J))
    Next J
  End With

  'Recopie les données en fonction de celles trouvées dans le fichier Extract.xls
 '.........

Vous êtes SUPER !!!

Vraiment un millions de mercis pour votre aide et votre patience

Tout marche parfaitement