Discussion :

[ericdev67]

Bonjour,

Je souhaiterais savoir s'il est possible (je le pense, mais....j'ai besoin d'un petit coup de main...) de faire une zone commentaire dans un Userform....

Je m'explique : j'ai un Userform, je souhaiterai, au passage de la souris par exemple, faire apparaitre une zone commentaire, comme on le fait dans une feuille excel....

Dans le Userform, il y a des combobox, des listes (en référence à des plages contenues dans une feuille), des zone texte, etc....c'est assez lourd visuellement, donc je souhaiterais alléger le tout....

Par exemple : dans une Textbox, il y a le nom/prénom d'une personne, j'aimerai qu'en passant sur un bouton (ou autre, l'idéal serait sur la textbox directement...), s'affiche ses coordonnées (téléphone, adresse, ville, code postal, etc....). En effet, ces coordonnées ne sont pas principalement prioritaires (donc "inutiles" dans l'affichage de l'Userform), mais si un collègue veut avoir des informations complémentaires, un simple passage souris lui donnerait les infos....

Les infos contenues dans la zone commentaires (téléphone, adresse, etc...) seraient issues de la feuil2 A2:A10

Une petite idée et/ou aide ?

En vous remerciant,

[Thautheme]

Bonsoir Éric, bonsoir le forum,

Regarde la propriété [ControlTipText]. Avec un code du style :

Code :

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

1
2
3
4
5
6
7
Dim I As Byte
Dim CMT As String
 
For I = 2 To 10
     CMT = IIF(CMT = "", Sheets("Feuil2").Cells(I, 1).Value, CMT & " - " & Sheets("Feuil2").Cells(I, 1).Value)
Next I
Me.TextBox1.ControlTipText = CMT

[ericdev67]

Merci Thautheme,

Toujours là pour rendre service, merci

Oui, ça correspond "presque" au résultat recherché....en fait, j'ai les données séparées par "-", il faudrait que je puisse avoir en liste....j'ai essayé

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim I As Byte
Dim j As Byte
Dim CMT(10)
 
For j = 1 To 10
For I = 1 To 10
     CMT(j) = IIf(CMT(j) = "", Sheets("Feuil2").Cells(I, 1).Value, CMT(j))
Next I
 
Me.TextBox1.ControlTipText = CMT(j)
Next j

mais je n'ai que "adresse" qui s'affiche....
Bon, tu me diras, normal, vu que la variable J reste toujours la même (= 1), mais aurais-tu une autre solution ?

En te remerciant,

[Thautheme]

Re,

En liste ?! Si tu veux dire sur plusieurs lignes j'ai essayé ce code :

Code :

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

1
2
3
4
5
6
7
Dim I As Byte
Dim CMT As String
 
For I = 2 To 10
     CMT = IIf(CMT = "", Sheets("Feuil2").Cells(I, 1).Value, CMT & Chr(13) & Sheets("Feuil2").Cells(I, 1).Value)
Next I
Me.TextBox1.ControlTipText = CMT

Avec aussi Chr(10) (saut de ligne) mais c'est toujours sur une seule ligne. J'ai l'impression que la propriété [ControlTipText] n'accepte qu'une seule et unique ligne. L'aide VBA ne dit rien à ce sujet. Ne te reste plus qu'à attendre le passage d'un balèze de ce forum... Et ils sont nombreux !
Sinon il te faut rajouter une ComboBox avec la suite des données que l'utilisateur pourras faire défiler si besoin...

[clementmarcotte]

Bonjour,

À vrai dire, je n'ai pas testé. J'ai juste regardé.

Thauteme a quelques concaténations (opérateur & ) que toi tu n'as pas mis. Si je ne dis pas de connerie ton j va te donner une valeur unique et pas un "assemblage" de valeurs.

Ceci dit, je n'ai pas fait de recherche, mais je me demande s'il n'y a pas une limite au nombre de caractères que l'on peut mettre dans un ControlTipText.

Ajout

Tautheme, désolé pour le télescopage.

Je viens de penser à une chose. Tu pourrais essayer un Textbox (invisible/visible et locked = true, si tu veux) pour afficher tes informations complémentaires.

[Thautheme]

Re,

Si je ne dis pas de connerie

Arf ! Trop tard... C'est dit !

[ericdev67]

Merci clementmarcotte (la connerie du "J", c'est moi qui l'ai faite... ),
Merci Thautheme,

J'ai essayé :

Code :

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

Me.TextBox1.ControlTipText = Sheets("Feuil2").Range(Cells(2, 1), Cells(10, 1))

mais cela ne fonctionne pas....

Oui, c'est sous forme de liste que ce serait l'idéal...
A2 = Téléphone
A3 = Adresse
A4 = Ville
etc....
ce n'est QUE de la consultation....

J'ai essayé ton code Thautheme, cela commence à ressembler à ce que je cherche (je "vois" bien téléphone, adresse, ville, etc....sous forme de ligne), mais pour une meilleure lecture, il faudrait que dans le commentaire cela apparaisse sous format :

Téléphone : 06.......
Adresse : le bonheur sur terre
Ville : Saint mandrier
etc jusqu'à la ligne 10

(j'habite Saint Mandrier, donc.....)

(et sans passer par une combobox, le survol souris que tu m'as présenté est trop top !!!!, il faudrait juste qu'il puisse apparaitre sous forme de liste.....
En colonne A, on pourrait mettre les entêtes (Téléphone, Adresse, etc....) et en colonne B, les valeurs (06.....,Le bonheur etc....)

Après plusieurs essais, j'ai fait :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub UserForm_Initialize()
 
Dim I As Byte
Dim CMT As String
 
For I = 2 To 10
     CMT = IIf(CMT = "", Sheets("Feuil2").Cells(I, 1).Value & Sheets("Feuil2").Cells(I, 2).Value, CMT & Chr(13))
Next I
Me.TextBox1.ControlTipText = CMT
End Sub

et j'arrive à avoir :
Adresse : Saint Mandrier
mais je n'ai pas les autres lignes......

En vous remerciant pour votre aide,

[ericdev67]

Ayé, j'ai trouvé ..... :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Private Sub UserForm_Initialize()
 
Dim I As Byte
Dim CMT As String
 
For I = 2 To 10
     CMT = IIf(CMT = "", Sheets("Feuil2").Cells(I, 1).Value & Sheets("Feuil2").Cells(I, 2).Value, CMT & Chr(13) & Sheets("Feuil2").Cells(I, 1).Value & Sheets("Feuil2").Cells(I, 2).Value)
Next I
Me.TextBox1.ControlTipText = CMT
End Sub

cela fonctionne nickel !!!!!

Merci Thautheme, tu m'as ouvert la voie.....
Merci,

A+ pour de prochaines aventures....