[XL-2016] Valider le frame après le choix de la Listview

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:

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