Bonjour,

Pouvez-vous m'aider à ajouter à mon moteur une formule "Sum" dans mon tableau excel ?

Tableau excel
A1 : USD12500
A2 : USD5236,12
A3 : USD4122,56
A4 : USD7852,45
A5 : USD4525,41
A6 : EUR7894,00
A7 : EUR1234,10
A8 : EUR4561,10
A9 : EUR4512,52
A10 : EUR1241,
A11 : GBP4512,
A12 : GBP4872
A13: GBP4512

Dans la colonne B : le montant seul
Dans la colonne C : La devise Seul

Donc j'ai fait en sorte qu'il y est deux sauts de lignes lorsque la devise de la ligne est différente de la devise sur la ligne précédente.

Je voudrais ajouter sur la première ligne blanche en A6 logiquement : le terme Total en colonne B la somme des différentes sommes, et en colonne C la devise de la somme.

Est-ce que cela est possible ? Bien sur, je voudrai une somme et non pas un cumul. Car si je dois retirer un chiffre de mon tableau, je voudrais que les totaux s'ajustent.

Merci d'avance pour votre aide.

Bien à vous

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
63
64
65
66
67
68
 
Sub Macro1() 
 
' Macro recorded 16/11/2011
' Keyboard Shortcut: Ctrl+a 
 
'Nomination des variables 
 Dim Montant As String 
 Dim Devise As String 
 Dim DevisePrec As String 
 Dim Cpt As String 
 
'Suppression des espaces blancs 
 Columns("A:A").Select 
 Selection.Replace What:=" ", Replacement:="", LookAt:=xlPart, _ 
 SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ 
 ReplaceFormat:=False 
 
'Démarrage du compteur 
 Cpt = 1 
 
'Positionnement de départ 
 Range("a1").Select 
 DevisePrec = Mid(Range("A" & Cpt), 1, 3) 
 
'Démarrage de la boucle 
 Do While ActiveCell.Value <> "" 
 
'Positionnement du montant dans la colonne A 
 Montant = Replace(Mid(Range("A" & Cpt), 4, Len(Range("A" & Cpt).Value) - 4), ",", ".") 
 
'Positionnement de la devise dans la colonne A 
 Devise = Mid(Range("A" & Cpt), 1, 3) 
 
'Ajout du montant dans la colonne B 
 Range("B" & Cpt).Value = Val(Montant) 
 
'Ajout de la devise dans la colonne C 
 Range("C" & Cpt).Value = Devise 
 
  If Cpt > 1 Then 
 
    If Devise <> DevisePrec Then 
 
      Selection.EntireRow.Insert 
      Selection.EntireRow.Insert 
      ActiveCell.Offset(1, 0).Select 
      Cpt = Cpt + 1 
      DevisePrec = Devise 
 
     End If 
 
  End If 
 
'Saut de ligne 
 ActiveCell.Offset(1, 0).Select 
 
'Fin du compteur 
 Cpt = Cpt + 1 
 
 Loop 
 
'Ajout des décimales colonne B 
 Range("B:B").Select 
 Selection.NumberFormat = "0.00" 
 Columns("B:B").EntireColumn.AutoFit 
 
End Sub