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 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172
| Private Sub Calendar2_Click()
dateOper.Value = Calendar2.Value
End Sub
'Annuler opération
Private Sub annulOper_Click()
'effacer données dans formulaire
societDestin.Value = ""
nomDestin.Value = ""
banqBen.Value = ""
cBanqDestin.Value = ""
cGuichDestin.Value = ""
numCompteDestin.Value = ""
ribDestin.Value = ""
nbpages.Value = ""
dateOper.Value = ""
socDeb.Value = ""
montantOper.Value = ""
banqueOper.Value = ""
numCompteOper.Value = ""
natOperat = ""
typeVir = ""
natVir.Value = ""
Range("nContrat") = ""
End Sub
Private Sub ajoutCont_Click()
Range("nContrat").Value = nContrat.Value
nContrat.Value = ""
End Sub
Private Sub apercuOrdre_Click()
Sheets("OrdreDeVirement").Select
F_OrdreVir.Hide
End Sub
Private Sub Fermer_Click()
'If MsgBox("Etes vous sûr de vouloir fermer l'application?", bvYesNo) = vbYes Then
F_OrdreVir.Hide
'End If
End Sub
Private Sub retour_Click()
F_OrdreVir.Hide
F_Accueil.Show
End Sub
Private Sub operation_Click()
End Sub
Private Sub soldes_Click()
F_OrdreVir.Hide
F_Solde.Show
End Sub
Private Sub UserForm_Initialize()
Me.DateJour = Date
Me.natOperat.RowSource = "typeOper"
Me.typeVir.RowSource = "typerVir2"
Me.banqueOper.RowSource = "typebanque"
End Sub
Private Sub banqueOper_Change()
If banqueOper.Value = Range("donneesListeDeroul!B2").Value Then
numCompteOper.RowSource = "comptebnp"
Else
If banqueOper.Value = Range("donneesListeDeroul!B3").Value Then
numCompteOper.RowSource = "comptenatixis"
Else
If banqueOper.Value = Range("donneesListeDeroul!B4").Value Then
numCompteOper.RowSource = "comptesocietegen"
End If
End If
End If
End Sub
'Private Sub montantOper_Exit(ByVal Cancel As MSForms.ReturnBoolean)
'montantOper.Value = Format(CDbl(montantOper.Value), "# ### ###.00")
'End Sub
Private Sub validerOper_Click()
Sheets("Base_operations").Select
'Feuille ordre de virement
If initiat.Value = True Then
Range("OrdreDeVirement!D12").Value = societDestin.Value
Range("OrdreDeVirement!D13").Value = nomDestin.Value
Range("OrdreDeVirement!D15").Value = nomExp.Value
Range("OrdreDeVirement!D16").Value = depart.Value
Range("OrdreDeVirement!D17").Value = Tel.Value
Range("OrdreDeVirement!D18").Value = Fax.Value
Range("OrdreDeVirement!D19").Value = mail.Value
Range("OrdreDeVirement!D20").Value = dateOper.Value
Range("OrdreDeVirement!D21").Value = nbpages.Value
Range("OrdreDeVirement!D22").Value = objet.Value
Range("OrdreDeVirement!F30").Value = Val(montantOper.Value)
'Range("OrdreDeVirement!G30").Value = Chiffres_à_Lettres(Val(montantOper.Value))
Range("OrdreDeVirement!F32").Value = natVir.Value
If typeVir.Value = "Normal" Then
Range("OrdreDeVirement!F28").Value = CDate(dateOper.Value) + 1
Else
Range("OrdreDeVirement!F28").Value = CDate(dateOper.Value)
End If
If natOperat.Value = "Prélèvement" Then
Range("OrdreDeVirement!F28").Value = CDate(dateOper.Value)
Range("OrdreDeVirement!F43").Value = socDeb.Value
Range("OrdreDeVirement!F42").Value = societDestin.Value
Range("OrdreDeVirement!G43").Value = banqueOper.Value
Range("OrdreDeVirement!G42").Value = banqBen.Value
Range("OrdreDeVirement!H43").Value = numCompteOper.Value
Range("OrdreDeVirement!H42").Value = cBanqDestin.Value & " " & cGuichDestin.Value & " " & numCompteDestin.Value & " " & ribDestin.Value
Else
Range("OrdreDeVirement!F42").Value = socDeb.Value
Range("OrdreDeVirement!F43").Value = societDestin.Value
Range("OrdreDeVirement!G42").Value = banqueOper.Value
Range("OrdreDeVirement!G43").Value = banqBen.Value
Range("OrdreDeVirement!H42").Value = numCompteOper.Value
Range("OrdreDeVirement!H43").Value = cBanqDestin.Value & " " & cGuichDestin.Value & " " & numCompteDestin.Value & " " & ribDestin.Value
End If
End If
'Base Opération
Range("dateSaisie").Value = CDate(DateJour.Value)
Range("dateOrdre").Value = CDate(dateOper.Value)
Range("societBen").Value = societDestin.Value
Range("libelVir").Value = natVir.Value
Range("banqueVir").Value = banqueOper.Value
Range("numcompteVir").Value = numCompteOper
Range("natOper").Value = natOperat.Value
If natOperat.Value = "Prélèvement" Then
Range("datePrel").Value = CDate(dateOper.Value)
Range("montant").Value = Val(montantOper.Value)
Range("typeVir").Value = "-----"
Else
Range("montant").Value = Val(montantOper.Value) * -1
Range("typeVir").Value = typeVir.Value
If typeVir.Value = "Normal" Then
If banqueOper.Value = "BNP" Or banqueOper.Value = "NATIXIS" Then
Range("datePrel").Value = Format(PlusJOuvres(CDate(dateOper.Value), 8), "dd/mm/yyyy")
Else
Range("datePrel").Value = Format(PlusJOuvres(CDate(dateOper.Value), 5), "dd/mm/yyyy")
End If
Else
Range("datePrel").Value = Format(PlusJOuvres(CDate(dateOper.Value), 2), "dd/mm/yyyy")
End If
End If
societDestin.Value = ""
nomDestin.Value = ""
banqBen.Value = ""
cBanqDestin.Value = ""
cGuichDestin.Value = ""
numCompteDestin.Value = ""
ribDestin.Value = ""
nbpages.Value = ""
dateOper.Value = ""
socDeb.Value = ""
montantOper.Value = ""
banqueOper.Value = ""
numCompteOper.Value = ""
natOperat = ""
typeVir = ""
natVir.Value = ""
nContrat.Value = ""
societDestin.SetFocus
End Sub |
Partager