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 ?

[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

[thebenoit59]

Pour le code fournit il faut travailler la partie suivante :

Code :

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

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.

[naahou2000]

Bonjour

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

Je n'arrive pas a localiser l'erreur
Merci de m'aider

[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.