Sorry,
In ThisWorkbook, change for :
Private Sub Workbook_Open()
Sheets("Sheet1").Activate
Application.OnKey "{UP}", "Plus"
Application.OnKey "{DOWN}", "Moins"
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name = "Sheet1" Then
Application.OnKey "{UP}", "Plus"
Application.OnKey "{DOWN}", "Moins"
Else
Application.OnKey "{UP}", ""
Application.OnKey "{DOWN}", ""
End If
End Sub
Daniel
De : excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] De
la part de Cab Boose
Envoyé : samedi 3 septembre 2011 03:13
À : excel-macros@googlegroups.com
Objet : $$Excel-Macros$$ Counter in a Cell
Hi
In attached Sheet1, I want the cell to count from 0 to 16 up and down in
between. The count is of times up arrow and down arrow are pressed.
To set speed from, 0 to 16 for model railroad project.
Your advice appreciated.
Thanks
Charlie Harris
--
----------------------------------------------------------------------------
------
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links :
http://twitter.com/exceldailytip
2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
3. Excel tutorials at http://www.excel-macros.blogspot.com
4. Learn VBA Macros at http://www.quickvba.blogspot.com
5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
<><><><><><><><><><><><><><><><><><><><><><>
Like our page on facebook , Just follow below link
http://www.facebook.com/discussexcel
--
----------------------------------------------------------------------------------
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links :
http://twitter.com/exceldailytip
2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
3. Excel tutorials at http://www.excel-macros.blogspot.com
4. Learn VBA Macros at http://www.quickvba.blogspot.com
5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
<><><><><><><><><><><><><><><><><><><><><><>
Like our page on facebook , Just follow below link
http://www.facebook.com/discussexcel
