Call macro

ChTi160

XLDnaute Barbatruc

• 7 Avril 2005

• #2

Salut'Temjeh'
je viens de tester ceci et ca marche
dans ThisWorBook
Private Sub Workbook_Activate()
Application.OnKey '{F8}', 'Macro1'
End Sub
dans un module Module 1
J'ai mis
Sub Macro1()
MsgBox 'Coucou'
End Sub
eh bien lorsque je fait F8 devine çà me fait 'Coucou' ????
Amicalement
Jean Marie

Message édité par: ChTi160, à: 07/04/2005 14:09

 

Vote positif 0 Vote négatif

B

bertrand

Guest

• 7 Avril 2005

• #3

bonjour,

je pense cela vient simplement du fait que tu appelles macro1 alors qu'elle se nomme macro1(show) dans ce cas show est non facultatif.

Espérant ne pas dire de bétises

 

Vote positif 0 Vote négatif

M

MerciTemjeh

Guest

• 7 Avril 2005

• #4

Merci bertrand

Non le show est obligatoire si ekke doit être invisible par outils...macro donc je doit l'appeler

Je sais que ca fonctionne mais je veut la rendre invisible
Merci

Temjeh

 

Vote positif 0 Vote négatif

Eric C

XLDnaute Barbatruc

• 7 Avril 2005

• #5

Bonjour le forum
Bonjour Temjeh, bonjour bertrand, bonjour Jean-Marie

Si tu veux que ton appli fonctionne tout en 'cachant' ta 'Macro1' depuis le Menu / Outils / Macros il te suffit depuis ton module de mettre entre parenthèses la procédure suivante. Ainsi ta macro n'et pas visible dans Macros et tu peux l'appeler selon le code fourni par ChTi160.

Code:

Sub Macro1(Optional Factice As String)
UserForm1.Show
End Sub

Code:

Private Sub Workbook_Activate()
Application.OnKey '{F8}', 'Macro1'
End Sub

 

Vote positif 0 Vote négatif

myDearFriend!

XLDnaute Barbatruc

• 7 Avril 2005

• #6

Bonsoir Temjeh, ChTi160, bertrand et Eric C.

Eric a raison, si le l'objectif est uniquement de rendre invisible cette procédure dans la boîte de dialogue d'appel macro (ALT + F8), tu as la possibilité de rendre l'argument show falcultatif en ajoutant Optional dans le titre de la procédure.

Une autre façon de faire pour le même résultat est de mettre Option Private Module en entête du module général contenant la procédure (comme tu le fais pour Option Explicit).

Sinon, si tu souhaites vraiment passer un argument dans un appel par la méthode Application.OnKey, tu peux procéder ainsi :

Dans le module ThisWorkbook :

Private Sub Workbook_Activate()
'le nom de la procédure et l'argument sont séparés par un espace et le tout, entouré par
'des apostrophes (+ guillemets bien sûr !)
      Application.OnKey '{F8}', ''Macro1 True''
      Application.OnKey '{F9}', ''Macro1 False''
End Sub

Cliquez pour agrandir...

Dans un module de code général (Module1 par exemple) :

Public Sub Macro1(Arg As Boolean)
      MsgBox 'Appel par la touche : ' & IIf(Arg, 'F8', 'F9')
End Sub

Cliquez pour agrandir...

Cordialement.

 

Vote positif 0 Vote négatif

T

Toutchoco

XLDnaute Nouveau

• 7 Avril 2005

• #7

Bonsoir à tous !
Au sujet de la macro que l'on a rendue invisible.. Comment aller la modifier ?
En fait j'ai créée un fichier qui à l'ouverture
affiche pendant qqs secondes un userform d'info
QQs jours plus tard je reviens sur ce fichier et je souhaite diminuer le tps d'affichage Mais je ne sais plus comment accéder à la macro...

Donc j'ai carrément supprimé le userform.
Y avait-il une autre solution ?
Merci à tous

 

Vote positif 0 Vote négatif

Eric C

XLDnaute Barbatruc

• 8 Avril 2005

• #8

Bonjour le forum
Bonjour Temjeh, bonjour Bertrand, bonjour Jean-Marie, bonjour Didier & bonjour Touchoco

Tout d'abord merci à Didier pour ce complément d'instruction. Pour rendre de nouveau visible ta macro là où il se doit, tu remplaces :

Sub Macro1(Optional Factice As String)
UserForm1.Show
End Sub

Cliquez pour agrandir...

Par

Sub Macro1()
UserForm1.Show
End Sub

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

T

Toutchoco

XLDnaute Nouveau

• 11 Avril 2005

• #9

Merci Eric C pour ta réponse !
et Salut à tout le Forum

 

Vote positif 0 Vote négatif

T

Temjeh

Guest

• 12 Avril 2005

• #10

Wow j'en ai des réponse j'avais abandonné mais merci à tous j'ai déjà corriger mon code avec ...Optional Factice As String (très bon)
c'est parfait

Merci beaucoup

Temjeh

 

Vote positif 0 Vote négatif