copier des valeurs sous conditions de plusieurs feuilles et additionner

  • Initiateur de la discussion Initiateur de la discussion doudou.0022
  • Date de début Date de début

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 !

D

doudou.0022

Guest
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

Aïe impossible de remettre les formule dans mon tableau... avec un collage spéciale, une astuce car en faite dans mon tableau initial j'ai plus d'onglet (nom personne)
 
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:
Re : copier des valeurs sous conditions de plusieurs feuilles et additionner

oui ok, mais du coup quelle est la manip si je veux rajouter des onglet de commandes ? car là c'est complexe pour moi 😉
 
- 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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

D
Réponses
0
Affichages
708
Dédé82
D
T
Réponses
5
Affichages
2 K
Towelie
T
Retour