Sommeprod avec VBA

Version imprimable

26/05/2016, 15h27
naahou2000

1 pièce(s) jointe(s)

Sommeprod avec VBA

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
26/05/2016, 15h32
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
26/05/2016, 16h34
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

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

Code:

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

26/05/2016, 23h57
naahou2000

1 pièce(s) jointe(s)

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
27/05/2016, 07h49
Philippe Tulliez

Bonjour,
Pourquoi utiliser du VBA, au lieu d'écrire directement la formule dans la cellule ?
27/05/2016, 11h59
naahou2000

Bonjour

Je possède déjà depuis des années un système de gestion conçu avec excel, mais avec la progression des enregistrements le fichier devient très lent a manipuler parce qu'il beaucoup de formules dans chaque ligne d'enregistrement.
J'ai voulu concevoir ce système de gestion avec VBA dans le but de concentrer les formules seulement dans le formulaire. Les feuilles excel ne me servent que pour l'enregistrement des valeurs sans formules.
D'autre part, le formulaire est mieux adapté aux utilisateur, c'est simple de naviguer, mieux que les feuilles excel.

Merci
27/05/2016, 12h12
thebenoit59
Pour le code fournit il faut travailler la partie suivante :
Code:

1 2 3 4 5 6 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
.Cells(i, 1)
Cellule en ligne 1 et colonne 1.

Je te laisse l'adapter à tes besoins.
27/05/2016, 20h00
naahou2000

3 pièce(s) jointe(s)

Bonjour

quand je selectionne un client par le combobox, une erreur survient :

Je n'arrive pas a localiser l'erreur
Merci de m'aider
27/05/2016, 23h36
thebenoit59

Regarde bien ce que tu as fais.
Ici quand tu changes ta Combobox, tu lui demandes ensuite d'attribuer comme valeur l'item du dictionnaire.
Alors que ça devrait être ta TextBox avec le résultat qui obtiendra l'item.
Vérifie bien tes contrôles et assigne le bon.