Bonjour tout le monde,
Des semaines de recherches ne m'ont pas permis de trouver la solution au problème suivant :
Dans un premier formulaire, j'ai une listbox avec des données dont un ID.
A la sélection d'une ligne de cette listbox et au clique sur un bouton "consultation", un formulaire s'ouvre et affiche le numéro ID de la ligne sélectionnée.
A partir de cet ID (qui se trouve dans un label), je souhaite que le formulaire de consultation s'autoalimente.
Donc, sur le bouton "consultation" du premier formulaire, voici ce que j'ai saisi comme code :
A l'initialisation du second formulaire (consult_event), voici le code que j'ai inséré :
Autant le formulaire "consult_event" s'ouvre bien avec le numéro d'ID, autant la recherche de la ligne à partir de ce même ID ne fonctionne pas. Le formulaire reste désespérément vide.
J'espère que j'ai été clair et veuillez m'excuser de ne pas pouvoir adresser un copie du projet.
Bien cordialement.
Des semaines de recherches ne m'ont pas permis de trouver la solution au problème suivant :
Dans un premier formulaire, j'ai une listbox avec des données dont un ID.
A la sélection d'une ligne de cette listbox et au clique sur un bouton "consultation", un formulaire s'ouvre et affiche le numéro ID de la ligne sélectionnée.
A partir de cet ID (qui se trouve dans un label), je souhaite que le formulaire de consultation s'autoalimente.
Donc, sur le bouton "consultation" du premier formulaire, voici ce que j'ai saisi comme code :
VB:
Private Sub CommandButton2_Click()
If ListBox2.ListIndex = -1 Then
MsgBox "Veuillez selectionner un évènement de la liste.", vbOKOnly, attention
Exit Sub
Else: For i = 0 To (ListBox2.ListCount - 1)
consult_event.id_event = CStr(ListBox2.List(ListBox2.ListIndex, 7))
Next i
End If
consult_event.Show
End Sub
A l'initialisation du second formulaire (consult_event), voici le code que j'ai inséré :
Code:
Private Sub UserForm_Initialize()
Dim derlig As Long
Sheets("bd2").Select
rech = Me.id_event.Caption
derlig = Sheets("bd2").range("Q" & Cells.Rows.Count).End(xlUp).Row
For l = 2 To derlig
If rech = Sheets("bd2").Cells(l, 17).value Then
Me.etab.Caption = Sheets("bd2").Cells(l, 2).value
Me.cp.Caption = Sheets("bd2").Cells(l, 4)
Me.ville_etab.Caption = Sheets("bd2").Cells(l, 3).value
End If
Next l
End Sub
Autant le formulaire "consult_event" s'ouvre bien avec le numéro d'ID, autant la recherche de la ligne à partir de ce même ID ne fonctionne pas. Le formulaire reste désespérément vide.
J'espère que j'ai été clair et veuillez m'excuser de ne pas pouvoir adresser un copie du projet.
Bien cordialement.