Discussion :

[dodo28]

Bonjour le forum,
Voici mon petit probleme et pouvez vous m aider à le resoudre.

j ai 2 userforms :
- le premier sert a alimenter une Base de donnée grace à des texboxs. cette userform contient deux optionButton (1 et 2). quand je selectionne option 2 un userform s ouvre avec une liste deroulante contenant les elements de la Bd.
Aprés un double clic sur une ligne de cette liste deroulante je voudrais que les textboxs de l userform 1 s'alimente avec les elements de la ligne concernée.
en faite je veux me servir de ce style de macro pour effectuer une modification de BD avec le meme userform qui effectue la saisie.

voici les codes de l userform 2 que j ai fait mais ca ne marche pas , l erreur se trouve sur userform1 = erreur de compilation : membre de methode ou de donnée introuvable :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
With Sheets("feuil1")
Set c = .Range("a:a").Find(what:=UserForm2.ListBox1)
Me.UserForm1.Te_nom = .Cells(c.Row, 1)
Me.UserForm1.Te_prenom = .Cells(c.Row, 2)
End With
End Sub
 
Private Sub UserForm_Initialize()
With Sheets("Feuil1").Range("A1")
              Me.ListBox1.RowSource = Range(.Cells, .End(xlDown)(1, 3)).Address(External:=True)
       End With
 
End Sub

bien sur je presente ca sur un exemple simplifié car dans le réel l'userform 1 comprent plus de 40 textboxs .
je me permet de vous joindre mon fichier exemple
merci pour votre aide

[Krovax]

Bonjour,
Quand dans le code d'un userform tu utilise ME cela signifgie le userform
donc
me.userform1.textbox1
signifie le textbox1 dans le userform1 dans le userform2.

Enlève simplement le me ca devrais fonctionner

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
UserForm1.Te_nom = .Cells(c.Row, 1)
UserForm1.Te_prenom = .Cells(c.Row, 2)

Si ca ne suffit pas montre nous comment tu lance le userform2 et si tu masque le userform1

ps : je n'ouvre pas les fichier join dans quelque semaine/quelques mois quand les gens feront des recherche et trouverons cette discutions ils n'y auront plus accès. Et du coup ce sera une information perdu. (en plus de tout les questions de virus/macro malveillante et autre)

[dodo28]

merci beaucoup pour ton aide ca marche bien mais bon je vais surement revenir car pas trop facile(enfin pour moi) ce projet.