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.