exécuter un formulaire de saisie(2) à partir d'un bouton placer sur un formulaire de saisie(1)

terrier

XLDnaute Junior
Merci d'avance pour votre aide
Est il possible d’exécuter un formulaire de saisie(2) à partir d'un bouton placer sur un formulaire de saisie(1) déjà existant?
J'explique mon problème j'ai un formulaire de saisie des facture entrante avec un cbx_nom_fournisseur et cbx_nom_darticle, en cas d'entrée du nouveau fournisseur ou nouvel article j'ai ajouté 2 bouton sur le même formulaire de saisis pour exécuter deux autre au souhait, j'ai essayé mais ça ne marche pas y'a il une solution ou est ce que c'est possible de le faire ?
 

harry226h

XLDnaute Junior
Bonjour Terrier, le forum
Si je comprend bien tu veux ouvrir d'autre userform. Dans ce cas essai ca dans le code des bouton :
VB:
UserForm2.Show
Me.Unload ' si tu veux decharger le premier userform

Si pas ce que tu cherches, joindre un fichier illustratif.

Cdt
A
 

bbb38

XLDnaute Accro
Bonjour terrier, harry226h, le forum,
Un essai avec le fichier ci-joint, en ajoutant un bouton de commande « Quitter ».
Personnellement, je n’utilise pas cette méthode, mais je teste si le fournisseur ou l’article n’existe pas dans le fichier pour déclencher, les autres formulaires.
Cordialement,
Bernard
 

Pièces jointes

  • facture.xlsm
    71.2 KB · Affichages: 29

youky(BJ)

XLDnaute Barbatruc
En prenant le fichier de bbb38, j'ai eu le bug aussi (faut tester plusieurs fois)
Je pense en modifiant avec ce code le bug disparait
Bruno
VB:
Private Sub Ajouter_article_Click()
   '*************************
   '**Test si tout les champs son romplis
   '*****************************
   If Len(Me.Txt_nomarticle) = 0 Then
       MsgBox "Veillez remplir les champs obligatoirs avec une étoile (*)"
       Me.Txt_nomarticle.SetFocus
      
   ElseIf Len(Me.Txt_marque) = 0 Then
       MsgBox "Veillez remplir les champs obligatoirs avec une étoile (*)"
       Me.Txt_marque.SetFocus
   Else
   '********Activer la feuille de saisie
       Feuil4.Activate
   '******************lig=ligne ou écrire
       lig = Feuil4.Range("B9999").End(xlUp).Row + 1
   '******************************
   '********Saisie des données de formulaire dans la feille
   '*******************************
       'ActiveCell = Me.Txt_nomarticle
       Feuil4.Cells(lig, 2) = Me.Txt_nomarticle '2=col B
       Feuil4.Cells(lig, 3) = Me.Txt_marque     '3=col C
      ' ActiveCell.Offset(0, 2) = Me.Txt_marque
   '******************************
   '********Vider le formulaire pour un prochain saisie
   '*******************************
       Me.Txt_nomarticle = ""
       Me.Txt_marque = ""
       Me.Txt_nomarticle.SetFocus
   End If
End Sub
 

Discussions similaires

Réponses
3
Affichages
437

Statistiques des forums

Discussions
311 724
Messages
2 081 938
Membres
101 844
dernier inscrit
pktla