bouton macro toujours visible

eastwick

XLDnaute Impliqué
Bonjour Messieurs, Dames,...

J'aimerais avoir le bouton de la macro toujours visible à l'écran. Si possible avec une appli VBA et non déposer le bouton dans une zone avec volets figés (pas joli !).

Je vous remercie.

Bonne journée.
 

eastwick

XLDnaute Impliqué
Re : bouton macro toujours visible

Oui effectivement, cela fonctionne merci. Mais ce fichier doit servir pour des personnes moins expérimentées qui n'auront pas toujours à l'idée d'aller dans Développeur. J'aimerais vraiment que le bouton initial sur la feuille se déplace pour rester toujours visible.
 

Modeste geedee

XLDnaute Barbatruc
Re : bouton macro toujours visible

Bonsour®
Oui effectivement, cela fonctionne merci. Mais ce fichier doit servir pour des personnes moins expérimentées qui n'auront pas toujours à l'idée d'aller dans Développeur. J'aimerais vraiment que le bouton initial sur la feuille se déplace pour rester toujours visible.

:confused:
Mettre à disposition de personnes peu expérimentées la possibilté de bricoler les macros, c'est jouer avec le feu :rolleyes:
 

job75

XLDnaute Barbatruc
Re : bouton macro toujours visible

Re, bonjour Modeste geedee,

Voir le fichier joint.

Dans ThisWorkBook :

Code:
Private Sub WorkBook_Open()
UserForm1.Show 0 'vbModeless
End Sub
Dans le code de l'UserForm :

Code:
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long

 Private Declare Function GetWindowLong Lib "user32" Alias _
"GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long

Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
(ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Private Declare Function DrawMenuBar Lib "user32" (ByVal hWnd As Long) As Long

Private Sub Label1_Click()
MsgBox "Bonjour le forum" 'exemple
End Sub

Private Sub UserForm_Initialize()
Dim hm As Single, hWnd As Long, Style As Long
Me.Height = 0
hm = Me.Height
hWnd = FindWindow(vbNullString, Me.Caption)
Style = GetWindowLong(hWnd, -16) And Not &HC00000
SetWindowLong hWnd, -16, Style
DrawMenuBar hWnd
Me.Height = Me.Height - hm
End Sub
Testé sur Excel 2003 seulement.

A+
 

Pièces jointes

  • Bouton(1).xls
    34 KB · Affichages: 205
  • Bouton(1).xls
    34 KB · Affichages: 209
  • Bouton(1).xls
    34 KB · Affichages: 203

job75

XLDnaute Barbatruc
Re : bouton macro toujours visible

Re,

Je n'arrive pas à l'adapter à mon fichier... tant pis !
Le bouton de la macro en question consiste à revenir à l'onglet sommaire.

Il n'y a pourtant vraiment pas grand'chose à adapter :confused:

Fichier (2).

PS : testé OK sur Excel 2010.

A+
 

Pièces jointes

  • Bouton(2).xls
    35 KB · Affichages: 214
  • Bouton(2).xls
    35 KB · Affichages: 257
  • Bouton(2).xls
    35 KB · Affichages: 253

eastwick

XLDnaute Impliqué
Re : bouton macro toujours visible

pour job75 ou autre personne expérimentée !
J'aimerais que le bouton sommaire soit toujours visible... (macro rattachée : aller à l'onglet sommaire)
Dur, dur...

MERCI 1000 FOIS
 

Pièces jointes

  • Tableaux de bord M8 2012.xlsm
    441.8 KB · Affichages: 178

Discussions similaires

Statistiques des forums

Discussions
312 922
Messages
2 093 644
Membres
105 775
dernier inscrit
assen