OVH Cloud OVH Cloud

VBA et touche verrouillage majuscule

13 réponses
Avatar
Proust Michel
bonjour à tous
dans une macro VBA, je voudrais lancer :
traitement A si clic bouton B
traitement Z si clic bouton B avec verrouillage majuscule activé (la touche
avec un petit cadenas fermé)
aussi je voudrais savoir comment déterminer que la touche verrouillage
majuscule est activée
merci d'avance pour les infos et bonne journée

3 réponses

1 2
Avatar
isabelle
bonjour Ael Rowen Terence,

Ael Rowen Terence a écrit :
Bonjour, et pardon de poser une question de néophyte :
Mais que signifie les étoiles dans l'expression : "
Application.*StatusBar*" ?


c'est ce qui arrive lorsque l'on fait un copier coller directement de
l'aide excel dans un message texte,
ces caractères ne font pas partie du code, toutes mes excuses,

oldStatusBar = Application.DisplayStatusBar
Application.DisplayStatusBar = True
Application.StatusBar = "Please be patient..."
Workbooks.Open Filename:="LARGE.XLS"
Application.StatusBar = False
Application.DisplayStatusBar = oldStatusBar

isabelle
Avatar
Ael Rowen Terence
"isabelle" a écrit dans le message de groupe de discussion :
uijpK$
bonjour Ael Rowen Terence,

Ael Rowen Terence a écrit :
Bonjour, et pardon de poser une question de néophyte :
Mais que signifie les étoiles dans l'expression : "
Application.*StatusBar*" ?


c'est ce qui arrive lorsque l'on fait un copier coller directement de
l'aide excel dans un message texte,
ces caractères ne font pas partie du code, toutes mes excuses,

oldStatusBar = Application.DisplayStatusBar
Application.DisplayStatusBar = True
Application.StatusBar = "Please be patient..."
Workbooks.Open Filename:="LARGE.XLS"
Application.StatusBar = False
Application.DisplayStatusBar = oldStatusBar

isabelle



A qui ce n'est arrivé me lance le premier paquet d'octets ... :-)
Avatar
JLuc
Ael Rowen Terence a écrit :
"isabelle" a écrit dans le message de groupe de discussion :

bonjour Michel,




|oldStatusBar = Application.DisplayStatusBar
Application.DisplayStatusBar = True
Application.*StatusBar* = "Please be patient..."
Workbooks.Open filename:="LARGE.XLS"
Application.*StatusBar* = False
Application.DisplayStatusBar = oldStatusBar



Bonjour, et pardon de poser une question de néophyte :
Mais que signifie les étoiles dans l'expression : "
Application.*StatusBar*" ?



Les étoile sont là pour mettre en gras le mot "StatusBar". Avec mon
lecteur (MesNews), les étoiles n'apparraissent pas mais le mot est en
gras

--
JLuc
« Celui qui trouve sans chercher est celui qui a longtemps cherché
sans trouver. » - Gaston BACHELARD
1 2