elnicnic
Messages postés3Date d'inscriptionjeudi 8 juillet 2010StatutMembreDernière intervention 8 juillet 2010
-
8 juil. 2010 à 14:08
elnicnic
Messages postés3Date d'inscriptionjeudi 8 juillet 2010StatutMembreDernière intervention 8 juillet 2010
-
8 juil. 2010 à 18:34
Bien le bonjour et merci par avance pour vos réponses.
J'ai créé un userform avec plusieurs boutons qui lancent différentes macros, et j'aimerai rajouter une macro cachées.
Pour l'instant, je la lance en cliquant sur un label transparent caché dans un coin du userform mais j'aimerai pouvoir l'activer par un raccourcis clavier.
j'ai bien entendu essayé avec les options de la macro mais j'ai l'impression que si une macro est déjà lancée par Excel (ici mon userform), les raccourcis clavier sont désactivés.
cs_Le Pivert
Messages postés7899Date d'inscriptionjeudi 13 septembre 2007StatutContributeurDernière intervention21 septembre 2023137 8 juil. 2010 à 16:15
Bonjour,
Mettre la propriété de l'UserForm ShowModal à False. Faire le raccourci macro. Mais il faut cliquer sur la feuille avant d'appeler la macro par le raccourci
@+
Le Pivert
cs_Le Pivert
Messages postés7899Date d'inscriptionjeudi 13 septembre 2007StatutContributeurDernière intervention21 septembre 2023137 8 juil. 2010 à 18:18
Vous pouvez mettre un bouton "Minimise"
A mettre dans le code de l'UserForm
Option Explicit
'Maximise et minimise
Private Declare Function GetWindowLongA Lib "user32" _
(ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLongA Lib "user32" _
(ByVal hwnd As Long, ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long
Private Declare Function FindWindowA Lib "user32" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Sub UserForm_Initialize()
'Maximise et minimise
hwnd = FindWindowA(vbNullString, Me.Caption)
'SetWindowLongA hwnd, -16, GetWindowLongA(hwnd, -16) Or &H10000 'maximise
SetWindowLongA hwnd, -16, GetWindowLongA(hwnd, -16) Or &H20000 'minimise
End Sub