Bonjour,

Je voudrais ajouter à au moteur ci-dessous deux choses :

- Un saut de deux lignes lorsqu'il rencontre une différence entre les devices
- L'ajout d'un total sur la première ligne que le programme saute, en gras de préférence.

Voici le code actuel :

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
 
Sub Macro1()
'Keyboard shortcut :Ctrl+a
Dim Montant As String 
Dim Devise 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 
 
'Démarrage de la boucle 
 Do While ActiveCell.Value <> "" 
 Montant = Replace(Mid(Range("A" & Cpt), 4, Len(Range("A" & Cpt).Value) - 4), ",", ".") 
 Devise = Mid(Range("A" & Cpt), 1, 3) 
 Range("B" & Cpt).Value = Val(Montant) 
 Range("C" & Cpt).Value = Devise 
 ActiveCell.Offset(1, 0).Select 
 Cpt = Cpt + 1 
 Loop
Les données dans la fiche excel s'affichent comme tel :

Colonne A
Ligne 1 : EUR25000
Ligne 2 : EUR35000
Ligne 3 : USD12000
Ligne 4 : GBP15000
Ligne 5 : GBP305,50

Résultat effecuté avec la macro du dessus :

Colonne A
Ligne 1 : EUR25000

Colonne b : Ligne 1 : 25000,00
Colonne c : Ligne 1 : EUR

Résultat attendu avec vos modifications

Séparation lorsqu'il détecte en colonne C une différence entre les devises.
Saut de deux lignes, en ajoutant une somme en gras.

Merci d'avance

Bien à vous