barre flottante svp

[pphil]

Bonjour
je souhaite disposer en haut d'une liste assez longue, une zone de texte crée avec l'appareil photo, qui me donne en temps réel certains paramètres ( la tréso finale, les encours, la tréso rapprochée tout ça quoi ...)
Comment pourrai je faire pour que cette zone soit figée et ne défile pas ? un peu comme une barre flottante
merci pour vos tuyaux
pphil

 

[Surfing Joe]

Bonsoir Archimède, voilà une bouée. "Fichier image joint" A+

 

[pphil]

Merci pour la bouée, sauf que même en respectant ces formats le simple fait de descendre la barre de défilement fait disparaitre la zone de texte
ce n'est donc pas la bonne solution ( amha)
pphil

 

[pphil]

Bon
la seule manip simple que j'ai trouvé consiste à agrandir la première ligne et à figer les volets en A2
du coup, dans cet espace un peu large, la barre ne défile plus.
c'est pas très fun, mais ça marche
pphil

 

[galopin01]

bonjour,
voilà un autre truc...
A+

 

[Surfing Joe]

Gloub! Ne pas déplacer ou dimensionner avec les cellules, des promesses à la Microsoft!!!

Désolé, c'est aussi à ça que je pensais ensuite "figer les volets".

La proposition de galopin01 est excellente (comme toujours, c'est un as de la macro!).
Je la verrai bien en commande click droit, mais moi je sais pas faire...

A+

 

[galopin01]

Re:
remplacer la macro Worksheet_SelectionChange par :

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Shapes("Text Box 1").Left = Target.Offset(0, 1).Left
Shapes("Text Box 1").Top = Target.Offset(1, 0).Top
Cancel = True
End Sub

Inconvénient, tu perds le menu contextuel lié au clic droit (pour le rétablir Cancel = false) mais c'est pas le pied...

Commentaire : On peut paramétrer la position de la TextBx de la manière suivante
= Target.Offset(0, 1).Left +100 (par exemple)
ou comme ça
= Target.Left + 100
la même chose pour Top
A+

 

[pphil]

là, j'm'incline bien bas
merci messieurs
pphil