somme de somme

[caramelle04]

Bonjour à tous,

Voilà j'ai un petit souci avec une macro je pense qu'il peut se résoudre mais étant novice en VBA, je sollicite votre aide.

J'ai créé des macros pour extraire des données sur une autre feuille et une autre pour effectuer la somme de ces données.
Ce que je souhaiterai réaliser c'est une somme de somme et la mettre dans une autre feuille.
Par exemple, pour la feuille 'Gateau' je voudrais prendre le résultat de la somme de la colonne B puis le résultat de la somme de la colonne D, et effectuer une somme de ces résultats et la mettre dans la feuille 'Somme de somme' à la colonne C.
Pareil pour la feuille 'Chocolat' et mettre le résultat de la somme de ces sommes dans la colonne D.
Excepté pour la feuille 'Bonbon' où le résultat de la somme de la colonne B est simplement à reporter dans la colonne B de ma feuille 'Somme de somme'.

La difficulté est que ces sommes n'apparaissent jamais à la même ligne.

Pensez vous que cela est possible ?

Je vous envoie un exemple de mon fichier.

Merci de votre aide.

 

[david84]

Re : somme de somme

Bonjour,
à tester :

Sub test()
Dim DerLigneDocs1Gateau&, DerLigneDocs3Gateau&, DerLigneDocs1Chocolat&, DerLigneDocs3Chocolat&
DerLigneDocs1Gateau = Sheets("Gateau").Range("B" & Rows.Count).End(xlUp).Value
DerLigneDocs3Gateau = Sheets("Gateau").Range("D" & Rows.Count).End(xlUp).Value
DerLigneDocs1Chocolat = Sheets("Chocolat").Range("B" & Rows.Count).End(xlUp).Value
DerLigneDocs3Chocolat = Sheets("Chocolat").Range("D" & Rows.Count).End(xlUp).Value
    With Sheets("Somme de somme")
        .Cells(1, 3) = DerLigneDocs1Gateau + DerLigneDocs3Gateau
        .Cells(1, 4) = DerLigneDocs1Chocolat + DerLigneDocs3Chocolat
    End With
End Sub

A+

 

[phlaurent55]

Re : somme de somme

bonjour caramelle,

ton fichier en retour

à+
Philippe

Édit: Bonjour David

 

[caramelle04]

Re : somme de somme

Bonjour David84,

J'ai testé ton code mais j'ai un messsage d'erreur qui me met "incompatibilité de type".
Je ne sais pas si c'est ça mais en fait j'utilise excel 2003.
Il m'affiche le message d'erreur à cette ligne:
DerLigneDocs1Gateau = Sheets("Gateau").Range("B" & Rows.Count).End(xlUp).Value

D'où cela peut-il provenir ?

 

[david84]

Re : somme de somme

Re
Bonjour Philippe 🙂,
Code testé chez moi et pas de problème de ce type...As-tu testé ce code tel quel où l'as-tu intégré dans un autre code ? Teste sur le classeur joint et vois ce que cela donne.
A+

 

[caramelle04]

Re : somme de somme

Merci David !

C'est parfait et c'est ce que je voulais 🙂

J'avais buggé quelque part mais tout est ok encore merci 🙂