Macro fonction Sumifs

Bonjour la communauté.

J’ai un tableau dans la feuil1 de mon fichier Excel 2010 qui va de A11 à L13. En utilisant la touche TAB je me déplace sur la ligne de colonne en colonne et après la dernière colonne de la table (L) le tableau donne une nouvelle ligne.

Mon problème est que je n’arrive pas à appliquer ma formule « Sumifs » dans la feuil2, et je ne comprends pas pourquoi.
Mon objectif est de créer une macro où en cliquant sur le bouton qui se trouve sur la feuil1, que j’obtienne un résumé des de mes clients (sumifs / Customers / Devise) par devise. Pour ça j’ai voulu me simplifier la tâche en enregistrant la macro. Mais avant même d’arriver a cette étape, la fonction « Sumifs » me marche pas.

La présentation final que je désirerai avoir sur la feuil2 est en colonne A « Customer », de B à E « Age 1-30 ; Aged 31-60 ; Aged61-90 ; Aged >=91 », pour uniquement la première devise, ensuite de la colonne G à K, la même chose mais pour la seconde devise et puis de M à Q pour la troisième et dernière devise.

Merci d’avance à vous tous.

Voici mon code où la fonction « sumifs » ne fonctionne pas. Notez que j'ai par defaut sur les lignes de B4:E4;H4:K4;N4:Q4 saisi les formules de la fonction Sumifs, qui sont censées etre copiées sur les ligne du inferieures (du dessous).

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62

Sub Macro8() ' Sheets("Temporaire").Visible = True Sheets("Temporaire").Select Range("A1").Select Sheets("Aging").Select Range("A12").Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy Sheets("Temporaire").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("A1").Select Range(Selection, Selection.End(xlDown)).Select Application.CutCopyMode = False ActiveSheet.Range(Selection, Selection.End(xlDown)).RemoveDuplicates Columns:=1, Header:=xlNo Range("A1").Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy Sheets("ConsoByCurr").Select Range("A4").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("A4").Select Range(Selection, Selection.End(xlDown)).Select Application.CutCopyMode = False Selection.Copy Range("G4").Select ActiveSheet.Paste Range("G4").Select Range(Selection, Selection.End(xlDown)).Select Application.CutCopyMode = False Selection.Copy Range("M4").Select ActiveSheet.Paste Sheets("Temporaire").Visible = xlVeryHidden Sheets("ConsoByCurr").Select Range("B4").Select Range(Selection, Selection.End(xlToRight)).Select Selection.Copy Application.CutCopyMode = False Selection.AutoFill Destination:=Range("B4:E5") Range("B4:E5").Select Range("H4").Select Range(Selection, Selection.End(xlToRight)).Select Selection.Copy Application.CutCopyMode = False Selection.AutoFill Destination:=Range("H4:K5") Range("H4:K5").Select Range("N4").Select Range(Selection, Selection.End(xlToRight)).Select Selection.Copy Application.CutCopyMode = False Selection.AutoFill Destination:=Range("N4:Q5") Range("N4:Q5").Select Cells.Select Selection.Style = "Comma" Range("B1").Select Sheets("Aging").Select Range("B10").Select MsgBox "Dear " & Application.UserName & "," & vbCr & vbCr & "The data was been sucessfully consolidated!" & vbCr & "Please check the result on sheet « ConsoByCurr ».", vbInformation + vbOKOnly, "Consolidation" End Sub

---

Rasta Bomboclat.

Bonjour,

Point besoin de macro pour faire ce que tu souhaites

Citation:

---

La présentation final que je désirerai avoir sur la feuil2 est en colonne A « Customer », de B à E « Age 1-30 ; Aged 31-60 ; Aged61-90 ; Aged >=91 », pour uniquement la première devise, ensuite de la colonne G à K, la même chose mais pour la seconde devise et puis de M à Q pour la troisième et dernière devise.

---

J'ai déjà fait un truc du même genre avec seulement un TCD

De plus je pense qu'il y a la possibilité de faire plus simple

Peux-tu mettre un exemple en ligne (sans données confidentielles) et je t'aiderais à le faire si tu as besoin d'aide

tu dis

A+

Bonjour Igloobel,

Merci pour ta réponse. Tu trouveras annexé mon fichier Excel. La ligne du tableau est vide pour que tu puisses y faire tes testes.

En attendant ta solution… à très bientôt.

Rasta Bomboclat.

Bonjour,

2 remarques,

1°) As-tu l'âge exact de tes customers ?
2°) Peux-tu mettre un petit peu de données bidon du style Customer Machin 1 , Machin 2, Bidule, Truc, ...

A+

Bonjour Igloobel,

Voici, comme demandé le fichier avec quelques données fabriquées.

Merci encore pour ton aide.

Rasta Bomboclat

Bonsoir et bonnes fêtes à tous.

Je n'ai jusque là pas reçu l'aide que j'attendais. N'y a-t-il vraiment personne qui puisse me donner un coup de main sur cette question?

Merci d'avance à tous ceux qui vont contribuer.

Rasta Bomboclat

Bonsoir,

Citation:

---

Je n'ai jusque là pas reçu l'aide que j'attendais. N'y a-t-il vraiment personne qui puisse me donner un coup de main sur cette question?

---

Ca serait tellement mieux si tu avais mis des données dans ton classeur. Est-ce possible ?

Bonjour Daniel C.

Voici le fichier avec quelques données. Ce que je voudrai ici c'est le code qui me permette de recopier les données se trouvant sur la feuille Aging vers la feuille ConsoByCurr, par Devise (AOA, USD, EUR).
Au fait, sur cette meme feuille "ConsoByCurr", sur la premiere ligne de ("A4";"G4";"M4"), j'y avais deja inséré une formule que mon petit code était censé recopier en dessous. Mais comme on peut bien le constater, ça me fonctionne pas comme ça devrait.

Merci pour la participation.

Cordialement,

Rasta Bomboclat

Bonjour,

j'ai du mal a comprendre comment est organisé est ton tableau

voici un extrait avec ma proposition de TCD

c'est dans sheet2

Pièce jointe 195908

tu dis

A+

PS: j'ai beaucoup de travail et je ne peux pas répodre + vite

Finalement, un simple TCD a pu résoudre le problème. Je me demande comment je n’ai pas pu y arriver tout seul :koi: .

Merci beaucoup Igloobel pour ce TCD de grande inspiration. Même avec tout le travail que tu as, tu as pu me donner la réponse à cette préoccupation, c’est l’essentiel pour moi. :merci:
Je vais maintenant y appliquer mes Slicer et finir mon Dashboard.

Merci à tout le monde pour la contribution et participation.

Rasta Bomboclat