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

terrier

XLDnaute Nouveau
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
 

terrier

XLDnaute Nouveau
erreur d'execution'-2147417848(80010108)':
la méthode'_defaut' del'objet 'Range' a échoué

Par contre le premier formulaire ne c'est pas fermé.
 

harry226h

XLDnaute Junior
Comme ceci :

VB:
Unload Facture_Fournisseur
Ajouter_article.Show
Et

Code:
Unload Facture_Fournisseur
Ajouter_Fournisseur.Show
Cdt
A
 

terrier

XLDnaute Nouveau
merci en tout cas pour votre aide je pense que j'ai un problème lié "Range" ....

erreur d’exécution'-2147417848(80010108)':
la méthode'_defaut' del'objet 'Range' a échoué
 

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
 

Fichiers joints

youky(BJ)

XLDnaute Barbatruc
Désolé j'avais pas testé et ca plante alors j'ai supprimé
Bruno
 
Dernière édition:

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
 

terrier

XLDnaute Nouveau
Bonsoir a tous,
Merci pour votre aide, je pense que je vais essayer la méthode de Bruno en premier si non sa seras sa seras celle Harry, je vous tiendrais au courant.
Encore merci tout le monde.
 

terrier

XLDnaute Nouveau
c'est bon Bernard je pense que t'a bien deviné le problème d'ou il viens, en tout cas sa marche et y'a pas de beugue jusqu'a mnt.
Encore Merci tout le monde
 

terrier

XLDnaute Nouveau
Re
je reviens avec un soucis :je doit classer des articles en famille dans le meme tableau mais pour éviter le vide dans mon combobox et faciliter la modification des listes des articles j'ai pensé a ajouter plusieurs rowsources a une combobox, est ce que c'est possible de le faire dans la propriété ou avec un code ?
 

bbb38

XLDnaute Accro
Bonjour terrier, le forum,
Personnellement, je ne pense pas que l’on puisse ajouter plusieurs « RowSource » dans les « Propriétés » d’une ComboBox (mais je ne demande qu’à apprendre).
Par contre, à l’aide du vba, tu peux obtenir plusieurs colonnes d’une feuille dans une ComboBox.
Je vais modifier ton fichier pour essayer de répondre à ta question.
Cordialement,
Bernard
 

terrier

XLDnaute Nouveau
Bonjour terrier, le forum,
Personnellement, je ne pense pas que l’on puisse ajouter plusieurs « RowSource » dans les « Propriétés » d’une ComboBox (mais je ne demande qu’à apprendre).
Par contre, à l’aide du vba, tu peux obtenir plusieurs colonnes d’une feuille dans une ComboBox.
Je vais modifier ton fichier pour essayer de répondre à ta question.
Cordialement,
Bernard
mercie bbb38, apprendre c'est bien le but
 

Discussions similaires


Haut Bas