Info lors du survol textbox

[Rubis57]

Bonjour à toutes et à tous,

je vous ai mis un fichier en PJ dans lequel je voulais vous demander si ce qui suit est faisable.

Avec un clic sur le bouton USF on peut appeler le UserForm1. Dans les textbox 2 à 6 s’affiche normalement des données qui se trouvent dans la colonne IND2 du TS Tab_1 de l’onglet PARAMETRES.

Ma demande est la suivante:

peut-on faire en sorte que si on survole un de ces textbox, qu’il me donne une information sur ce contenu du textbox.
C’est à dire; si le textbox2 par exemple contient R alors je voudrai qu’il me donne une info que ce R signifie RHIN comme il est définit dans le TS. Pareil pour toutes les autres textbox.

Sachez que le contenu de ces textbox provient toujours de cette colonne du TS.

J’espère avoir bien expliqué mon souhait. Sinon je répondrai très vite à vos questions.

Cordialement Rubis57
Rubis57-affichage.xlsm (20,1 Ko)

[Daniel77]

Bonjour,

Un exemple avec TextBox2 :

Private Sub UserForm_initialize()
  Me.TextBox1.Value = Format(Date, "dd/mm/yyyy")
  Me.TextBox2.Value = Sheets("PARAMETRES").[B3]
  Me.TextBox2.ControlTipText = Application.VLookup(Me.TextBox2.Value, [PARAMETRES!B:C], 2, 0)
End Sub

Daniel

PS. Si tu changes la valeur du textbox, il faut ajouter :

Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
  Me.TextBox2.ControlTipText = Application.VLookup(Me.TextBox2.Value, [PARAMETRES!B:C], 2, 0)
End Sub

[Rubis57]

Bonjour,

oui cela peut aller, sauf que, les textbox2 à 6 ne contiennent pas toujours les mêmes données.
Par exemple:

le textebox2 peut contenir comme donnée le " A ou le T ou le K ou le R etc..
Le TS peut s’agrandir et donc avoir plus de données que dans ce modèle.

Est-ce quand même faisable ?

Merci à vous

[AL22]

Bonjour Rubis57, Daniel77, le forum,

Une autre façon de faire avec une infobulle au survol des TextBox.

Il faudra adapter l’UF et ses TextBox si il y a agrandissement du tableau.

EF - Rubis57 - Info lors du survol textbox - affichage.xlsm (21,0 Ko)

Cordialement.

AL22

[Daniel77]

Oui, je ne comprends pas ce qui te gêne ? J’ai mis la valeur “A” à l’initialisation du userform. A toi de faire apparaître la valeur voulue.

Daniel

[Rubis57]

Bonjour AL22, Bonjour Daniel77, Bonjour le forum,

désolé de revenir que maintenant, mais il y a des priorités parfois.

Alors Daniel77, hier j’avais ouvert rapidement et pas bien compris, mais cela fonctionne bien.
AL22, votre proposition fonctionne également bien donc je vais essayer les deux propositions plusieurs fois aujourd’hui et je vous tiendrai informé.

En attendant un Grand Merci à vous deux.
A+
Rubis57

[Daniel77]

Bonjour à tous,

Pourquoi ne pas afficher directement DEF2 en entrant IND2 dans le textbox ? Ci-joint classeur exemple (seulement pour TextBox2).

Rubis57-affichage daniel.xlsm (23,0 Ko)

Daniel

[Rubis57]

Re,

je ne comprends pas votre dernier message !

lorsque j’ouvre le matin le userform il m’affiche les abréviations comme décrites dans mon premier post.

Mon souhait est : lorsque je survole les textbox qu’il me donne une info de la description de cette abréviation.

[Daniel77]

Vous avez dû vous tromper de classeur. Quand j’appuie sur le bouton, les textboxes sont vides :

Quand je saisis “be”, par exemple, dans le textbox2, celui-ci affiche “Belgique”. Pourquoi passer par une info-bulle ?

Daniel

[Rubis57]

Explications;

dans mon fichier réel lorsque j’ouvre le matin le UserForm il affiche déjà certaines données dans les textbox. Donc je voudrai que lors du survol il donne la vrai désignation.

[Daniel77]

Pas de souci. Donc la réponse n°3 de AL22 et la mienne (n°1) conviennent. Elles sont toutes deux basées sur la propriété ControlTipText. A l’ouverture de l’userform, la macro devra renseigner cette propriété pour chaque textbox.

Daniel

[Rubis57]

Bonjour Daniel77, AL22, le forum,

oui cela me convient. donc je laisserai cela en place.

Merci à vous deux pour l’aide apportée à ma demande.

A une prochaine fois.

Rubis57