Discussion :

[moilou2]

Bonjour, j'ai une petite question. Voilà, j'ai une zone de liste dans laquelle sont inscrites des réclamations. Exemple:

27/10/08 Mr..... Pouvez vous Augmenter......
25/10/08 Mm.... Savez vous......

Je voudrais savoir avec quel type de manipulation, je pourais en pointant le curseur de ma souris sur une ligne de ma zone de liste afficher une sorte de label avec la réponse à la question posée dans la zone de liste.

Si vous voulez un peu comme avec Excel et les commentaires que l'on peut placer sur les cellules.

Merci

[ft035580]

Salut,

Si tes champs sont Date, Nom, Question:
Dans ta zone de liste, largeur colonne de "Question":0cm

Code :

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

1
2
3
Private Sub Liste_Click()
Me.Label.Caption = Me.Liste.Column(2)
End Sub

Label = Etiquette
Column(2) correspond à ton champ "Question".

[moilou2]

Re et merci pour ton aide, mais j'ai un petit souci.

Sa fonctionné, mais j'ai une fonction If pour que le label ne reste pas en permanence affiché. Peut tu me dire se qui ne pourrait pas fonctionner dans le code suivant?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub lstResults_Click()
 
Dim Réponse As Variant
 
If IsNull(Me.lstResults.Column(4)) Then
 
Réponse = Me.lstResults.Column(4)
Me.LbRéponse.Visible = True
Me.LbRéponse.Caption = Réponse
Me.Boîte26.Visible = True
Me.Étiquette25.Visible = True
 
Else
 
Me.LbRéponse.Visible = False
Me.Boîte26.Visible = False
Me.Étiquette25.Visible = False
 
Exit Sub
End If
 
End Sub

Merci

[moilou2]

Pfffff laisse tombé j'ai fait une erreur d'étourderie, j'ai inversé dans mon if.

C'est mieux comme sa:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub lstResults_Click()
 
Dim Réponse As Variant
 
Réponse = Me.lstResults.Column(4)
 
If IsNull(Me.lstResults.Column(4)) Then
 
Me.LbRéponse.Visible = False
Me.Boîte26.Visible = False
Me.Étiquette25.Visible = False
Exit Sub
 
Else
 
Me.LbRéponse.Visible = True
Me.LbRéponse.Caption = Réponse
Me.Boîte26.Visible = True
Me.Étiquette25.Visible = True
 
End If
 
End Sub

Autre petite question : Pour le moment mon label reste fixe en permanence. Existe-il une solution, pour qu'il apparaisse près de l'endroit où j'ai cliqué? Ou qu'il suive la souris, ou peut être autre chose encore?

Merci

[ft035580]

Salut,

Je t'ai fais un petit exemple.

Vois si ça peut répondre à ta question.

[moilou2]

Re, je ne sais pas de quel format est la pièce jointe, mais je ne peut pas la lire?!

Merci quand même de m'avoir consacré du temps

[ft035580]

Télécharge le logiciel Winrar

[moilou2]

OK ba merci beaucoup pour ton aide.