legende flottante

[altinea]

comment integrer dans un tableau une legende flottante qui se deplace en fonction de l'endroit ou on se trouve dans le tableau afin que les infos soient dispo d'un simple coup d'oeil;merci

 

[Jacques87]

Re : legende flottante

Bonjour,

Voici un petit truc qui pourrait te donner des idées.

Tu construis un tetBox1 dans ta feuille, tu y inscris ta légende et ensuitetu cliques n'importe où dans ta feuille.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Shapes("TextBox1").Left = Target.Offset(0, 1).Left
Shapes("TextBox1").Top = Target.Offset(1, 0).Top
End Sub

A+

 

[altinea]

Re : legende flottante

merci ca fonctionne y a t'il un moyen pour la decaler legerement de la cesslule sur laquelle on pointe, merci

 

[Simons]

Re : legende flottante

Bonjour à tous,

Il suffit de décaler par rapport à la cellule qui t'intéresse.
Par exemple :

[LEFT]Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Shapes("TextBox1").Left = Target.Offset(0, 3).Left
Shapes("TextBox1").Top = Target.Offset(1, 0).Top
End Sub[/LEFT]

J'espère que cela te conviens.

 

[altinea]

Re : legende flottante

merci super

 

[malcy45]

Re : legende flottante

bonjour simons et altinea,
j 'ai testé tes conseils et je n'arrive pas a le faire fonctionner.
Pouvez vous me dire ce que je fais d incorrect ???
Merci a plus

 

[Jacques87]

Re : legende flottante

Malcy45

J'ai regardé le fichier que tu as joint

Il n'y a aucun textbox dans ta feuille, d'où le bug
Il te faut construire un TextBox auquel tu donneras le nom de TextBox1

A+

 

[malcy45]

Re : legende flottante

re jacques,
ok c'est fait grand merci
maintenant que dos je mettre comme code dans ma textbox pourqu'elle n'apparaisse que si double clic car pour le moment elle est toujours apparente
voir fichier

 

[Jacques87]

Re : legende flottante

tu as oublié de pousser la propriété Visible de ton TextBox à False

Pour cela :
tu passes en mode création
clic droit sur le TextBox2
tu choisis propriété
et en regard de visible tu changes True en False

P.S. : pour moi c'est évident, mais j'ai oublié de te dire quil faut ajouter une ligne dans le code concerné

TextBo2.Visible = True

à mettre tout au début, afin que la Textox réapparaisse au double clic

 

[Simons]

Re : legende flottante

Salut Malcy, et le forum,

Voici un exemple..


Salut

 

[Simons]

Re : legende flottante

Heeee j'arrive après la bataille 🙄 🙄

 

[malcy45]

Re : legende flottante

re le fil,
j'ai testé les conseils de jacques et ca me va
merci beaucoup et bonne journée a tous
rémi