Discussion :

[Echizen1]

Salut,
J’ai « encore » un petit problème. Dans mon formulaire j’ai une zone de liste et plusieurs zone de Texte.
Je souhaiterais qu’en cliquant sur une ligne de la liste la valeur de la colonne soit mise dans une zone de texte. Et ce pour toutes les fois que je double clique dans la liste.
Par précaution, si le nombre de zones de Texte n’est pas suffisant, une MsgBox apparaitra.

Je n’arrive à récupérer que dans une seule zone de texte. Voici le « code ».

Code :

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

Me.texte1 = Liste2.Column(1)

Le code intuitif pour ce que je veux faire, serait :

Code :

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

1
2
3
4
5
6
7
For i = 1 To 10
 
If IsNull(Me.Texte & i) Then
    Me.Texte & i = Liste2.Column(1)
End If
 
Next i

Bien sûr ça ne marche pas…

[@rkane]

tu as combien de colonnes dans ta liste ? parce que les colonnes commencent à zéro...

[Echizen1]

J'ai deux colonnes :

C'est vraiment la boucle qui pose problème ici. Je vois absolument pas comment l'écrire.

[Sodangbe]

Salut,
tu as indexé tes textbox?

[Echizen1]

Salut,
si pas indéxé, tu entends Texte1,... Texte10. La réponse est oui.

[Echizen1]

Salut,
J'ai "enfin" trouvé ! ça a l'air de marcher impec (sans le MsgBox).
voici le code, si ça peut en aider certains :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Liste2_DblClick(Cancel As Integer)
 
    For i = 1 To 4
 
    If IsNull((Me.Controls("Texte" & i))) Then
    Me.Controls("Texte" & i) = Liste2.Column(1)
    Exit Sub
    End If
 
    Next i
 
End Sub

[Sodangbe]

Ok ,essaye d'allez faire un tour sur la FAQ tu y trouveras ton bonheur (Sommaire>Formulaires>Contrôles>Zones de texte>Trucs et Astuces