Code VBA

Bonjour je rechercher un code vba pour mon formulaire. Le but est de retranscrire les données de textbox dans colonne défini par combobox voir le fichier surement plus explicite.

Merci

Bonjour,

Une proposition à tester.

Cdlt.

Private Sub commandbutton1_Click()
Dim ws As Worksheet
Dim lo As ListObject
Dim rStart As Range
Dim Prompt As String, Title As String
Dim Defaut As VbMsgBoxStyle
Dim Response As VbMsgBoxResult

    Prompt = "Confirmez-vous L’insertion de votre choix ?"
    Defaut = vbYesNo + vbQuestion
    Title = "Demande de confirmation d’ajout"
    Response = MsgBox(Prompt, Defaut, Title)

    Select Case Response
        Case vbYes
            Set ws = ActiveWorkbook.Worksheets("Feuil1")
            Set lo = ws.ListObjects(1)
            If lo.InsertRowRange Is Nothing Then
                Set rStart = lo.HeaderRowRange.Cells(1).Offset(lo.ListRows.Count + 1)
            Else
                Set rStart = lo.InsertRowRange.Cells(1)
            End If
            rStart.Value = Me.DTPicker1.Value
            rStart.Offset(0, 1) = Me.textbox1.Value
            rStart.Offset(0, 2) = Me.textbox2.Value
            rStart.Offset(0, 2 + ComboBox1.Value) = Me.TextBox3.Value
        Case Else
            Exit Sub
    End Select

    Set rStart = Nothing
    Set lo = Nothing
    Set ws = Nothing

End Sub

Bonjour et merci Jean Eric,

La code fonctionne parfaitement. J'ai voulus mettre du cou dans la feuille 2 mettre les bonnes appellations pour la combobox qui est du texte du cou le code bloque maintenant. j'ai essayer d’interprété ce dernier pour éventuellement apporter la correction mais sans succès.

Merci pour l'aide.

Question supplémentaire SI POSSIBLE,

Le fichier vas comporter 12 onglets "janvier,fevrier....". Est il possible que du cou le code valide les données sur la page active se qui éviterais de remettre le code et userform pour chaque onglet. Désoler du dérangement.

Cdt

solution trouve pour les 12 mois avec

ActiveSheet

Bonjour,

Envoie un nouveau fichier avec veille à ce qu'il soit représentatif.

Cdlt.

Voici le classeur. le formulaire commence en colonne L.

Cdt

Merci

Désoler je ne trouve pas la solution j'ai beau chercher

Merci