Listview

Bonjour le forum

Après de nombreuses tentatives pour finaliser mon projet, je n'y parviens pas. Je reste coincé sur la dernière partie de validation.

Je fais appel à vous si vous voulez m'aider

Merci d'avance

Cordialement

Laurent

Bonjour

Je regarde tes post mais c'est toujours pareil

Il y a une multitude de données inutiles pour résoudre le problème

Je t'avais dit (mais tu n'en tient pas compte) c'est de détailler les opérations à faire pour arriver au problème

Dans tes pages il y a une myriade de bouton, sur lequel il faut appuyer, et ensuite que faut il faire etc ... etc... pour arriver au souci ?

Le_Troll_Du_27 a écrit :

Je reste coincé sur la dernière partie de validation.

C'est quoi la dernière partie ?

Tu fais comme tu veux, surement d'autres membres vont comprendre ton problème, mais moi je comprends vite mais il faut m'expliquer longtemps

Et même pas sur que j'aurais une solution

Bonjour le forum

Si tu appuie sur le Bouton "PAIEMENT"

dans userform tu sélectionnes la ligne de facture à payer

ensuite choisir par la combobox le mode de paiement

ensuite rentrer les infos manquantes

ensuite faire un contrôle pour vérifier que touts les textboxs soient pleines

valider pour le cmdBValider

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

partie manquante dans l’écriture

c'est ici que je coince

cordialement

Laurent

Bonjour le forum

Personne a une idée??

il me manque le départ

'**** 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