J'aimerais écrire une procédure dans la feuil1, par exemple, pour écrire une
formule dans une cellule lorsque l'utilisateur sélectionne cette cellule et
appui sur la touche F4 (ou autre touche comme F6). J'ai écrit quelque chose
qui ne fonctionne pas...
Private Sub Ecrire()
If Range("e20").Select And vbKeyF4_KeyDown Then
Range("e20").Formula = "=j7+j8"
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
FxM
Bonjour,
Sans l'avoir testé, tu peux t'inspirer de :
sub test() activecell.formula = "=J7+J8" end sub
Pour affecter à F4 : Application.OnKey "{F4}", "test"
@+ FxM
André Tremblay wrote:
J'aimerais écrire une procédure dans la feuil1, par exemple, pour écrire une formule dans une cellule lorsque l'utilisateur sélectionne cette cellule et appui sur la touche F4 (ou autre touche comme F6). J'ai écrit quelque chose qui ne fonctionne pas...
Private Sub Ecrire()
If Range("e20").Select And vbKeyF4_KeyDown Then Range("e20").Formula = "=j7+j8"
End If End Sub
Bonjour,
Sans l'avoir testé, tu peux t'inspirer de :
sub test()
activecell.formula = "=J7+J8"
end sub
Pour affecter à F4 :
Application.OnKey "{F4}", "test"
@+
FxM
André Tremblay wrote:
J'aimerais écrire une procédure dans la feuil1, par exemple, pour écrire une
formule dans une cellule lorsque l'utilisateur sélectionne cette cellule et
appui sur la touche F4 (ou autre touche comme F6). J'ai écrit quelque chose
qui ne fonctionne pas...
Private Sub Ecrire()
If Range("e20").Select And vbKeyF4_KeyDown Then
Range("e20").Formula = "=j7+j8"
Pour affecter à F4 : Application.OnKey "{F4}", "test"
@+ FxM
André Tremblay wrote:
J'aimerais écrire une procédure dans la feuil1, par exemple, pour écrire une formule dans une cellule lorsque l'utilisateur sélectionne cette cellule et appui sur la touche F4 (ou autre touche comme F6). J'ai écrit quelque chose qui ne fonctionne pas...
Private Sub Ecrire()
If Range("e20").Select And vbKeyF4_KeyDown Then Range("e20").Formula = "=j7+j8"
End If End Sub
DC
Bonjour FxM,
Pour affecter à F4 : Application.OnKey "{F4}", "test"
Donc, pour affecter à Alt + F4 : comment fait-on ? (svp )
Cordialement ! Merci d'avance DC
"FxM" a écrit dans le message de news: O$%
Bonjour,
Sans l'avoir testé, tu peux t'inspirer de :
sub test() activecell.formula = "=J7+J8" end sub
Pour affecter à F4 : Application.OnKey "{F4}", "test"
@+ FxM
André Tremblay wrote:
J'aimerais écrire une procédure dans la feuil1, par exemple, pour écrire une formule dans une cellule lorsque l'utilisateur sélectionne cette cellule et appui sur la touche F4 (ou autre touche comme F6). J'ai écrit quelque chose qui ne fonctionne pas... Private Sub Ecrire()
If Range("e20").Select And vbKeyF4_KeyDown Then Range("e20").Formula = "=j7+j8"
End If End Sub
Bonjour FxM,
Pour affecter à F4 :
Application.OnKey "{F4}", "test"
Donc, pour affecter à Alt + F4 : comment fait-on ? (svp )
Cordialement ! Merci d'avance DC
"FxM" <nullos@greuchmeu.ici> a écrit dans le message de news:
O$%23e37nSGHA.4340@tk2msftngp13.phx.gbl...
Bonjour,
Sans l'avoir testé, tu peux t'inspirer de :
sub test()
activecell.formula = "=J7+J8"
end sub
Pour affecter à F4 :
Application.OnKey "{F4}", "test"
@+
FxM
André Tremblay wrote:
J'aimerais écrire une procédure dans la feuil1, par exemple, pour écrire
une formule dans une cellule lorsque l'utilisateur sélectionne cette
cellule et appui sur la touche F4 (ou autre touche comme F6). J'ai écrit
quelque chose qui ne fonctionne pas...
Private Sub Ecrire()
If Range("e20").Select And vbKeyF4_KeyDown Then
Range("e20").Formula = "=j7+j8"
Pour affecter à F4 : Application.OnKey "{F4}", "test"
Donc, pour affecter à Alt + F4 : comment fait-on ? (svp )
Cordialement ! Merci d'avance DC
"FxM" a écrit dans le message de news: O$%
Bonjour,
Sans l'avoir testé, tu peux t'inspirer de :
sub test() activecell.formula = "=J7+J8" end sub
Pour affecter à F4 : Application.OnKey "{F4}", "test"
@+ FxM
André Tremblay wrote:
J'aimerais écrire une procédure dans la feuil1, par exemple, pour écrire une formule dans une cellule lorsque l'utilisateur sélectionne cette cellule et appui sur la touche F4 (ou autre touche comme F6). J'ai écrit quelque chose qui ne fonctionne pas... Private Sub Ecrire()
If Range("e20").Select And vbKeyF4_KeyDown Then Range("e20").Formula = "=j7+j8"
End If End Sub
michdenis
Bonjour DC,
'------------------- Sub AffecterToucheAltF4()
Application.OnKey "%{F4}", "Test2"
End Sub '-------------------
La macro Test2 se doit d'être dans un module standard.
Salutations!
"DC" a écrit dans le message de news: 441c17b0$0$29191$ Bonjour FxM,
Pour affecter à F4 : Application.OnKey "{F4}", "test"
Donc, pour affecter à Alt + F4 : comment fait-on ? (svp )
Cordialement ! Merci d'avance DC
"FxM" a écrit dans le message de news: O$%
Bonjour,
Sans l'avoir testé, tu peux t'inspirer de :
sub test() activecell.formula = "=J7+J8" end sub
Pour affecter à F4 : Application.OnKey "{F4}", "test"
@+ FxM
André Tremblay wrote:
J'aimerais écrire une procédure dans la feuil1, par exemple, pour écrire une formule dans une cellule lorsque l'utilisateur sélectionne cette cellule et appui sur la touche F4 (ou autre touche comme F6). J'ai écrit quelque chose qui ne fonctionne pas... Private Sub Ecrire()
If Range("e20").Select And vbKeyF4_KeyDown Then Range("e20").Formula = "=j7+j8"
End If End Sub
Bonjour DC,
'-------------------
Sub AffecterToucheAltF4()
Application.OnKey "%{F4}", "Test2"
End Sub
'-------------------
La macro Test2 se doit d'être dans un module standard.
Salutations!
"DC" <da.campion@hotmail.fr> a écrit dans le message de news: 441c17b0$0$29191$8fcfb975@news.wanadoo.fr...
Bonjour FxM,
Pour affecter à F4 :
Application.OnKey "{F4}", "test"
Donc, pour affecter à Alt + F4 : comment fait-on ? (svp )
Cordialement ! Merci d'avance DC
"FxM" <nullos@greuchmeu.ici> a écrit dans le message de news:
O$%23e37nSGHA.4340@tk2msftngp13.phx.gbl...
Bonjour,
Sans l'avoir testé, tu peux t'inspirer de :
sub test()
activecell.formula = "=J7+J8"
end sub
Pour affecter à F4 :
Application.OnKey "{F4}", "test"
@+
FxM
André Tremblay wrote:
J'aimerais écrire une procédure dans la feuil1, par exemple, pour écrire
une formule dans une cellule lorsque l'utilisateur sélectionne cette
cellule et appui sur la touche F4 (ou autre touche comme F6). J'ai écrit
quelque chose qui ne fonctionne pas...
Private Sub Ecrire()
If Range("e20").Select And vbKeyF4_KeyDown Then
Range("e20").Formula = "=j7+j8"
La macro Test2 se doit d'être dans un module standard.
Salutations!
"DC" a écrit dans le message de news: 441c17b0$0$29191$ Bonjour FxM,
Pour affecter à F4 : Application.OnKey "{F4}", "test"
Donc, pour affecter à Alt + F4 : comment fait-on ? (svp )
Cordialement ! Merci d'avance DC
"FxM" a écrit dans le message de news: O$%
Bonjour,
Sans l'avoir testé, tu peux t'inspirer de :
sub test() activecell.formula = "=J7+J8" end sub
Pour affecter à F4 : Application.OnKey "{F4}", "test"
@+ FxM
André Tremblay wrote:
J'aimerais écrire une procédure dans la feuil1, par exemple, pour écrire une formule dans une cellule lorsque l'utilisateur sélectionne cette cellule et appui sur la touche F4 (ou autre touche comme F6). J'ai écrit quelque chose qui ne fonctionne pas... Private Sub Ecrire()
If Range("e20").Select And vbKeyF4_KeyDown Then Range("e20").Formula = "=j7+j8"
End If End Sub
DC
Bonjour michdenis,
Merci de ta réponse positive, c'est sympa.!
Cordialement ! bon WE DC
"michdenis" a écrit dans le message de news:
Bonjour DC,
'------------------- Sub AffecterToucheAltF4()
Application.OnKey "%{F4}", "Test2"
End Sub '-------------------
La macro Test2 se doit d'être dans un module standard.
Salutations!
"DC" a écrit dans le message de news: 441c17b0$0$29191$ Bonjour FxM,
Pour affecter à F4 : Application.OnKey "{F4}", "test"
Donc, pour affecter à Alt + F4 : comment fait-on ? (svp )
Cordialement ! Merci d'avance DC
"FxM" a écrit dans le message de news: O$%
Bonjour,
Sans l'avoir testé, tu peux t'inspirer de :
sub test() activecell.formula = "=J7+J8" end sub
Pour affecter à F4 : Application.OnKey "{F4}", "test"
@+ FxM
André Tremblay wrote:
J'aimerais écrire une procédure dans la feuil1, par exemple, pour écrire une formule dans une cellule lorsque l'utilisateur sélectionne cette cellule et appui sur la touche F4 (ou autre touche comme F6). J'ai écrit quelque chose qui ne fonctionne pas... Private Sub Ecrire()
If Range("e20").Select And vbKeyF4_KeyDown Then Range("e20").Formula = "=j7+j8"
End If End Sub
Bonjour michdenis,
Merci de ta réponse positive, c'est sympa.!
Cordialement ! bon WE DC
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
uXCqmxpSGHA.1608@TK2MSFTNGP09.phx.gbl...
Bonjour DC,
'-------------------
Sub AffecterToucheAltF4()
Application.OnKey "%{F4}", "Test2"
End Sub
'-------------------
La macro Test2 se doit d'être dans un module standard.
Salutations!
"DC" <da.campion@hotmail.fr> a écrit dans le message de news:
441c17b0$0$29191$8fcfb975@news.wanadoo.fr...
Bonjour FxM,
Pour affecter à F4 :
Application.OnKey "{F4}", "test"
Donc, pour affecter à Alt + F4 : comment fait-on ? (svp )
Cordialement ! Merci d'avance DC
"FxM" <nullos@greuchmeu.ici> a écrit dans le message de news:
O$%23e37nSGHA.4340@tk2msftngp13.phx.gbl...
Bonjour,
Sans l'avoir testé, tu peux t'inspirer de :
sub test()
activecell.formula = "=J7+J8"
end sub
Pour affecter à F4 :
Application.OnKey "{F4}", "test"
@+
FxM
André Tremblay wrote:
J'aimerais écrire une procédure dans la feuil1, par exemple, pour écrire
une formule dans une cellule lorsque l'utilisateur sélectionne cette
cellule et appui sur la touche F4 (ou autre touche comme F6). J'ai écrit
quelque chose qui ne fonctionne pas...
Private Sub Ecrire()
If Range("e20").Select And vbKeyF4_KeyDown Then
Range("e20").Formula = "=j7+j8"
La macro Test2 se doit d'être dans un module standard.
Salutations!
"DC" a écrit dans le message de news: 441c17b0$0$29191$ Bonjour FxM,
Pour affecter à F4 : Application.OnKey "{F4}", "test"
Donc, pour affecter à Alt + F4 : comment fait-on ? (svp )
Cordialement ! Merci d'avance DC
"FxM" a écrit dans le message de news: O$%
Bonjour,
Sans l'avoir testé, tu peux t'inspirer de :
sub test() activecell.formula = "=J7+J8" end sub
Pour affecter à F4 : Application.OnKey "{F4}", "test"
@+ FxM
André Tremblay wrote:
J'aimerais écrire une procédure dans la feuil1, par exemple, pour écrire une formule dans une cellule lorsque l'utilisateur sélectionne cette cellule et appui sur la touche F4 (ou autre touche comme F6). J'ai écrit quelque chose qui ne fonctionne pas... Private Sub Ecrire()
If Range("e20").Select And vbKeyF4_KeyDown Then Range("e20").Formula = "=j7+j8"
