Modifier une valeur d'une listbox (VBA Excel)

Version imprimable

16/04/2013, 17h59
leyjah

1 pièce(s) jointe(s)

Modifier une valeur d'une listbox (VBA Excel)

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
16/04/2013, 18h03
SfJ5Rpw8

montre nous ton code ( tentative .?)

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

Code:

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

16/04/2013, 18h42
SfJ5Rpw8

modifie l'ordre de tes lignes , commence par renseigner tes champs puis afficher ton userform... par l'instruction show..
16/04/2013, 18h58
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).

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

Code:

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:

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:

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

16/04/2013, 19h38
SfJ5Rpw8
Je comprends pas tu dis que les synchros entre lignes fonctionnes ..?

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

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

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:

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.

20/04/2013, 00h37
Invité

1 pièce(s) jointe(s)

Bonjour,
Je ne comprends pas pourquoi 3 listes ?
Regarde ce fichier joint et dis moi !
22/04/2013, 17h32
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