Recherche et somme

mth

XLDnaute Barbatruc

• 24 Septembre 2011

• #2

Re : Recherche et somme

Bonjour,

Une option avec ce code (sur bouton A):

Code:

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):

Code:

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

Bonne journée à toi,

mth

 

Pièces jointes

• 24%20SEPT2011%20RECHERCHE(1).xlsm

  35.3 KB · Affichages: 73

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 24 Septembre 2011

• #3

Re : Recherche et somme

Bonjour, BRUNO62, mth 🙂, le Forum,

Une autre possibilité dans le fichier joint.

A bientôt 🙂.

 

Pièces jointes

• 00 - BRUNO62 - Sans doublon MàJ.xls

  55.5 KB · Affichages: 64

Vote positif 0 Vote négatif

B

BRUNO62

XLDnaute Occasionnel

• 24 Septembre 2011

• #4

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+

 

Pièces jointes

• 24_SEPT2011_BIS.xls

  46 KB · Affichages: 33

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 24 Septembre 2011

• #5

Re : Recherche et somme

Re-bonjour,

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

 

Vote positif 0 Vote négatif

B

BRUNO62

XLDnaute Occasionnel

• 24 Septembre 2011

• #6

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+

 

Vote positif 0 Vote négatif

mth

XLDnaute Barbatruc

• 24 Septembre 2011

• #7

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 🙂

 

Dernière édition: 24 Septembre 2011

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 24 Septembre 2011

• #8

Re : Recherche et somme

Re-bonjour,

BRUNO62 à dit:

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

Cliquez pour agrandir...

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

Cliquez pour agrandir...

A bientôt.

 

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

Supporter XLD

• 24 Septembre 2011

• #9

Re : Recherche et somme

Bonsoir Bruno62, mth, oo 🙂🙂

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

Cliquez pour agrandir...

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 😛

 

Pièces jointes

• Bruno62.xls

  69 KB · Affichages: 59
• Bruno62.xls

  69 KB · Affichages: 58
• Bruno62.xls

  69 KB · Affichages: 60

Vote positif 0 Vote négatif

B

BRUNO62

XLDnaute Occasionnel

• 24 Septembre 2011

• #10

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+

 

Pièces jointes

• XX_24SEPT.xls

  62.5 KB · Affichages: 41

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 24 Septembre 2011

• #11

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

Cliquez pour agrandir...

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) ???

 

Vote positif 0 Vote négatif

mth

XLDnaute Barbatruc

• 25 Septembre 2011

• #12

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:

Code:

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

 

Vote positif 0 Vote négatif

B

BRUNO62

XLDnaute Occasionnel

• 25 Septembre 2011

• #13

Re : Recherche et somme

Bonjour mth,

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

 

Vote positif 0 Vote négatif