XL 2010 Bouton pour Actualiser listbox formulaire

[chakershaker]

Bonjour tout le monde, je cherche une solution pour mise à jour listbox . si je fait click sur bouton préparation1 les cellules contenant les quantités dans la liste prennent les valeurs correspondantes à la préparation1:

et si je fait click sur le bouton préparation2 le même scénario se répète pour la préparation2:

Merci de m'aider s'il ya de solutions

 

[job75]

Bonjour chakershaker,

Voyez le fichier joint et le code de l'USF.

Dans UserForm_Initialize on définit TV jusqu'à la colonne J : TV = OB.Range("A6:J" & DL)

La variable col est déclarée en haut du module pour être mémorisée.

Elle est définie par les macros des boutons :

Private Sub CommandButton1_Click() 'Préparation1
col = 9 'colonne I
ComboBox1_Change
col = 0
End Sub

Private Sub CommandButton2_Click() 'Préparation2
col = 10 'colonne J
ComboBox1_Change
col = 0
End Sub

La ListBox est remplie par cette macro :

Private Sub ComboBox1_Change()
Dim i&

ListBox1.Clear
If ComboBox1.ListIndex = -1 Then Exit Sub
If col = 0 Then col = 4 'colonne D

For i = 1 To UBound(TV)
    If TV(i, 1) = ComboBox1 Then
        With ListBox1
            .AddItem 'ajoute un élément
            .List(.ListCount - 1, 0) = TV(i, 1)
            .List(.ListCount - 1, 1) = TV(i, 2)
            .List(.ListCount - 1, 2) = TV(i, 3)
            .List(.ListCount - 1, 3) = TV(i, col)
        End With
    End If
Next

End Sub

PS : attention à l'othographe d'ACCUEIL.

A+

 

[fanfan38]

Bonjour
Ma solution
A+ François

 

[chakershaker]

merci beaucoup monsieur job75 et Monsieur fanfan38 pour votre aide