copier des valeurs sous conditions de plusieurs feuilles et additionner

O

Oliver77

XLDnaute Occasionnel

• 29 Avril 2012

• #2

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

Bonjour,

Trop facile, utilise un somme.si().
Par contre, pour que tu n'es pas de surprise il te faut à mon avis un code article.

Oliver

 

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 29 Avril 2012

• #3

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

Bonjour à tous,

Un essai en pièce jointe

JHA

 

Pièces jointes

• Commande UK.xls

  216.5 KB · Affichages: 65
• Commande UK bis.xls

  260.5 KB · Affichages: 66

Dernière édition: 29 Avril 2012

Vote positif 0 Vote négatif

D

doudou.0022

XLDnaute Junior

• 29 Avril 2012

• #4

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

 

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 29 Avril 2012

• #5

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

Re,

Ton fichier révisé avec un filtre en colonne "L" de l'onglet Récap

JHA

 

Pièces jointes

• Commande UK Rev2.xls

  255 KB · Affichages: 82

Dernière édition: 29 Avril 2012

Vote positif 0 Vote négatif

D

doudou.0022

XLDnaute Junior

• 29 Avril 2012

• #6

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

C'est exactement ça !!!! Merci bcp JHA !!

Doudou😉

 

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 29 Avril 2012

• #7

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

Re,

mise à jour de la révision 2 avec le prix des "à commander"

JHA

 

Vote positif 0 Vote négatif

D

doudou.0022

XLDnaute Junior

• 29 Avril 2012

• #8

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

au top JHA !! Mille Merci

 

Vote positif 0 Vote négatif

D

doudou.0022

XLDnaute Junior

• 29 Avril 2012

• #9

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)

 

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 29 Avril 2012

• #10

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

Re,

Combien as tu d'onglet hors mis "Récap"?

JHA

 

Vote positif 0 Vote négatif

D

doudou.0022

XLDnaute Junior

• 29 Avril 2012

• #11

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

J'ai 8 onglets "personnes" + mon onglet taux de change... Mais il se peut qu'à l'avenir j'ai plus ou moins de personnes

 

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 29 Avril 2012

• #12

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

Cliquez pour agrandir...

 

Dernière édition: 29 Avril 2012

Vote positif 0 Vote négatif

D

doudou.0022

XLDnaute Junior

• 29 Avril 2012

• #13

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

J'en suis là et je bloque...

 

Pièces jointes

• Commande UK.zip

  48.8 KB · Affichages: 32

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 29 Avril 2012

• #14

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

Re,

A essayer

JHA

 

Pièces jointes

• Essai Commande UK.xls

  429 KB · Affichages: 53

Vote positif 0 Vote négatif

D

doudou.0022

XLDnaute Junior

• 29 Avril 2012

• #15

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 😉

 

Vote positif 0 Vote négatif