barre flottante svp

S

Surfing Joe

Guest

• 18 Janvier 2005

• #2

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

 

Pièces jointes

• Barreflottante.zip

  19.8 KB · Affichages: 77
• Barreflottante.zip

  19.8 KB · Affichages: 76
• Barreflottante.zip

  19.8 KB · Affichages: 78

Vote positif 0 Vote négatif

P

pphil

Guest

• 18 Janvier 2005

• #3

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

 

Vote positif 0 Vote négatif

P

pphil

Guest

• 20 Janvier 2005

• #4

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

 

Vote positif 0 Vote négatif

G

galopin01

Guest

• 20 Janvier 2005

• #5

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

 

Pièces jointes

• Demo1.zip

  7 KB · Affichages: 104
• Demo1.zip

  7 KB · Affichages: 103
• Demo1.zip

  7 KB · Affichages: 104

Vote positif 0 Vote négatif

S

Surfing Joe

Guest

• 20 Janvier 2005

• #6

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+

 

Vote positif 0 Vote négatif

G

galopin01

Guest

• 20 Janvier 2005

• #7

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+

 

Vote positif 0 Vote négatif

P

pphil

Guest

• 21 Janvier 2005

• #8

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

 

Vote positif 0 Vote négatif