somme item identiques sur plusieurs colonnes

PascalXLD

XLDnaute Barbatruc

• 15 Mai 2009

• #2

Re : somme item identiques sur plusieurs colonnes

Bonjour

Pourquoi pas un tableau croisé dynamique ?

 

Vote positif 0 Vote négatif

jeanpierre

Nous a quitté

Repose en paix

• 15 Mai 2009

• #3

Re : somme item identiques sur plusieurs colonnes

Bonjour mirek, PascalXLD,

Si j'ai bien compris :

Private Sub CommandButton1_Click()
Range("A2").Select
Do While Not IsEmpty(ActiveCell.Value)
critere = (ActiveCell.Value = ActiveCell.Offset(1, 0).Value)
If critere = True Then
ActiveCell.Offset(0, 2).Value = ActiveCell.Offset(0, 2).Value + ActiveCell.Offset(1, 2).Value
ActiveCell.Offset(0, 3).Value = ActiveCell.Offset(0, 3).Value + ActiveCell.Offset(1, 3).Value
ActiveCell.Offset(0, 4).Value = ActiveCell.Offset(0, 4).Value + ActiveCell.Offset(1, 4).Value
ActiveCell.Offset(1, 3).EntireRow.Delete shift = xlUp
Else
ActiveCell.Offset(1, 0).Select
End If
Loop
End Sub

Bonne journée.

Jean-Pierre

 

Vote positif 0 Vote négatif

M

mirek

XLDnaute Nouveau

• 15 Mai 2009

• #4

Re : somme item identiques sur plusieurs colonnes

merci à vous pour les réponses

je vais sessayé le programme à Jean Pierre dans la matinée (je suis au bureau)😀
pour ce qui est du tableau croisé dynamique est ce que je peux ensuite extraire les valeurs pour les regrouper avec d'autres données pour permettre de mettre à jour un Graphique.

cordialement

Mirek

 

Vote positif 0 Vote négatif

vbacrumble

XLDnaute Accro

• 15 Mai 2009

• #5

Re : somme item identiques sur plusieurs colonnes

Bonjour à tous


La même que jeanpierre
(version With/End With)

Voir PJ

 

Pièces jointes

• Classeur1WEW.xls

  28.5 KB · Affichages: 91

Vote positif 0 Vote négatif

M

mirek

XLDnaute Nouveau

• 15 Mai 2009

• #6

Re : somme item identiques sur plusieurs colonnes

bonjour vbacrumble

c'est magnifique que du bonheur fonctionne à merveille

bravo .............................

merci à vous tous

bon we

Mirek

 

Vote positif 0 Vote négatif

vbacrumble

XLDnaute Accro

• 15 Mai 2009

• #7

Re : somme item identiques sur plusieurs colonnes

Re


Merci aussi à jeanpierre, auteur du code modifié initial 😉

 

Vote positif 0 Vote négatif

K

KIM

XLDnaute Accro

• 15 Mai 2009

• #8

Re : somme item identiques sur plusieurs colonnes

Bonjour le fil & le forum,
Ce regroupement est tres interessant, mais comment faire pour que ce regroupement se fasse dans la feuil2 sans effacer les données de la feuil1.
Merci d'avance
KIM

 

Vote positif 0 Vote négatif

jeanpierre

Nous a quitté

Repose en paix

• 15 Mai 2009

• #9

Re : somme item identiques sur plusieurs colonnes

Re, Bonjour vbacrumble, KIM,

Rectification, je ne suis pas l'auteur du code, je n'ai fait que rajouter au code existant.

Bonne journée.

Jean-Pierre

 

Vote positif 0 Vote négatif

vbacrumble

XLDnaute Accro

• 15 Mai 2009

• #10

Re : somme item identiques sur plusieurs colonnes

Re

jeanpierre
J'avais bien pris soin de préciser : auteur du code modifié initial 😉


Pour KIM

Code:

Private Sub CommandButton1_Click() ' avec With / End With
Application.ScreenUpdating = False
ActiveSheet.Copy Before:=Sheets(1)
ActiveSheet.Range("A2").Select
Do While Not IsEmpty(ActiveCell)
With ActiveCell
    critere = (.Value = .Offset(1, 0))
        If critere = True Then
        .Offset(0, 2) = .Offset(0, 2) + .Offset(1, 2)
        .Offset(0, 3) = .Offset(0, 3) + .Offset(1, 3)
        .Offset(0, 4) = .Offset(0, 4) + .Offset(1, 4)
        .Offset(1, 3).EntireRow.Delete shift = xlUp
        Else
        .Offset(1, 0).Select
        End If
End With
Loop
ActiveSheet.OLEObjects(1).Delete
Application.ScreenUpdating = True
End Sub

 

Vote positif 0 Vote négatif

K

KIM

XLDnaute Accro

• 15 Mai 2009

• #11

Re : somme item identiques sur plusieurs colonnes

Merci vbacrumble, JeanPierre et le forum.
Cela me dépanne en faisant une copie du resultat dans une feuille déjà existante (Synth) et à partir de la cellule G5.
Merci le forum
KIM

 

Vote positif 0 Vote négatif

M

mirek

XLDnaute Nouveau

• 15 Mai 2009

• #12

Re : somme item identiques sur plusieurs colonnes

merci à tous vous etes des champions.

par contre j'ai un petit soucis j'ai adapté le code à un tableau avec des cellules qui ont un formule qui permet de récupérer la valeur d'une autre cellule si celle ci fait parti d'une condition d'un code item.

et la le code plante je vois bien sur la premiere ligne surlignée que la valeur a bien été attribuée à l'offset mais je n'arrive pas à aller plus loin

est ce quelqu'un aurait une idée

merci

Mirek

 

Vote positif 0 Vote négatif