Données d'un UserForm dans un autre USerForm

Version imprimable

20/05/2015, 15h40
Nospam54

1 pièce(s) jointe(s)

Données d'un UserForm dans un autre USerForm

Bonjour à toutes et tous,

J'essaie de bâtir une petite application destinée à gérer de la facturation client sous Excel 2003. Pour le moment j'en suis juste à la gestion du fichier client et plus exactement à la modification de fiches existantes dans la base.
J'ai donc un premier UserForm pour sélectionner un client. Une fois le client sélectionné, je peux appeler un second UserForm destiné à modifier les données souhaitées.
Mon souci commence là... Lorsque je veux copier les données du premier formulaire dans le second, je boucle sur une macro du premier et ça plante :roll:.

Je joins mon fichier pour que, si quelqu'un est tenté de me venir à l'aide... ça serait bien sympa !

Merci par avance

Nospam
20/05/2015, 16h06
joe.levrai

Bonjour,

plutôt que d'avoir un Usf pour ajouter, un Usf pour consulter, un Usf pour modifier ...

ça te dirait d'avoir tout ça dans un seul Usf ?

Philippe nous a fait partager cette solution ici : http://www.developpez.net/forums/d14...-d-formulaire/

regarde si ça correspond à tes souhaits et est compatible avec ton projets
20/05/2015, 16h22
Nospam54

Bonjour joe.levrai (y en a un faux ???),

Merci pour ce lien, ça me semble fort intéressant ! Je vais regarder cela de près. Il n'en demeure pas moins que j'aimerais savoir pourquoi mon (début) d'appli plante lamentablement. Sans doute pas grand chose...
20/05/2015, 16h28
joe.levrai

Malheureusement, sans voir ton code et le contexte (les deux formulaires sont ouverts ? etc...), c'est impossible de répondre

outre le fait que tu n'indiques pas explicitement le message d'erreur et le moment où il apparaît exactement, les causes sont multiples :

- problème de syntaxe
- on transmet des infos à un formulaire qui n'est pas chargé
- on transmet à un formulaire chargé, des informations d'un autre formulaire déjà déchargé
- etc...

je n'ouvrirai pas non plus le fichier, qui ne doit être montré qu'en dernier ressort ... et en général à la demande des contributeurs qui essayent de t'aider ;)
20/05/2015, 16h48
Nospam54

Y a pas de souci, je comprends que tu ne souhaites pas ouvrir le fichier...
Concernant mon problème, difficile d'expliquer en l'état (c'est d'ailleurs la raison pour laquelle je joignais mon fichier). Les deux formulaires sont ouverts au moment de l'erreur. En fait quand je remplis les textbox du second avec les données du premier, cela renvoie à une macro de ce premier UF (que j'ai mis en hide) qui normalement ne se déclenche qu'à la modification d'un combobox qu'il contient.
La macro continue donc alors que le combobox n'a pas été modifié, j'ai simplement intégré son nom dans la mise à jour du second UF. Ensuite le message d'erreur est "Erreur d'exécution '424' : Objet requis".
En suivant ma macro en pas-à-pas je vois où ça cloche, mais je ne sais pas pourquoi. Donc je ne parviens pas à résoudre mon souci...

Merci quand même !

Nospam

Aller, j'ai fais un effort :mrgreen:

dans l'initialisation de ton Userform UF_ClientM, tu as deux problèmes :

- quand tu fais référence au contrôle d'un autre userform, n'oublie pas de rattacher le contrôle à son Userform
Code:

1 2 3 4 5 ' ça c'est pas bon Me.Zt_Clt_IntM = Cbx_Clt_IntC.Value ' ça c'est bon Me.Zt_Clt_IntM = UF_ClientC.Cbx_Clt_IntC.Value
- fait attention à ne pas manger le nom de ton Userform, ici tu as oublié le "C" à la fin de UF_ClientC
Code:

1 2 3 4 5 6 Me.Zt_Clt_CodeM = UF_Client.Zt_Clt_CodeC.Value Me.Zt_Clt_AdresseM = UF_Client.Zt_Clt_AdresseC.Value Me.Zt_Clt_ComplM = UF_Client.Zt_Clt_ComplC.Value Me.Zt_Clt_CPM = UF_Client.Zt_Clt_CPC.Value Me.Zt_Clt_VilleM = UF_Client.Zt_Clt_VilleC.Value Me.Zt_Clt_PaysM = UF_Client.Zt_Clt_PaysC.Value

21/05/2015, 09h47
Nospam54

Bonjour et merci pour l'effort !

Effectivement, quelques fautes d'inattention... J'ai donc corrigé tout cela en veillant même sur le reste du code à bien positionner le "me" quand nécessaire et à corriger chaque ligne.

Reste que même en faisant cela ça plante encore. J'ai beau dérouler en pas-à-pas, je ne vois pas pourquoi ça ne fonctionne pas... Ce que je constate c'est qu'au moment de l'initialisation de mon userform UF_ClientM, la procédure retourne sur le code qui gère le bouton "Modifier" de l'userform UF_ClientC. Je n'ai plus le message d'erreur "Erreur d'exécution '424' : Objet requis" d'hier, sans aucun doute suite aux corrections que tu m'as indiquées, mais ce retour à une procédure antérieure stoppe la macro dans la gestion de l'erreur lorsque le client n'existe pas...

Ce retour en arrière est-il normal, sachant que le combobox déclencheur n'est pas modifié au moment de l'initialisation de mon userform UF_ClientM ? J'y perds mon latin ! Enfin... plutôt le peu de connaissance VBA que j'ai... :calim2: