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
|
Sub Deplacer()
Dim Lgn As Long
'contrôle si les champs sont remplis
If Range("SOMME_PLACEE").Value = "" Or _
Range("TAUX").Value = "" Or _
Range("DATE_PLACEMENT").Value = "" Or _
Range("NUMERO_COMPTE").Value = "" Or _
Range("TYPE_COMPTE").Value = "" Or _
Range("BANQUE").Value = "" Then
MsgBox "Veuillez compléter les différents champs !"
Exit Sub
End If
'inscrit les valeurs dans le tableau
With Worksheets("LISTE PLACEMENTS")
Lgn = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
.Range("E" & Lgn).Value = Range("SOMME_PLACEE").Value
.Range("F" & Lgn).Value = Range("TAUX").Value
.Range("A" & Lgn).Value = Range("DATE_PLACEMENT").Value
.Range("I" & Lgn).Value = Range("FIN_PLACEMENT").Value
.Range("J" & Lgn).Value = Range("DATE_VIREMENT").Value
.Range("C" & Lgn).Value = Range("NUMERO_COMPTE").Value
.Range("B" & Lgn).Value = Range("TYPE_COMPTE").Value
.Range("D" & Lgn).Value = Range("BANQUE").Value
.Range("G" & Lgn).Value = Range("INTERETS").Value
.Range("H" & Lgn).Value = Range("TOTAL").Value
End With
'vide les champs
Range("SOMME_PLACEE").Value = ""
Range("TAUX").Value = ""
Range("DATE_PLACEMENT").Value = ""
Range("NUMERO_COMPTE").Value = ""
Range("TYPE_COMPTE").Value = ""
Range("BANQUE").Value = ""
End Sub |
