Commnt envoyer un parametre lorsqu'on lance une macro avec Application.OnKey
Le seul truc qui marche dans mes essais c'est
Application.OnKey "t", "Truc"
alors que je cherche à faire
Run("Truc", 1)
Bien sur je peux attribuer le onkey à une autre macro qui, elle, lancera le
Run, mais je suppose qu'il doit y avoir moyen d'ajouter directement le
parametre non ?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Bruno LOUIS
Bonjour,
Oui, ça va :)
Moi je te suggère d'utiliser l'évément Woorksheet_Change :
' Place ce code dans le module attaché à la feuil1 Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If UCase(Target.Text) = "TRUC" Then ' ton code si l'utilisateur à saisi Truc sur la feuil1 ' par exemple Run("Truc",1) End If Application.EnableEvents = True End Sub
Bien sûr, ce code ne fonctionne que pour les saisies opérées sur la feuil1.
Salutations
Bruno
"Serge Hipontoise" a écrit dans le message de news: 41b014c4$0$429$
Bonjour à tous Vous allez bien ?
Commnt envoyer un parametre lorsqu'on lance une macro avec Application.OnKey
Le seul truc qui marche dans mes essais c'est Application.OnKey "t", "Truc" alors que je cherche à faire Run("Truc", 1)
Bien sur je peux attribuer le onkey à une autre macro qui, elle, lancera le Run, mais je suppose qu'il doit y avoir moyen d'ajouter directement le parametre non ?
Merci d'avance Serge
Bonjour,
Oui, ça va :)
Moi je te suggère d'utiliser l'évément Woorksheet_Change :
' Place ce code dans le module attaché à la feuil1
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If UCase(Target.Text) = "TRUC" Then
' ton code si l'utilisateur à saisi Truc sur la feuil1
' par exemple Run("Truc",1)
End If
Application.EnableEvents = True
End Sub
Bien sûr, ce code ne fonctionne que pour les saisies opérées sur la feuil1.
Salutations
Bruno
"Serge Hipontoise" <repondez@surlegroupe.merci> a écrit dans le message de
news: 41b014c4$0$429$626a14ce@news.free.fr...
Bonjour à tous
Vous allez bien ?
Commnt envoyer un parametre lorsqu'on lance une macro avec
Application.OnKey
Le seul truc qui marche dans mes essais c'est
Application.OnKey "t", "Truc"
alors que je cherche à faire
Run("Truc", 1)
Bien sur je peux attribuer le onkey à une autre macro qui, elle, lancera
le Run, mais je suppose qu'il doit y avoir moyen d'ajouter directement le
parametre non ?
Moi je te suggère d'utiliser l'évément Woorksheet_Change :
' Place ce code dans le module attaché à la feuil1 Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If UCase(Target.Text) = "TRUC" Then ' ton code si l'utilisateur à saisi Truc sur la feuil1 ' par exemple Run("Truc",1) End If Application.EnableEvents = True End Sub
Bien sûr, ce code ne fonctionne que pour les saisies opérées sur la feuil1.
Salutations
Bruno
"Serge Hipontoise" a écrit dans le message de news: 41b014c4$0$429$
Bonjour à tous Vous allez bien ?
Commnt envoyer un parametre lorsqu'on lance une macro avec Application.OnKey
Le seul truc qui marche dans mes essais c'est Application.OnKey "t", "Truc" alors que je cherche à faire Run("Truc", 1)
Bien sur je peux attribuer le onkey à une autre macro qui, elle, lancera le Run, mais je suppose qu'il doit y avoir moyen d'ajouter directement le parametre non ?
Merci d'avance Serge
Serge Hipontoise
J'ai trouvé ! Faut faire Application.OnKey "t", "'Truc 1'" c'est à dire entourer le nom et le para mètre par des ' Merci Bruno :o) Serge
Commnt envoyer un parametre lorsqu'on lance une macro avec Application.OnKey
Le seul truc qui marche dans mes essais c'est Application.OnKey "t", "Truc" alors que je cherche à faire Run("Truc", 1)
Bien sur je peux attribuer le onkey à une autre macro qui, elle, lancera le Run, mais je suppose qu'il doit y avoir moyen d'ajouter directement le parametre non ?
Merci d'avance Serge
J'ai trouvé !
Faut faire
Application.OnKey "t", "'Truc 1'"
c'est à dire entourer le nom et le para mètre par des '
Merci Bruno :o)
Serge
Commnt envoyer un parametre lorsqu'on lance une macro avec
Application.OnKey
Le seul truc qui marche dans mes essais c'est
Application.OnKey "t", "Truc"
alors que je cherche à faire
Run("Truc", 1)
Bien sur je peux attribuer le onkey à une autre macro qui, elle, lancera
le Run, mais je suppose qu'il doit y avoir moyen d'ajouter directement le
parametre non ?
J'ai trouvé ! Faut faire Application.OnKey "t", "'Truc 1'" c'est à dire entourer le nom et le para mètre par des ' Merci Bruno :o) Serge
Commnt envoyer un parametre lorsqu'on lance une macro avec Application.OnKey
Le seul truc qui marche dans mes essais c'est Application.OnKey "t", "Truc" alors que je cherche à faire Run("Truc", 1)
Bien sur je peux attribuer le onkey à une autre macro qui, elle, lancera le Run, mais je suppose qu'il doit y avoir moyen d'ajouter directement le parametre non ?
Merci d'avance Serge
jps
oui, serge, et surtout pas de virgule entre le nom de la macro et le paramètre... j'ai failli te le dire ce matin mais j'étais en plein chabrot...un truc qu'on boit, si (inventé par le moine st léger, je crois) jps
"Serge Hipontoise" a écrit dans le message de news:41b01e47$0$437$
J'ai trouvé ! Faut faire Application.OnKey "t", "'Truc 1'" c'est à dire entourer le nom et le para mètre par des ' Merci Bruno :o) Serge
Commnt envoyer un parametre lorsqu'on lance une macro avec Application.OnKey
Le seul truc qui marche dans mes essais c'est Application.OnKey "t", "Truc" alors que je cherche à faire Run("Truc", 1)
Bien sur je peux attribuer le onkey à une autre macro qui, elle, lancera le Run, mais je suppose qu'il doit y avoir moyen d'ajouter directement le
parametre non ?
Merci d'avance Serge
oui, serge, et surtout pas de virgule entre le nom de la macro et le
paramètre...
j'ai failli te le dire ce matin mais j'étais en plein chabrot...un truc
qu'on boit, si (inventé par le moine st léger, je crois)
jps
"Serge Hipontoise" <repondez@surlegroupe.merci> a écrit dans le message de
news:41b01e47$0$437$626a14ce@news.free.fr...
J'ai trouvé !
Faut faire
Application.OnKey "t", "'Truc 1'"
c'est à dire entourer le nom et le para mètre par des '
Merci Bruno :o)
Serge
Commnt envoyer un parametre lorsqu'on lance une macro avec
Application.OnKey
Le seul truc qui marche dans mes essais c'est
Application.OnKey "t", "Truc"
alors que je cherche à faire
Run("Truc", 1)
Bien sur je peux attribuer le onkey à une autre macro qui, elle, lancera
le Run, mais je suppose qu'il doit y avoir moyen d'ajouter directement
le
oui, serge, et surtout pas de virgule entre le nom de la macro et le paramètre... j'ai failli te le dire ce matin mais j'étais en plein chabrot...un truc qu'on boit, si (inventé par le moine st léger, je crois) jps
"Serge Hipontoise" a écrit dans le message de news:41b01e47$0$437$
J'ai trouvé ! Faut faire Application.OnKey "t", "'Truc 1'" c'est à dire entourer le nom et le para mètre par des ' Merci Bruno :o) Serge
Commnt envoyer un parametre lorsqu'on lance une macro avec Application.OnKey
Le seul truc qui marche dans mes essais c'est Application.OnKey "t", "Truc" alors que je cherche à faire Run("Truc", 1)
Bien sur je peux attribuer le onkey à une autre macro qui, elle, lancera le Run, mais je suppose qu'il doit y avoir moyen d'ajouter directement le