Synthèse de données avec calcul

C

chrisw

XLDnaute Nouveau

• 30 Mai 2016

• #16

Re : Synthèse de données avec calcul

Je me lance :

NbL = Worksheets("Données").Cells(Rows.Count, "A").End(xlUp).Row - 1
For Each Ident In GroupOrg(Worksheets("Données").Range("A2:F2").Resize(NbL), 1)
Après cette étape on remets les valeurs à 0
For Each Détail In Ident.Contenu
Valeur = Valeur+Détail(6)
Report de tous le contenu du SSGroup
Fin
Sous Groupe suivant

 

Dernière modification par un modérateur: 30 Mai 2016

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 30 Mai 2016

• #17

Re : Synthèse de données avec calcul

C'est pas mal du tout.
Mais il manque toujours le report en question vers des éléments d'une nouvelle ligne L d'un tableau de sortie.

Allez, je vous le donne.

 

Pièces jointes

• GrpOrgChrisw.xlsm

  66 KB · Affichages: 59

Vote positif 0 Vote négatif

C

chrisw

XLDnaute Nouveau

• 31 Mai 2016

• #18

Re : Synthèse de données avec calcul

Merci beaucoup pour votre patiente et vos explications
J'adapte la fonction à mes données réelles, je devrais y arriver.

 

Vote positif 0 Vote négatif

C

chrisw

XLDnaute Nouveau

• 31 Mai 2016

• #19

Re : Synthèse de données avec calcul

J'ai adapté la fonction à une tableau réel, l'affichage est bon mais j'ai un problème sur mon Id
La valeur de l'Id dans le tableau final est bien affichée mais si je fais une copie il affiche toujours la même valeur. Mon Id se compose de 18 caractères, es-ce pris en charge ?

 

Vote positif 0 Vote négatif

C

chrisw

XLDnaute Nouveau

• 31 Mai 2016

• #20

Re : Synthèse de données avec calcul

Tout est rentré dans l'ordre, j'ai ré-enregistré le fichier, les données sont à présent valide.

 

Dernière modification par un modérateur: 31 Mai 2016

Vote positif 0 Vote négatif