Textbox en colonne

Bonjour,

Après avoir renseigné les textb

ox de l'userform, je souhaiterai au click du bouton de l'userform envoyer les valeurs dans l'onglet base.

La date dans la colonne A dans les 4 premières lignes vides, et les valeurs des autres texbox dans la colonne B dans les premières lignes vides, comme exemple fait manuellement dans l'onglet base.

Merci de votre aide

Bonjour

Ci joint ma solution

A+ François

Bonjour

Mettez ce code dans votre userform

Private Sub CommandButton1_Click()
Dim i As Byte
Dim dlg As Integer

With Sheets("BASE")
    dlg = .Range("A" & Rows.Count).End(xlUp).Row + 1
    For i = 1 To 4
        .Cells(dlg, 1) = CDate(TextBox_Date.Value)
        .Cells(dlg, 2) = Controls("TextBox_Test_" & i).Value
        dlg = dlg + 1
    Next i
End With
End Sub

si ok -->

Cordialement

Edit : oups fanfan38, je ne t'avais vu poster.... désolé

Bonjour à vous deux, merci cela fonctionne très bien dans les 2 propositions.

Pour aller plus loin, est il possible d'insérer uniquement le nombre de ligne en lien avec les Texbox non vides ?

Merci de vos aides

re,

Pour aller plus loin, est il possible d'insérer uniquement le nombre de ligne en lien avec les Texbox non vides ?

Le code comme ceci alors

Private Sub CommandButton1_Click()
Dim i As Byte
Dim dlg As Integer

With Sheets("BASE")
    dlg = .Range("A" & Rows.Count).End(xlUp).Row + 1
    For i = 1 To 4
        If Controls("TextBox_Test_" & i).Value <> vbNullString Then
            .Cells(dlg, 1) = CDate(TextBox_Date.Value)
            .Cells(dlg, 2) = Controls("TextBox_Test_" & i).Value
            dlg = dlg + 1
        End If
    Next i
End With
End Sub

Pensez à

Cordialement

Parfait merci énormément.