bouton macro toujours visible

[eastwick]

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.

 

[job75]

Re : bouton macro toujours visible

Bonjour eastwick,

En ajoutant un bouton dans le ruban il sera normalement toujours visible.

Cherchez sur le forum.

A+

 

[eastwick]

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]

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.

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

 

[eastwick]

Re : bouton macro toujours visible

Et pour ma satisfaction personnelle ??? Merci !!!!!

 

[job75]

Re : bouton macro toujours visible

Re, bonjour Modeste geedee,

Voir le fichier joint.

Dans ThisWorkBook :

Private Sub WorkBook_Open()
UserForm1.Show 0 'vbModeless
End Sub

Dans le code de l'UserForm :

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+

 

[eastwick]

Re : bouton macro toujours visible

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

 

[job75]

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

Fichier (2).

PS : testé OK sur Excel 2010.

A+

 

[eastwick]

Re : bouton macro toujours visible

Je ne suis pas expert en VBA mais là ça devrait aller, merci beaucoup !

 

[eastwick]

Re : bouton macro toujours visible

Je me suis surestimé. N'y a t-il pas moyen d'appliquer un "toujours visible" à un bouton classique ou une image ?
Désolé pour mon manque de compréhension.

 

[eastwick]

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

 

[DoubleZero]

Re : bouton macro toujours visible

Bonjour, le Fil , le Forum,

Un essai en pièce jointe (chaque bouton est nommé "Z").

A bientôt .

 

[eastwick]

Re : bouton macro toujours visible

OK ça va aller, à condition de ne pas oublier de cliquer sur une cellule pour faire apparaître le bouton. Sinon, il reste là ou il est !!

Merci beaucoup.