bouton macro toujours visible

job75

XLDnaute Barbatruc

• 22 Octobre 2012

• #2

Re : bouton macro toujours visible

Bonjour eastwick,

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

Cherchez sur le forum.

A+

 

Vote positif 0 Vote négatif

eastwick

XLDnaute Accro

• 22 Octobre 2012

• #3

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.

 

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 22 Octobre 2012

• #4

Re : bouton macro toujours visible

Bonsour®

eastwick à dit:

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.

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

eastwick

XLDnaute Accro

• 22 Octobre 2012

• #5

Re : bouton macro toujours visible

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 22 Octobre 2012

• #6

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: 207
• Bouton(1).xls

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

  34 KB · Affichages: 203

Vote positif 0 Vote négatif

eastwick

XLDnaute Accro

• 22 Octobre 2012

• #7

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 !!!

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 22 Octobre 2012

• #8

Re : bouton macro toujours visible

Re,

eastwick à dit:

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

Cliquez pour agrandir...

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

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: 254

Vote positif 0 Vote négatif

eastwick

XLDnaute Accro

• 22 Octobre 2012

• #9

Re : bouton macro toujours visible

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

 

Vote positif 0 Vote négatif

eastwick

XLDnaute Accro

• 22 Octobre 2012

• #10

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.

 

Vote positif 0 Vote négatif

eastwick

XLDnaute Accro

• 22 Octobre 2012

• #11

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: 179

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 22 Octobre 2012

• #12

Re : bouton macro toujours visible

Bonjour, le Fil 🙂, le Forum,

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

A bientôt 🙂.

 

Pièces jointes

• 00 - eastwick - bouton.xlsm

  433.4 KB · Affichages: 353

Vote positif 0 Vote négatif

eastwick

XLDnaute Accro

• 22 Octobre 2012

• #13

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.

 

Vote positif 0 Vote négatif