Ajouter une valeur à la valeur d'une cellule

Bonjour,
Je souhaiterai grâce à un bouton commande (ENREGISTRER) ajouter les valeurs (nombres) de ma listbox (zn2) à des cellules de ma feuille de calcule.
Ces cellules contenant déjà des valeur.
mon code est le suivant:

Code:

---

1 2 3 4 5 6 7 8

Private Sub enrg1_Click() For i = 2 To 59 If zn1.value= Cells(i, 1) Then Cells(i, 2) = Cells(i, 2) - zn2.value End If Next CLIENTS.Hide End Sub

---

avec ce code l'action se fait mais seulement pour l'élément sélectionné dans la liste pas tour tout ceux qui s'y trouve ....

Merci de m'aider si vous le pouvez, cela m'aidera énormément
CDLT

Bjr,

il faut faire une boucle pour passer en revue les éléments de ta liste (listcount permet de compter le nombre d'items d'une liste, list de définir ou lire la valeur d'un item)

Code:

---

1 2 3 4 5 6 7

For i = 2 To 59 For x = 0 To Me.zn1.ListCount - 1 If Me.zn1.List(x) = Cells(i, 1) Then Cells(i, 2) = Cells(i, 2) - Me.zn2.List(x) End If Next x Next

---

Je n'ai pas testé, mais ça devrait marcher.

merci