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 :
Les données dans la fiche excel s'affichent comme tel :
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
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
Partager