Discussion :

[LeTrollDu27]

Bonjour le forum
La bonne année à vous tous.

Cela fait plus 1 mois que je n'arrive pas à finir le code de Validation.
C'est la première fois que je me lance dans une listview et je peine.

l'explication peut être très long alors je préfère partagé le fichier et les indications sont dessus

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
'**** Correspond au programme du bouton "VALIDER" *****
Private Sub CmdB_Valider_Click()
 
'J = ListView1.SelectedItem.Index + 4
 
 
'    With Sheets("SUIVI FACTURES")
 
' ------------------------------------------------ ESPECES
'        .Range("J" & J).Value = IIf(TextBox21.Value)
'        .Range("AK" & J).Value = IIf(TextBox20.Value)
'        .Range("Y" & J).Value = ("ESPECES")
 
 
' ------------------------------------------------ CHEQUES
'        .Range("Z" & J).Value = IIf(TextBox22.Value)
'        .Range("AA" & J).Value = IIf(TextBox23.Value)
'        .Range("J" & J).Value = IIf(TextBox28.Value)
'        .Range("AK" & J).Value = IIf(TextBox27.Value)
'        .Range("Y" & J).Value = ("CHEQUES")
 
 
' ------------------------------------------------ VIREMENT
'        .Range("Z" & J).Value = IIf(TextBox29.Value)
'        .Range("AA" & J).Value = IIf(TextBox30.Value)
'        .Range("AC" & J).Value = IIf(TextBox31.Value)
'        .Range("AD" & J).Value = IIf(TextBox32.Value)
'        .Range("AE" & J).Value = IIf(TextBox33.Value)
'        .Range("AF" & J).Value = IIf(TextBox34.Value)
'        .Range("AG" & J).Value = IIf(TextBox35.Value)
'        .Range("AH" & J).Value = IIf(TextBox36.Value)
'        .Range("AI" & J).Value = IIf(TextBox37.Value)
'        .Range("J" & J).Value = IIf(TextBox42.Value)
'        .Range("AK" & J).Value = IIf(TextBox41.Value)
'        .Range("Y" & J).Value = ("VIREMENT")
 
 
' ------------------------------------------------ PAYPAL
'        .Range("Z" & J).Value = IIf(TextBox43.Value)
'        .Range("AB" & J).Value = IIf(TextBox44.Value)
'        .Range("AC" & J).Value = IIf(TextBox45.Value)
'        .Range("J" & J).Value = IIf(TextBox50.Value)
'        .Range("AK" & J).Value = IIf(TextBox49.Value)
'        .Range("Y" & J).Value = ("PAYPAL")
 
 
' ------------------------------------------------ CARTE BANCAIRE
'        .Range("Z" & J).Value = IIf(TextBox51.Value)
'        .Range("AB" & J).Value = IIf(TextBox53.Value)
'        .Range("AC" & J).Value = IIf(TextBox52.Value)
'        .Range("J" & J).Value = IIf(TextBox58.Value)
'        .Range("AK" & J).Value = IIf(TextBox57.Value)
'        .Range("Y" & J).Value = ("CARTE BANCAIRE")
 
'    End With
 
'    For Each c In Me.Controls
'
'        If TypeName(c) = "TextBox" Then c.Text = ""
'
'    Next c
 
'    With ListView1
'    End With
 
End Sub

Amicalement

Laurent

[LeTrollDu27]

Bonjour le forum
en appuyant sur paiement, on choisit une facture non payé dans la listview et on sélectionne par la combobox le mode de paiement.
Ensuite le frame correspondant au mode de paiement s'affiche et nous remplissons les textboxs vides.
On effectue un contrôle pour pouvoir valider le paiement.



*
A la VALIDATION, les informations dans les carrés ROUGE de la feuille SUIVI FACTURES sont remplies.
*
Information déjà connus à remplir dans les textBoxs
E (5) Montant TTC TextBox17, TextBox24, TextBox38, TextBox46, TextBox54
G (7) Majoration TextBox18, TextBox25, TextBox39, TextBox47, TextBox55
H (8) Restant Du TextBox19, TextBox26, TextBox40, TextBox48, TextBox56
J (10) Date du Règlement (TextBox21, TextBox28, TextBox42, TextBox50, TextBox58) = AUJOURDHUI
*
Les Informations dans les carrés Rouges sont inconnues pour le moment :
Y (25) Mode de paiement : ESPECES, CHEQUES, VIREMENT, PAYPAL, CARTE BANCAIRE
Z (26) Titulaire du Compte ,TextBox22 ,TextBox29, TextBox43, TextBox51
AA (27) N° de chèque ou Domiciliation TextBox23, TextBox30
AB (28) Transaction TextBox44, TextBox53
AC (29) Libellé ou Adresse Mail TextBox31, TextBox45, TextBox52
AD (30) Code Banque, TextBox32
AE (31) Code Guichet , TextBox33
AF (32) Numéro de compte, TextBox34
AG (33) Clé RIB , TextBox35
AH (34) Code BIC/SWIFT , TextBox36
AI (35) Code IBAN , TextBox37
AK (37) Paiement Comptant , TextBox20, TextBox27, TextBox41, TextBox49, TextBox57

et c'est là que je suis arreté

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
'**** Correspond au programme du bouton "VALIDER" *****
Private Sub CmdB_Valider_Click()

Amicalement

Laurent