XL 2019 Problème espace

[Tsegp]

Bonjour

J'ai une macro qui copie la valeur de mes textbox dans un autre classeur Excel.
Jusque là tout va bien mais lors de la copie, un espace s'insère en début de chaque cellule.

Avez vous une idée de la cause et comment y remédier ?

Ci dessous ma macro

Private Sub CommandButton1_Click()

Workbooks.Open filename:="S:\OPERATEURS\JONATHAN\EXCEL\BD_CLIENT_SANS_TLS\CLIENTS.xlsx"
 
Ligne = Workbooks("CLIENTS.xlsx").Worksheets("Feuil1").Range("a456541").End(xlUp).Row + 1

Workbooks("CLIENTS.xlsx").Worksheets("Feuil1").Cells(ligne, 1) = TextBox24.Value
Workbooks("CLIENTS.xlsx").Worksheets("Feuil1").Cells(ligne, 2) = TextBox14.Value
Workbooks("CLIENTS.xlsx").Worksheets("Feuil1").Cells(ligne, 3) = TextBox15.Value
Workbooks("CLIENTS.xlsx").Worksheets("Feuil1").Cells(ligne, 4) = TextBox16.Value
Workbooks("CLIENTS.xlsx").Worksheets("Feuil1").Cells(ligne, 5) = ComboBox1.Value
Workbooks("CLIENTS.xlsx").Worksheets("Feuil1").Cells(ligne, 6) = TextBox18.Value
Workbooks("CLIENTS.xlsx").Worksheets("Feuil1").Cells(ligne, 7) = TextBox19.Value
Workbooks("CLIENTS.xlsx").Worksheets("Feuil1").Cells(ligne, 8) = ComboBox2.Value

Workbooks("CLIENTS.xlsx").Save
Workbooks("CLIENTS.xlsx").Close

End Sub

 

[Hasco]

Bonjour,

Si les espaces viennent de vos contrôles essayez TRIM(....)

Private Sub CommandButton1_Click()

    Workbooks.Open Filename:="S:\OPERATEURS\JONATHAN\EXCEL\BD_CLIENT_SANS_TLS\CLIENTS.xlsx"

    With Workbooks("CLIENTS.xlsx")
        With .Worksheets("Feuil1")
            ligne = .Range("a456541").End(xlUp).Row + 1
            .Cells(ligne, 1) = Trim(TextBox24.Value)
            .Cells(ligne, 2) = Trim(TextBox14.Value)
            .Cells(ligne, 3) = Trim(TextBox15.Value)
            .Cells(ligne, 4) = Trim(TextBox16.Value)
            .Cells(ligne, 5) = Trim(ComboBox1.Value)
            .Cells(ligne, 6) = Trim(TextBox18.Value)
            .Cells(ligne, 7) = Trim(TextBox19.Value)
            .Cells(ligne, 8) = Trim(ComboBox2.Value)
        End With
        .Save
        .Close
    End With
End Sub

Cordialement

 

[Cousinhub]

Hi,
Salut l'ami...

Si les espaces viennent de vos contrôle essayez TRIM(....)

On ne sait pas d'où ils viennent, mais en tout cas, ils sont de bonne foi...

un espace sincère en début de chaque cellule.

OK, je ->[]

 

[job75]

Bonsoir,

Un espace qui s'insère systématiquement en début de cellule ça paraît improbable

Vérifiez bien, les cellules sont peut-être simplement alignées à gauche avec retrait.

A+