BoutonDeCommandeGlissant

[Moa]

Bonsoir aux "couche tard", Québécois, Québécoises.

Voilà, je voudrais mettre un bouton de commande, qui glisserait le long de ma feuille, afin qu'il reste toujours visible, quand on utilise, les scrollbars.

Si c'est possible et si qqn à déjà fait ça.

Merci beaucoup d'avance.


@ +

Moa

 

[Mytå]

Re Moa

Juste une idée de bas je dois partir travailler au pire si tu n'as rien demain
je travaille la dessus cette nuit si pas trop de boulot

Sub Deplacer()
ActiveSheet.Shapes("Button 1").Select
Selection.ShapeRange.IncrementTop 100
End sub

Amicalement Mytå

 

[Mytå]

re re Moa

Ou encore avec la command

ActiveSheet.Shapes("CommandButton1").Top = 100

tu modifies la postion du CommandButton dans un macro

Bon je quittes bonne fin de forum a tous Mytå º¿º

 

[Moa]

Gros merci à toi Mytå, et bon travail.

@ demain

Moa

 

[Ti]

Moi, quand je veux faire ça, je ne me complique pas la vie, je fige l'écran (menu Fenêtre...Figer les volets) sur les lignes de titre du tableau, et je place mon ou mes boutons dans cette partie figée de l'écran. Simple et efficace.

 

[Didier]

Bonjour TI,Moa,Mitå
Moi je mets le button de commande sur un userform et je mets
celui-ci en showmodal fase
Salut à tous
Didier

 

[Mytå]

Re le Forum

Si cela peu intéresser quelqu'un

Sub Bouton_toujours_visible()
'Ti 23-12-2002
Dim Ligne1 As Long, Col1 As Long
Dim LigneFin As Long, ColFin As Long
Dim haut As Double, gauche As Double, inter As Double
Dim i As Integer, j As Long
SendKeys "{SCROLLLOCK}{HOME}", True
Ligne1 = ActiveCell.Row
Col1 = ActiveCell.Column
SendKeys "{SCROLLLOCK}{END}", True
LigneFin = ActiveCell.Row
ColFin = ActiveCell.Column
'Ajout Mytå 26-01-2003
haut = 0
gauche = 0
inter = 0
'Calcul position Left
If Col1 = 1 Then
gauche = 0
Else
For i = 1 To Col1 - 1
inter = Cells(Ligne1, i).ColumnWidth
gauche = gauche + (inter * 5.6022409)
Next i
End If
'Calcul position Top
inter = 0
If Ligne1 = 1 Then
haut = 0
Else
For j = 1 To Ligne1 - 1
inter = Cells(j, Col1).RowHeight
haut = haut + inter
Next j
End If
'Positionne le CommandButton1
ActiveSheet.Shapes("CommandButton1").Select
Selection.ShapeRange.Left = gauche
Selection.ShapeRange.Top = haut
Cells(LigneFin, ColFin).Select
End Sub

Reste juste a gérer le déplacement des scrollsbars en Office 97 pas trouver, sinon ca l'air de placer la commandbar dans le coin superieur gauche de la feuille qd lancer manuellement.

Mytå

 

[Moa]

Bonjour et merci à tous.

Bon, mytå, je n'ai pas pu adapter, tes deux premières solutions.

Mais, je n'ai peut-être pas tout compris.

Dans les dernières solutions, j'ai choisis, celle d'André car très simple à mettre en place.

De plus, elle a un avantage, c'est qu'elle laisse le bouton affiché, même, lorsque l'on change de feuille, et cela me va très bien, car mon bouton de commande, devait, justement, me servir, à revenir, à ma feuille de base.

Je vais quand-même tester, la macro, de Ti, donnée par Mytå


Encore merci à vous trois

@ +

Moa

 

[Ti]

tu sais Moa, je crois que tu te compliques beaucoup la vie. Pourquoi ne pas te créer une barre de commande personnalisée ? Tu la places sur la partie droite (ou gauche, si tu préfères) de ta feuille, c'est discret, tu y mets ce que tu veux (un bouton pour revenir à telle feuille, un autre pour trier, un autre pour imprimer etc.) et c'est bien plus élégant que ces trucs qui se promènent un peu partout.

En plus, c'est vraiment facile à faire.

 

[@+Thierry]

Bonjour Ti et Mytå, Re Moa

Heuh Moa... La solution d'André ? quelle solution d'André ?

? il y a un autre fil ?
@+Thierry

 

[Moa]

Autant pour moi, de Didier..milles excuses...hihihi

C'était pour voir si vous suiviez.

@ +

moa

 

[andré]

Salut à tous,

Ah! bon, je me disais aussi ...

André.