XL 2019 Problème espace

Tsegp · 12 Janvier 2023

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

VB:

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 · 12 Janvier 2023

Bonjour,

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

VB:

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 · 12 Janvier 2023

Hi,
Salut l'ami...

Hasco à dit:
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...

Tsegp à dit:
un espace sincère en début de chaque cellule.

OK, je ->[]

job75 · 12 Janvier 2023

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+

XL 2019 Problème espace

Tsegp

XLDnaute Nouveau

Hasco

XLDnaute Barbatruc

Cousinhub

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Discussions similaires