XL 2019 Remplir dans une ligne

Rouge à dit:

Bonjour,

Remplacez la macro "Private Sub f_b_ok_Click()", par celle-ci:

VB:

Private Sub f_b_ok_Click()
    Dim i As Long, Lig As Long
    Columns(1).ClearContents
    Lig = 1
    For i = 1 To 8
        If Me("txt" & i) <> "" Then
            Cells(Lig, 1) = Me("txt" & i)
            Lig = Lig + 1
        End If
    Next
    Unload Me
End Sub

Cdlt

Cliquez pour agrandir...

Roblochon à dit:

Bonjour,

Un 'user' est un utilisateur pas un UserForm.

VB:

Private Sub f_b_ok_Click()
Dim i
    For i = 1 To 8
        Cells(i, 1) = Me("txt" & i)
    Next
    Unload Me
End Sub


Private Sub UserForm_Initialize()
Dim i
    For i = 1 To 8
        Me("txt" & i) = Cells(i, 1)
    Next
End Sub

Bonne journée

Cliquez pour agrandir...