bouton qui reste apparent

[MARION]

Bonsoir le forum.
Un petite question ,est 'il possible de d'avoir un bouton macro qui reste apparent.
Actuellement je récupere un bouton pour lancer une macro mais dés que je me déplace avec les barres de défilements, il disparaît ce qui est normale.
Comment faire pour l'avoir toujours visible?
Une petite solution peut-être.
A+ M

 

[Minick]

Salut,

Je n'en mettrais pas ma main au feu , d'abord paske ca fait mal et ensuite paske c'est la mienne ;o)

Mais je pense que ce n'est pas possible.

Il faudrait plutot utiliser une barre d'outils personnalisé.

@+ Minick

 

[MARION]

Bonsoir Minick et merci, fidéle au poste comme trés souvent, tu es toujours là pour régler mes problèmes.
La barre d'outils personnalisé est une trés bonne idée et là je sais faire.
Merci beaucoup
Bonne nuit
A+ M

 

[Lord Nelson]

Hello !

Sinon, tu peux placer ta commande en haut et à gauche de ta feuille et figer les volets, elle sera bien coincée !

A+
LN

 

[Huahailu]

Bonjour Marion, Minick, Lord Nelson et le forum

Tu as une belle démo (comme toujours) de @Thierry qui peut peut être te convenir sur le fil suivant:

Lien supprimé

Ou bien ci-dessous un code trouvé sur le site de VERITI:
____________________________

"J'ai créé une macro qui se lance quand je clique sur un bouton. Le problème, c'est que ce bouton se déplace avec la feuille d'Excel, comme s'il était collé à une cellule. Comment faire pour qu'il soit fixe sur l'écran, pour que je puisse toujours le voir, quelque soit l'endroit où je me trouve dans la feuille?"

'********************************
'partie à coller dans une feuille
'********************************

Option Explicit
'Michel
'http://www.excel-downloads.com/html/French/forum/messages/1_55575_55563.htm
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim TopPos As Long
Dim LeftPos As Long
Dim X As Long
Dim Y As Long


For X = 1 To ActiveWindow.ScrollRow - 1
TopPos = TopPos + Cells(X, 1).Height
Next X

For Y = 1 To ActiveWindow.ScrollColumn - 1
LeftPos = LeftPos + Cells(Y, 1).Width
Next Y

TopPos = TopPos + ActiveWindow.UsableHeight - 110
LeftPos = LeftPos + ActiveWindow.UsableWidth - 140

Sheets("Feuil1").OLEObjects("CommandButton1").Left = LeftPos
Sheets("Feuil1").OLEObjects("CommandButton1").Top = TopPos

End Sub
"______________"


Bonne journée à tous
@+
Pascal

 

[Minick]

Salut,

Houlaaaaaaaaaaaa,
j'ai bien fait de ne pas mettre ma main au feu
paske la je serai un manchot hurlant à la mort. ;o)

@+ Minick