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

Recherche de donnees avec index equiv

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 !

urbanito1

XLDnaute Occasionnel
Bonjour au forum

j'ai un tableau avec des données par personne suivant une référence
je souhaite les regrouper mais j'ai un souci lorsqu'une même référence apparaît deux fois
je joins mon tableau test


merci
urbanito1
 

Pièces jointes

Re : Recherche de donnees avec index equiv

Bonjour,
tu cherches un total par référence ou par agent ?
tu peux être plus clair svp 🙂
(je suis dur de la comprenette, je l'admets)

peut être (dans un module VBA):

Sub SousTotal()
Dim Ws1, Ws2 As Worksheet
Set Ws2 = Sheets("totaux ")
Set Ws1 = Sheets("DONNEES ")
Set d = CreateObject("Scripting.Dictionary")
For Each c In Ws1.Range("b3", Ws1.[b65000].End(xlUp))
d(c.Value) = d(c.Value) + c.Offset(, 1) + c.Offset(, 2).Value
Next c
Ws2.[h3].Resize(d.Count, 1) = Application.Transpose(d.keys)
Ws2.[i3].Resize(d.Count, 1) = Application.Transpose(d.items)
End Sub
 
Dernière édition:
Re : Recherche de donnees avec index equiv

LE forum
chalet53 merci c'est ok avec sommeprod j'y pensais pas
gossilien la macro ok sur mon fichier test (total par référence)
je vois comment l'adapter sur mon fichier original
merci et bonne apm
urbanito1
 
- 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

Réponses
12
Affichages
329
D
  • Question Question
Réponses
5
Affichages
216
Didierpasdoué
D
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…