Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2019 Problème espace

Tsegp

XLDnaute Nouveau
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
 
Dernière édition:

Hasco

XLDnaute Barbatruc
Repose en paix
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
 
Dernière édition:

job75

XLDnaute Barbatruc
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+
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…