Discussion :

[gds35]

Mes AMIS du Forums Bonjour, Bon WE,

Voila : j'ai un USF avec des testBox , pour alimenter une feuille de calcul (ex Motif , Lieu ,Date Depart ,date d'Arrivée,Date Retour ,Heure Retour), je recapitule ces données dans une lisBox avec les éléments Lieu ,Date Depart ,date d'Arrivée , je voudrais lorque l'on clic sur un élément de la listbox , que l'ensemble des éléments se reaffichent dans les textBox afin de pouvoir les modifier. Je ne peux realiser cette opération . Auriez vous une idée ??? d'avance Merci , Cordialement GDS35

[casefayere]

Bonjour,

à mon avis, fais la procédure dans l'évenement click de la listbox

[laetitia]

bonjour gds35 casefayere le forum un exemple simple a adapter

change ce code

Code :

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

1
2
3
4
5
Private Sub cmd2_Click()
If TextBox1.Value = "" Then Exit Sub
Cells(ListBox1.ListIndex + 2, 1).Select: z = ActiveCell.Row
For x = 1 To 5: Cells(z, x) = Me.Controls("textbox" & x).Value: Next x: Beep
End Sub

par celui la plus simple

Code :

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

1
2
3
4
Private Sub cmd2_Click()
If TextBox1.Value = "" Then Exit Sub
For x = 1 To 5: Cells(ListBox1.ListIndex + 2, x) = Controls("textbox" & x).Value: Next x: Beep
End Sub

[gds35]

Merci , a tous je bosse sur votre exemple sans pour cela arriver au résultat desiré . J'ai du mal a comprendre le code . Merci encore . Bonne fin de journée . Cordialement GDS35

[laetitia]

re, le forum zip un bout de fichier sans donnees confid... pour voir le code de ton user