Listview
- Messages
- 156
- Excel
- 2019 FR 64 Bits
- Inscrit
- 14/07/2015
- Emploi
- Ex-Conducteur Routier de convoi exceptionnel
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
- Messages
- 156
- Excel
- 2019 FR 64 Bits
- Inscrit
- 14/07/2015
- Emploi
- Ex-Conducteur Routier de convoi exceptionnel
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
- Messages
- 156
- Excel
- 2019 FR 64 Bits
- Inscrit
- 14/07/2015
- Emploi
- Ex-Conducteur Routier de convoi exceptionnel
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