Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Microsoft 365 aide pour creer un bouton recherche

Didi59

XLDnaute Nouveau
bonjour
je recherche une aide pour créer un bouton recherche par rapport a une saisie de chèque
je m'explique:

dans un tableau je voudrais en appuyant sur le bouton rechercher je saisie le numéro du chèque et il me donne le nom,la date d'envoi etc......
mais j'arrive pas à créer ce bouton
pouvez vous m'aider svp
merci


'Procédure permettant d'initialiser le formulaire au démarrage
Private Sub UserForm_Initialize()
Me.TXTcommande.SetFocus
End Sub

'Procédure permettant la remise à zéro du formulaire
Private Sub BTNannuler_Click()
Me.TXTcommande = ""
Me.TXTdate = ""
Me.txtenvoidate = ""
Me.TXTnom = ""
Me.TXTnumero = ""
Me.CBObanque = ""
Me.CBOdiffere = ""
Me.CBOenvoi = ""
Me.TXTmontant = ""
End Sub
'Procédure permettant de sauvegarder l'ajout du nouveau chèque
Private Sub BTNvalider_Click()
'on teste que les contrôles ont bien été saisie
If Len(Me.TXTcommande) = 0 Then
Me.TXTcommande.SetFocus
ElseIf Len(Me.TXTdate) = 0 Then
Me.TXTdate.SetFocus
ElseIf Len(Me.txtenvoidate) = 0 Then
Me.txtenvoidate.SetFocus
ElseIf Len(Me.TXTnom) = 0 Then
Me.TXTnom.SetFocus
ElseIf Len(Me.TXTnumero) = 0 Then
Me.TXTnumero.SetFocus
ElseIf Len(Me.CBObanque) = 0 Then
Me.CBObanque.SetFocus
ElseIf Len(Me.CBOdiffere) = 0 Then
Me.CBOdiffere.SetFocus
ElseIf Len(Me.CBOenvoi) = 0 Then
Me.CBOenvoi.SetFocus
ElseIf Len(Me.TXTmontant) = 0 Then
Me.TXTmontant.SetFocus
Else
'si tous les champs sont complet. Alors on peut sauvegarder la source
'on cherche la prochaine ligne vide de la source
Feuil4.Activate
Feuil4.Range("A2600").End(xlUp).Offset(1, 0).Select
'on affecte les données du formulaire dans la source
ActiveCell.Offset(0, 0) = Me.TXTcommande
ActiveCell.Offset(0, 1) = Me.TXTdate
ActiveCell.Offset(0, 2) = Me.txtenvoidate
ActiveCell.Offset(0, 3) = Me.TXTnom
ActiveCell.Offset(0, 4) = Me.TXTnumero
ActiveCell.Offset(0, 5) = Me.CBObanque
ActiveCell.Offset(0, 6) = Me.CBOdiffere
ActiveCell.Offset(0, 7) = Me.CBOenvoi
ActiveCell.Offset(0, 8) = Me.TXTmontant


End If

End Sub

'Procédure permettant de fermer le formulaire
Private Sub BTNfermer_Click()
Unload Me
End Sub
 
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…