Bonjour,
je sollicite votre aide parce que j'ai un petit souci avec mon appli.
Voici ce qui en est:
1. j'ai 2 userform: CLIENTS et modification
2. Dans CLIENTS, j'ai trois zone de liste, zn1 (produits), zn2 (quantité) zn3 (montant), un bouton de commande (MODIFIER).
3. grâce à MODIFIER, les valeurs sélectionnées en zn1, 2 et 3 sont transférés dans des zone de texte dans un userf modification.
CODE:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6 Private Sub CommandButton1_Click() modification.zdt1 = zn1.Value modification.zdt2 = zn2.Value modification.zdt3 = zn3.Value modification.Show End Sub
Ce que je souhaiterai c'est que:
si je modifie les valeurs inscrite dans les zones de texte (zdt1, 2 et 3) de modification elle sont mise à jour dans les zones de liste (zn1, 2 et 3) de CLIENTS.
CODE TEST:
MERCI POUR TOUTE L'AIDE DE VOUS POURRAI M'APPORTER
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14 Private Sub CommandButton1_Click() CLIENTS.zn1.RemoveItem CLIENTS.zn2.RemoveItem CLIENTS.zn3.RemoveItem CLIENTS.zn1.AddItem zdt1.Value CLIENTS.zn2.AddItem zdt2.Value For i = 2 To 46 If zdt1.Value = Cells(i, 1) Then CLIENTS.zn3.AddItem (zdt2.Value * Cells(i, 3)) End If Next modification.Hide End Sub
CDLT.
Partager