Discussion :

[RastaBomboclat]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Igloobel]

Bonjour,

Point besoin de macro pour faire ce que tu souhaites

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+

[RastaBomboclat]

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.

[Igloobel]

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+

[RastaBomboclat]

Bonjour Igloobel,

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

Merci encore pour ton aide.

Rasta Bomboclat

[RastaBomboclat]

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

[Daniel.C]

Bonsoir,

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 ?

[RastaBomboclat]

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

[Igloobel]

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

Copy of AR Aged Report (3).xlsm

tu dis

A+

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

[RastaBomboclat]

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

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.
Je vais maintenant y appliquer mes Slicer et finir mon Dashboard.

Merci à tout le monde pour la contribution et participation.

Rasta Bomboclat