Discussion :

[_Malou_]

Bonjour a tous,

J'ai trouvé il y a qq temps maintenant un fichier Excel que j'aimerais utiliser tel qu'il est.
Je ne sais plus d'où je l'ai trouvé, je ne peut remercier ni demander d'aide au développeur.

J'ai réussi a comprendre a peut prêt tout le code.

Mais, forcement il y a un mais, j'aimerais pouvoir rajouter des textbox, mais ca ne marche pas.

En fait, lorsque je rajoute des textbox, j'arrive bien a remplir le tableau (ca me crée bien des colonnes supplémentaires), mais lorsque je veut faire une modification de ligne dans l'userform, ca me rappel pas les textbox que j'ai pu rajouter.

Apparemment c'est au niveau de la commande .List(.ListCount que ca plante lorsque j'essai de la modifier. Mais en fait clairement je n'y comprend rien a cette partie la.
Bref, si qqun pouvais y jeter un œil pour m'expliquer comment faire.

cdt

Merci

Suivi Stock.xlsm

[QuestVba]

Bonsoir,
Pourrais-tu mettre la partie de code ?

[_Malou_]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Private Sub ComboBox1_Change()
    Me.ListBox1.Clear
    For Each cel In pl
        If CStr(cel.Value) = CStr(Me.ComboBox1.Value) Then
            nl = cel.Row
            Me.ListBox1.AddItem Sheets("Feuil1").Cells(cel.Row, 1)
            With Me.ListBox1
                .List(.ListCount - 1, 1) = Sheets("Feuil1").Cells(cel.Row, 2)
                .List(.ListCount - 1, 2) = Sheets("Feuil1").Cells(cel.Row, 3)
                .List(.ListCount - 1, 3) = Sheets("Feuil1").Cells(cel.Row, 4)
                .List(.ListCount - 1, 4) = Sheets("Feuil1").Cells(cel.Row, 5)
                .List(.ListCount - 1, 5) = Sheets("Feuil1").Cells(cel.Row, 6)
                .List(.ListCount - 1, 6) = Sheets("Feuil1").Cells(cel.Row, 7)
                .List(.ListCount - 1, 7) = Sheets("Feuil1").Cells(cel.Row, 8)
                .List(.ListCount - 1, 8) = Sheets("Feuil1").Cells(cel.Row, 9)
                .List(.ListCount - 1, 9) = nl
            End With
        End If
    Next cel
    If Me.ListBox1.ListCount = 1 Then Me.ListBox1.ListIndex = 0
End Sub
Private Sub ListBox1_Click()
    For x = 0 To 8
        Me.Controls("TextBox" & x + 1).Value = Me.ListBox1.Column(x, Me.ListBox1.ListIndex)
    Next x
    nl = Me.ListBox1.Column(9, Me.ListBox1.ListIndex)
    TextBox10 = Range("J" & nl)
    With Me.TextBox1
        .SetFocus
        .SelStart = 0
        .SelLength = Len(.Value)
    End With
End Sub

[_Malou_]

La partie de code la suffit ?

Sinon j'avais mis le fichier dans mon énoncé.

D'avance, merci