Adapter un code incrementation d'une base de donnée

[Meloman]

Bonjour à tous

je reviens vers vous pour m'aider à adapter le code incrementation de ma base de donnée

ce code me sert à rechercher les entete correspondant à ma combobox et d'y ajouter la
valeur Listbox1 dans la premiere partis de ma base de donnée qui va de A2:X30

et la valeur de listbox2 dans la seconde partis du tableau qui va de A31:X40

le probleme qui se pose c'est que l'incrementation ne se fais que sur le second tableau comment puis je alimenter
les 2 tableau part apport à l'entete dans ma combobox

merci d'avance

 

[Guest]

Re : Adapter un code incrementation d'une base de donnée

Bonjour,

Si j'ai bien compris:

Private Sub CommandButton1_Click()
    Dim Dl1 As Long   ' dernière ligne
    Dim col As Long
    Dim i As Long
    If Me.t2.ListIndex = -1 Then Exit Sub
    With Sheets("cpg")
        col = CLng(t2.List(t2.ListIndex, t2.ColumnCount - 1))
        Dl1 = .Cells(31, col).End(xlUp).Row
        For i = 0 To Me.ListBox1.ListCount - 1
            Dl1 = Dl1 + 1
            .Cells(Dl1, col) = Me.ListBox1.List(i)
        Next i
        Dl1 = .Cells(Rows.Count, col).End(xlUp).Row    ' avec numéro de colonne
        For i = 0 To Me.ListBox2.ListCount - 1
            Dl1 = Dl1 + 1
            .Cells(Dl1, col) = Me.ListBox2.List(i)
        Next
    End With
End Sub

A+

 

[jp14]

Re : Adapter un code incrementation d'une base de donnée

Bonjour
Salut Hasco

Avec un exemple de saisie, il serait plus facile d'apporter une solution au problème.

JP

 

[Meloman]

Re : Adapter un code incrementation d'une base de donnée

bonjour Jp14 et hasco

merci hasco pour ton aide c'est exactement ce que je souhaitais faire sa fonctionne parfaitement désoler pour le manque d'explication je tenterais etre plus clair la prochaine fois mais en tous cas merci pour tous à bientot