Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

bouton qui reste apparent

  • Initiateur de la discussion MARION
  • Date de début
M

MARION

Guest
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
 
M

Minick

Guest
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
 
M

MARION

Guest
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
 
H

Huahailu

Guest
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
 

Discussions similaires

Réponses
8
Affichages
326
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…