copier des valeurs sous conditions de plusieurs feuilles et additionner

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 !

doudou.0022

XLDnaute Junior
Bonsoir,

Je me suis créé un tableau de commande groupées et créé une feuille par personne, et je souhaiterai un récap du total de la commande à condition qu'il y est une quantité dans la colonne. Si trois personnes ont choisi de commander le même produit : Ex : produit "Dirty" qté "1" Prix £ 4,5

je dois retrouver sur ma fiche récap produit "Dirty" qté "3" Prix £ 13,5

Cette fiche récap doit se mettre à jour automatiquement si on continu à renseigner une fiche commande

Merci pour votre aide ou autre solution
 

Pièces jointes

Re : copier des valeurs sous conditions de plusieurs feuilles et additionner

Merci pour vos réponse on y est presque...

J'aimerai voir apparaître en récup uniquement les ligne de produits où il y a une quantité et sans les noms des personnes.

et si Freezer = 0,5 500ml et magali 0,5 500ml alors il faut commander 1 bouteille de 500ml

c'est possible ? et je ne vois pas comment intégrer une formule somme SI en fiche récap...
 
Re : copier des valeurs sous conditions de plusieurs feuilles et additionner

Re,

Remplace la fonction personnalisée Fusion 4 (issue du forum) par celle-ci. Pour cela clic droit sur un nom d'onglet, visualiser le code, module1
Function Fusion8(champ1, champ2, champ3, champ4, champ5, champ6, champ7, champ8) Dim temp()
Set mondico1 = CreateObject("Scripting.Dictionary")
For Each c In champ1
If c <> "" Then
If Not mondico1.Exists(c.Value) Then mondico1.Add c.Value, c.Value
End If
Next c
For Each c In champ2
If c <> "" Then
If Not mondico1.Exists(c.Value) Then mondico1.Add c.Value, c.Value
End If
Next c
For Each c In champ3
If c <> "" Then
If Not mondico1.Exists(c.Value) Then mondico1.Add c.Value, c.Value
End If
Next c
For Each c In champ4
If c <> "" Then
If Not mondico1.Exists(c.Value) Then mondico1.Add c.Value, c.Value
End If
Next c
For Each c In champ5
If c <> "" Then
If Not mondico1.Exists(c.Value) Then mondico1.Add c.Value, c.Value
End If
Next c
For Each c In champ6
If c <> "" Then
If Not mondico1.Exists(c.Value) Then mondico1.Add c.Value, c.Value
End If
Next c
For Each c In champ7
If c <> "" Then
If Not mondico1.Exists(c.Value) Then mondico1.Add c.Value, c.Value
End If
Next c
For Each c In champ8
If c <> "" Then
If Not mondico1.Exists(c.Value) Then mondico1.Add c.Value, c.Value
End If
Next c
ReDim temp(1 To champ1.Count + champ1.Count)
i = 1
For Each c In mondico1.items
temp(i) = c
i = i + 1
Next
Fusion8 = Application.Transpose(temp)
End Function
 
Dernière édition:
- 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

Retour