XL 2010 Listbox

[Mody200]

Bonjour.
Existe-t-il un code permettant de calculer une valeur à partir de la zone de liste qui est liée à un texte spécifique lui appartenant (nom du client) dans la zone de liste VBA ? Même si le nom du client est répété dans la zone de liste, le processus de calcul sera être différent de celui qui le précède.

 

[job75]

Bonsoir Mody200,

D'après votre exemple il faut une formule avec SOMME.SI dans la 3ème colonne du tableau source.

A+

 

[Mody200]

Bonsoir Mody200,

D'après votre exemple il faut une formule avec SOMME.SI dans la 3ème colonne du tableau source.

A+

Bonjour job75

Pouvez-vous m'aider à créer un code selon ce que vous dites

Ezra, je ne sais pas coder ?

 

[job75]

Voyez le fichier joint, le tableau structuré et l'UserForm.

 

[Mody200]

Le fichier que vous avez joint extrait les données de la feuille. Ce n'est pas ce que je voulais dire.Je veux dire un processus de compte depuis Listbox dont la référence est le nom du client

 

[Mody200]

Je ne parlais pas d'un calcul depuis l'intérieur du tableau. Je voulais que celui-ci depuis l'intérieur de la listbox soit référencé au texte, comme j'ai expliqué l'idée.

 

[Mody200]

L'idée du processus de calcul à partir de la listbox, avec le texte comme référence, m'a beaucoup épuisé. J'ai cherché un code comme celui-ci et je ne l'ai pas trouvé sur Google. Cela me semble impossible.

 

[job75]

Bonjour Mody200, le forum,

Quand on veut modifier des éléments d'une ListBox il faut modifier le tableau source.

A+

 

[Mody200]

Bonjour Mody200, le forum,

Quand on veut modifier des éléments d'une ListBox il faut modifier le tableau source.

A+

Je sais bien que le fichier que vous avez envoyé affiche les données du tableau dans la listbox
Je comprends les codes qui font cela avec plus d'un code
Mais je ne veux pas de visionneuse de données dans la liste
Je souhaite effectuer un calcul uniquement à partir de la zone de liste
Cependant, cela dépend de la première colonne de texte. Lorsque le texte de la première colonne diffère en fonction du nom du client, la valeur de la troisième colonne diffère et la valeur doit être celle indiquée sur l'image.
Je répète encore l'idée
Le processus de calcul est effectué à partir de la ListBox et ne dépend d'aucun tableau d'aucune feuille de calcul.

 

[job75]

Calculer quoi ???

Pour illustrer ce que j'ai dit voyez ce fichier (2) et le code de l'UserForm :

Private Sub CommandButton1_Click() 'Ajouter
With [Tableau1] 'tableau structuré
    .Columns(3).Insert xlToRight
    .Cells(0, 3) = "Total"
    .Cells(1, 3) = "=SUMIF(A$1:A2,A2,B$1:B2)"
End With
CommandButton1.Enabled = False
CommandButton2.Enabled = True
ListBox1.RowSource = "Table"
End Sub

Private Sub CommandButton2_Click() 'Effacer
[Tableau1].Columns(3).Delete xlToLeft
CommandButton1.Enabled = True
CommandButton2.Enabled = False
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CommandButton2.Enabled Then CommandButton2_Click
End Sub

Les boutons ajoutent et effacent la 3ème colonne.

 

[Mody200]

Je souhaite interroger entre une date de début, une date de fin, le nom du client et le nom du produit
La quantité achetée est dans une colonne, la quantité vendue est dans une colonne et l'addition et la soustraction entre elles sont dans la dernière colonne.