Re : Si cellule active en colonne A, allez colonne B ...
Attention vous allez rire (c'est boiteux comme code)
1
Private Sub Workbook_Open()
ScreenUpdating = False
MsgBox "F5 = monter la phrase" & Chr(10) & _
"F6 = descendre la phrase" & Chr(10) & _
"F4 = cellule selectionnée mise en forme" & Chr(10) & _
"F11 = supprimer lignes vides = cellule selectionnée mise en forme"
Range("A2").Select
Application.OnKey "{F5}", "monter"
Application.OnKey "{F6}", "descendre"
Application.OnKey "{F4}", "mise_en_forme"
Application.OnKey "{F10}", "message"
Application.OnKey "{F11}", "supprime_lignes_vides"
End Sub
Module 1
Sub monter()
SendKeys "{up}"
SendKeys "^x"
SendKeys "{RIGHT 1}"
SendKeys "^v"
SendKeys "{down}": SendKeys "{left}"
SendKeys "^x"
SendKeys "{up}"
SendKeys "^v"
SendKeys "{RIGHT 1}"
SendKeys "^x"
SendKeys "{down}": SendKeys "{left}"
SendKeys "^v"
SendKeys "{up}"
SendKeys "{left}"
SendKeys "^x"
SendKeys "{RIGHT 2}"
SendKeys "^v"
SendKeys "{LEFT 2}": SendKeys "{down}"
SendKeys "^x"
SendKeys "{up}"
SendKeys "^v"
SendKeys "{RIGHT 2}"
SendKeys "^x"
SendKeys "{LEFT 2}": SendKeys "{down}"
SendKeys "^v"
SendKeys "{up}": SendKeys "{right}"
End Sub
Module 2
Sub descendre()
SendKeys "{down}"
SendKeys "^x"
SendKeys "{RIGHT 1}"
SendKeys "^v"
SendKeys "{up}": SendKeys "{left}"
SendKeys "^x"
SendKeys "{down}"
SendKeys "^v"
SendKeys "{RIGHT 1}"
SendKeys "^x"
SendKeys "{up}": SendKeys "{left}"
SendKeys "^v"
SendKeys "{down}"
SendKeys "{left}"
SendKeys "^x"
SendKeys "{RIGHT 2}"
SendKeys "^v"
SendKeys "{LEFT 2}": SendKeys "{UP}"
SendKeys "^x"
SendKeys "{down}"
SendKeys "^v"
SendKeys "{RIGHT 2}"
SendKeys "^x"
SendKeys "{LEFT 2}": SendKeys "{UP}"
SendKeys "^v"
SendKeys "{down}"
End Sub
Le reste du code ne concerne pas ce que je veux, qui est:
si la cellule active est en A, alors aller en colonne B pour lancer la macro (qui est soit "monter" ou "descendre", mais qui ne peut donc fonctionner que si je suis en colonne B)