Discussion :

[naahou2000]

Bonjours

Je suis bloqué, je cherche quelqu'un pour m'aider a faire un code VBA qui me cherche dans un tableau le total des payés par client.
C'est a dire lorsque je sélectionne un client par la zone de texte déroulante "Client", le code m'affiche le résultat dans la zone de texte "Payé"

merci

[joe.levrai]

Bonjour,

et il ressemble à quoi ton code actuellement ?

je te conseille de plutôt travailler avec une liste de validation située dans une cellule, plutôt qu'un contrôle Combobox, pas très pratique à gérer.
de même, la zone de résultat, pourquoi un contrôle plutôt qu'une cellule, tu vas te compliquer la vie pour pas grand chose


voici un sujet où on abordait cette formule en VBA : http://www.developpez.net/forums/d15...t/#post8542764

[naahou2000]

Merci de votre réponse rapide. Réellement les contrôles sont dans un formulaire vba. Si sur une feuille excel je peux utiliser la fonction sommeprod qui fait l affaire
Merci

[thebenoit59]

Tu peux utiliser un dictionnaire au lieu d'une formule.

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
18
19
20
21
22
23
 
Option Explicit
Dim d As Object
 
Private Sub ComboBox1_Change()
If ComboBox1.Text <> "" Then
TextBox1.Value = d(ComboBox1.Text)
Else: TextBox1.Value = ""
End If
End Sub
 
Private Sub UserForm_Activate()
Dim i As Integer
Set d = CreateObject("scripting.dictionary")
With Sheets("Feuil1")
    i = 2
    Do While .Cells(i, 1).Value <> ""
        d(.Cells(i, 1).Value) = d(.Cells(i, 1).Value) + .Cells(i, 2).Value
        i = i + 1
    Loop
End With
ComboBox1.List = d.keys
End Sub

[naahou2000]

Merci de votre aide

je n'ai pas pu adapter votre code a mon projet
cependant, les clients sont dans la colonne B : de B8 à B2000
Les restes des clients sont dans la colonne V : de V8 à V2000
Le total reste est dans le formulaire "Total_Reste"

merci

[Philippe Tulliez]

Bonjour,
Pourquoi utiliser du VBA, au lieu d'écrire directement la formule dans la cellule ?