Recherche et somme

[BRUNO62]

Bonjour,

Je souhaite à partir d'une feuille 1 reprendre des données et les insérer dans une feuil2
en regroupant les quantités
Avez vous une idée ?
Merci
A+

 

[mth]

Re : Recherche et somme

Bonjour,

Une option avec ce code (sur bouton A):

Sub Macro2()
With Sheets("Feuil3")
    .Columns("A:B").ClearContents
    Sheets("Feuil1").Columns("A:A").Copy .Range("A1")
    .Range("$A1:A" & .Cells(Rows.Count, 1).End(xlUp).Row).RemoveDuplicates Columns:=1, Header:=xlYes
    .Range("B2:B" & .Cells(Rows.Count, 1).End(xlUp).Row).FormulaR1C1 = "=SUMIF(Feuil1!C[-1],RC[-1],Feuil1!C)"
End With
End Sub

Ou alors un TCD et cette ligne pour actualiser (sur bouton B feuille 3):

Sub Macro3()
    Sheets("Feuil1").PivotTables("Tableau croisé dynamique1").PivotCache.Refresh
End Sub

Bonne journée à toi,

mth

 

[DoubleZero]

Re : Recherche et somme

Bonjour, BRUNO62, mth 🙂, le Forum,

Une autre possibilité dans le fichier joint.

A bientôt 🙂.

 

[BRUNO62]

Re : Recherche et somme

Bonjour mth,

Grand merci, cela fonctionne sous 2010 mais 2003 je rencontre un pb
Avez vous une idée ?
Par avance merci
A+

 

[DoubleZero]

Re : Recherche et somme

Re-bonjour,

@ BRUNO62 : nos messages se sont croisés 🙂...

 

[BRUNO62]

Re : Recherche et somme

Bonsoir DoubleZero,

Grand merci, c'est ok.
J'ai une autre question , j'exclu le croisé dynamique. J'alimente une feuil1 automatiquement sans aucune saisie et je souhaiterais reprendre ces données dans une feuil 2 pou effectuer une synthèse et cela ne fonctionne pas
Avez vous une idée ?
Par avance merci
A+

 

[mth]

Re : Recherche et somme

Bonsoir à tous,

Il faudrait que tu expliques avec un petit bout de fichier ce que tu veux faire, car là pour l'instant reconnais que ce n'est pas très concret ...

(Par ailleurs, ton sujet est marqué "Excel 2010", par conséquent on utilise des fonctionnalités disponibles sur les versions récentes mais qui ne sont pas forcément compatibles avec les versions antérieures.
Quand tu dois avoir une compatibilité, précise le dans tes messages sans quoi on ne peut pas deviner.)

Bonne soirée ,

mth

Edit: Hello 00 🙂

Edit 2: 🙂 Bonsoir Victor 🙂

 

[DoubleZero]

Re : Recherche et somme

Re-bonjour,

... J'alimente une feuil1 automatiquement sans aucune saisie et je souhaiterais reprendre ces données dans une feuil 2 pou effectuer une synthèse et cela ne fonctionne pas...

Si Feuil1 du fichier de travail se présente comme Feuil1 du fichier déposé sur le forum, je n’ai aucune idée sur l’origine du dysfonctionnement.

Pouvez-vous déposer une copie du fichier original en cause, bien évidement, sans données confidentielles.

Comme le dit mth 🙂 :

... ce n'est pas très concret ...

A bientôt.

 

[Victor21]

Re : Recherche et somme

Bonsoir Bruno62, mth, oo 🙂🙂

Grand merci, c'est ok.
...et cela ne fonctionne pas

Là il faudrait expliquer ???

Une autre proposition par formule qui fonctionne sur 2003 en pj, mais rien de mieux que ce qui a été proposé par mes illustres prédécessrices 😛

 

[BRUNO62]

Re : Recherche et somme

Bonsoir,
Ci-dessous le fichier joint.
La feuil3 regroupe les données. le calcul ne se fait pas automatiquement.

Par avance merci
A+

 

[DoubleZero]

Re : Recherche et somme

Re-bonjour, bonjour Victor21 🙂,

Pour ce qui me concerne, n’étant pas « illustre », Victor21 peut mettre ceci :

...mes illustres prédécessrices...

au singulier 😱 !

Quant au nouveau fichier joint, avant que chacun n’y travaille en vain 🙄… où se trouvent réellement les données qui doivent être traitées ? Onglet1 (initialement), onglet2 (à présent) ???

 

[mth]

Re : Recherche et somme

re bonsoir à tous 🙂

Pas illustre non plus mth et de loin, mais Victor ta galanterie est toute à ton honneur 🙂

Avec ce que j'ai cru comprendre, ça donne ceci:

Option Explicit
Sub MAJ()
Application.ScreenUpdating = False
With Sheets("Feuil2")
    .Range("D1") = 1
    .Range("D1").Copy
    .Range("B2:C" & .Cells(Rows.Count, 1).End(xlUp).Row).PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply
    .Range("D1").ClearContents
End With
With Sheets("Feuil3")
    .[A1].CurrentRegion.Clear
    .[B1] = "MOTOS"
    .[C1] = "AUTOS"
    Sheets("Feuil2").[A:A].AdvancedFilter Action:=xlFilterCopy, _
        CopyToRange:=.Range("A2"), Unique:=True
    .Range("B2:B" & Range("A65536").End(xlUp).Row) = "=SUMIF(Feuil2!C[-1],RC[-1],Feuil2!C)"
    .Range("C2:C" & Range("A65536").End(xlUp).Row) = "=SUMIF(Feuil2!C[-2],RC[-2],Feuil2!C)"
End With
Application.ScreenUpdating = True
End Sub

Le premier With, c'est parce que les données de ton onglet Feuille 2 ne sont pas des chiffres mais du texte, le second est ton code un peu aménagé (tu avais par exemple un décalage de ligne)

Vois si cela peut te convenir,

Très bonne soirée à tous, 🙂
mth

 

[BRUNO62]

Re : Recherche et somme

Bonjour mth,

Trés grand merci !
C'est ok.
Bon dimanche
A+