Discussion :

[leyjah]

Bonjour,

1. j'ai trois listBox synchroniser c-à-d que si je clique sur une valeur de la zone (produits), les info de la zone 2 (Quantités) et 3 (Montant) correspondant au produits sont également sélectionner.

2. je veux pourvoir modifier la Quantité (zone 2). pour cela j'ai ajouter un bouton "modifier". En cliquant sur ce bouton, un userform (Modification) s'ouvre. il contient des zones de texte correspondant au produit, à la quantité et au montant. Et, si on les modifies les nouvelles valeur sont remplacer par les anciennes (dans les zone 1, 2 et 3).

mon problème est le suivant:
Je n'arrive pas à faire s'afficher les valeur dans mon userform "Modification".

alors toute aide sera la bienvenue.


CDLT

[SfJ5Rpw8]

montre nous ton code ( tentative .?)

[leyjah]

J'ai commencé mais je ne l'ai pas fini:

Code :

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

1
2
3
4
5
Private Sub CommandButton1_Click()
modification.Show
num = zn2.ListIndex + 1
   modification.zdt1.Value = zn1.ListIndex(num)
End Sub

[SfJ5Rpw8]

modifie l'ordre de tes lignes , commence par renseigner tes champs puis afficher ton userform... par l'instruction show..

[leyjah]

je précise que je voudrais que:

1. si une valeur est sélectionné dans la zone produit, la quantité et le montant lui correspondant sont également sélectionné dans la zone propre à cet effet. (PROBLEME RESOLU)

2. pour une valeur sélectionnée que l'on veut Modifier, les informations sélectionnées sont transférées vers les zones de texte correspondantes (comme il est présenter sur l'image en pièce jointe). (NON RESOLU)

3. les valeurs transférées peuvent être Modifier. si elle le sont, les nouvelles valeurs remplacent les anciennes. (NON RESOLU).

[leyjah]

j'ai trouver une solution, cependant elle ne fonctionne pas totalement.
la solution est la suivante:

Code :

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

1
2
3
4
5
6
7
8
Private Sub CommandButton1_Click()
With Sheets("Feuil1")
modification.zdt1 = zn1.Value
modification.zdt2 = zn2.Value
modification.zdt3 = zn3.Value
End With
modification.Show
End Sub

La valeur qui devrait être afficher en zone de texte 3 n'est visible surement du à une mauvaise synchronisation de mes 3 zone de liste
==>

Code :

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

1
2
3
4
5
6
7
8
Private Sub zn1_Click()
With zn2
    .TopIndex = zn1.TopIndex
    .TopIndex = zn3.TopIndex
    .ListIndex = zn1.ListIndex
    .ListIndex = zn3.ListIndex
End With
End Sub

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
Private Sub zn2_Click()
With zn3
    .TopIndex = zn2.TopIndex
    .TopIndex = zn1.TopIndex
    .ListIndex = zn2.ListIndex
    .ListIndex = zn1.ListIndex
End With
End Sub
 
Private Sub zn3_Click()
With zn1
    .TopIndex = zn2.TopIndex
    .TopIndex = zn3.TopIndex
    .ListIndex = zn2.ListIndex
    .ListIndex = zn3.ListIndex
End With
End Sub

[SfJ5Rpw8]

Je comprends pas tu dis que les synchros entre lignes fonctionnes ..?

tu devrais réfléchir à tous tes codes zn?_Click ainsi

Code :

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

1
2
3
4
5
Private Sub zn1_Click()
With zn2
    .TopIndex = zn1.TopIndex
    .TopIndex = zn3.TopIndex
???

ici tu commence par affecté à zn2.TopIndex la valeur de l'index contenu dans zn1.TopIndex ... mais la ligne suivante tu écrase cela avec zn3.topIndex ... ta première ligne ne sert donc à rien ? et tout ton code est ainsi...

[leyjah]

j'ai trouver une solution mais un problème se pose maintenant.
Quand je remplace je veux modifier les valeurs, toutes les informations entrées dans les zones de liste s'efface pour n'afficher que celle modifier.
mon code est le suivant :

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
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

toute aide me sera nécessaire MERCI d'avance.

[Invité]

Bonjour,
Je ne comprends pas pourquoi 3 listes ?
Regarde ce fichier joint et dis moi !

[leyjah]

j'avais pensée à faire une seule zone à trois colonne mais j'avais déjà commencé avec 3 zones donc j'ai laissé.
Et, dans ma troisième zone, se trouve une multiplication. n'étant pas une pro de VBA je ne c pas si je réussirai