Discussion :

[leyjah]

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 :

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

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

[Stef999]

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 :

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

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.

[leyjah]

merci