Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2010 Listbox

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Mody200

XLDnaute Occasionnel
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.



 
Dernière édition:
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.
 
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.
 
Calculer quoi ???

Pour illustrer ce que j'ai dit voyez ce fichier (2) et le code de l'UserForm :
VB:
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.
 

Pièces jointes

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.
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
XL 2021 listbox
Réponses
18
Affichages
327
Réponses
10
Affichages
576
Réponses
16
Affichages
869
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…