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

[terrier]

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]

Bonjour Terrier, le forum
Si je comprend bien tu veux ouvrir d'autre userform. Dans ce cas essai ca dans le code des bouton :

UserForm2.Show
Me.Unload ' si tu veux decharger le premier userform

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

Cdt
A

 

[terrier]

c'est que j'ai bien pensé mais ça marche toujours pas

 

[harry226h]

Fais plutot

unload Me

 

[terrier]

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]

Comme ceci :

Unload Facture_Fournisseur
Ajouter_article.Show

Et

Unload Facture_Fournisseur
Ajouter_Fournisseur.Show

Cdt
A

 

[terrier]

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é

 

[harry226h]

Le probleme il es ailleurs dans ton code alors.
J'ai pas d'erreur a mon niveau

 

[harry226h]

A tu une ligne surlignée?

 

[terrier]

j'ai excel qui redémarre tout seul dès que je fais débogage ou ok

 

[terrier]

oui il est ailleurs mais je ne sais pas ou exactement

 

[harry226h]

Je regarde ca demain stp! La j'ai sommeil

 

[bbb38]

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

 

[youky(BJ)]

Désolé j'avais pas testé et ca plante alors j'ai supprimé
Bruno

 

[youky(BJ)]

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

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