XL 2019 Configuration de bouton de formulaire sous condition

Monhtc

XLDnaute Occasionnel
Hello famille, Bonjour chers tous,
J'essaie de finaliser un formulaire que j'ai démarré pour le suivi des paiement de facture.
En effet je coince sur 3 boutons de commande:
1-Ajouter
2-Modifier
3-Rechercher

1-Ajouter

J'aimerais activer ce bouton si et seulement si les Textbox montant; piece et vider le contenu des textbox qui contiennent "jj/mm/aaaa" si les date ne sont pas modifier.

2-Modifier
Je souhaite afficher toutes les infos de la cellule sélectionnée dans la listbox bdd. Si un engagement est sélectionné, il faudrait qu'on puisse voir les differentes informations dans la Trame Traitement à savoir le bénéficiaire, la date de réception le N° de facture etc.. Afin de pouvoir si besoin modifier et changer une info.

3-Rechercher
Je souhaite effectué avec ce bouton un moteur de recherche selon les critères définis en affichant le résultat dans la Listbox ainsi que le nombre de resultats trouvés dans la Textbox9, le montant total de ces résultats dans la Textbox10 et parmi eux, le montant de tout engagements ayant une date de paiement dans la Textbox11
 

Pièces jointes

  • APLLY.xlsm
    39.8 KB · Affichages: 15

GALOUGALOU

XLDnaute Accro
bonjour mhtc bonjour le forum
je ne vais répondre qu'a une toute petite partie de vos questions
pour le N° 1 la 1er partie je vous propose le code ci dessous
le bouton ajouter fonctionnera uniquement si les textbox montant et piece contiennent une valeur. ça ne répond pas a la problèmatique date, mais c'est un début de réponse
cordialement
galougalou

Private Sub montant_AfterUpdate()
If montant.Value <> "" Then
montant = Format(Val(Replace(montant, ",", ".")), "#,##0") & " FCFA"
Else
montant.Value = ""
End If
End Sub

Private Sub ajouter_Click()
Dim wks As Worksheet
Dim add As Range
If montant <> "" Or montant = 0 Then
If piece <> "" Then
Set wks = Feuil1
Set add = wks.Range("a65356").End(xlUp).Offset(1, 0)
add.Offset(0, 0).Value = benef
add.Offset(0, 1).Value = recept
add.Offset(0, 2).Value = numfact
add.Offset(0, 3).Value = dfact
add.Offset(0, 4).Value = montant
add.Offset(0, 5).Value = dcf
add.Offset(0, 6).Value = piece
add.Offset(0, 7).Value = rcf
add.Offset(0, 8).Value = dac
add.Offset(0, 9).Value = dpaid
End If
End If

End Sub
 

Discussions similaires

Réponses
27
Affichages
1 K
Réponses
4
Affichages
523
Réponses
3
Affichages
600
Réponses
16
Affichages
729

Statistiques des forums

Discussions
315 127
Messages
2 116 507
Membres
112 765
dernier inscrit
SIDIANW