Bonjour le Forum,
Je viens chercher directement auprès de vous une réponse que je n'ai pas pu trouvé pour le moment.
Je cherche à appliquer la méthode somme.si à une list box.
Avec le critère dans une ComboBox, et la liste et les nombre dans les colonnes 1 et 4 de la listbox.
En effet, je souhaite qu'en sélectionnant un élément dans la Combobox cela me dise dans un "control" la somme correspondante dans la listbox. Ci après le code que j'ai écrit:
En l'occurrence le resultat que j'obtiens est SParts=Somme
With Me.ListBox1
For i = 0 To .ListCount - 1
Somme = Somme + CDbl(.List(i, 4))
'If Me.ComboAssoc.Column(0, Me.ComboAssoc.ListIndex) > -1 Then
If usf.ComboAssoc.Column(0, Me.ComboAssoc.ListIndex) = usf.ListBox1.List(i, 1) Then
SParts = SParts + CDbl(.List(i, 4))
End If
'End If
Next
End With
Merci de votre aide
Je viens chercher directement auprès de vous une réponse que je n'ai pas pu trouvé pour le moment.
Je cherche à appliquer la méthode somme.si à une list box.
Avec le critère dans une ComboBox, et la liste et les nombre dans les colonnes 1 et 4 de la listbox.
En effet, je souhaite qu'en sélectionnant un élément dans la Combobox cela me dise dans un "control" la somme correspondante dans la listbox. Ci après le code que j'ai écrit:
En l'occurrence le resultat que j'obtiens est SParts=Somme
With Me.ListBox1
For i = 0 To .ListCount - 1
Somme = Somme + CDbl(.List(i, 4))
'If Me.ComboAssoc.Column(0, Me.ComboAssoc.ListIndex) > -1 Then
If usf.ComboAssoc.Column(0, Me.ComboAssoc.ListIndex) = usf.ListBox1.List(i, 1) Then
SParts = SParts + CDbl(.List(i, 4))
End If
'End If
Next
End With
Merci de votre aide