Re : Passer "à la ligne" par macro
Bonjour Catrice, le forum,
Merci beaucoup pour ta solution, c'est vrai que j'avais complètement zappé le "open" dans le texte.. on doit toucher au but je pense mais... il doit y avoir un souci car la touche Entrée ne provoque aucune redirection, qqsoit la feuille
Voici un petit récapitulatif qui j'espère t'aidera à voir où ça peut clocher :
--------------------------------------------------
Voici donc ce que j'ai tapé dans "ThisWorkbook" :
Private Sub Workbook_Open()
Entree ActiveSheet
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Entree Sh
End Sub
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
Sortie Sh
End Sub
Sub Entree(Arg1)
Select Case Arg1.Name
Case "Feuil3"
Application.OnKey "{RETURN}", "Redirige1"
Case "Feuil12"
Application.OnKey "{RETURN}", "Redirige1"
Case "Feuil5"
Application.OnKey "{RETURN}", "Redirige2"
End Select
End Sub
Sub Sortie(Arg2)
'Toutes les feuilles où aucune macro Redirige ne s'applique
Select Case Arg2.Name
Case "Feuil1"
Application.OnKey "{RETURN}"
Case "Feuil2"
Application.OnKey "{RETURN}"
Case "Feuil4"
Application.OnKey "{RETURN}"
Case "Feuil6"
Application.OnKey "{RETURN}"
Case "Feuil7"
Application.OnKey "{RETURN}"
Case "Feuil8"
Application.OnKey "{RETURN}"
Case "Feuil9"
Application.OnKey "{RETURN}"
Case "Feuil10"
Application.OnKey "{RETURN}"
Case "Feuil11"
Application.OnKey "{RETURN}"
End Select
End Sub
------------------------------------------------------
Dans le module 3 figurent les deux Sub Redirige1 et 2 :
Sub Redirige1()
Select Case Selection.Column
Case 13
Cells(ActiveCell.Row + 1, 2).Select
Case 16
Cells(ActiveCell.Row, 63).Select
Case 17
Cells(ActiveCell.Row, 76).Select
Case 18
Cells(ActiveCell.Row, 99).Select
Case 19
Cells(ActiveCell.Row, 136).Select
Case 20
Cells(ActiveCell.Row, 165).Select
End Select
ActiveCell.Offset(0, 1).Select
End Sub
Sub Redirige2()
Select Case Selection.Column
Case 2
Cells(ActiveCell.Row, 18).Select
Case 3
Cells(ActiveCell.Row, 28).Select
Case 4
Cells(ActiveCell.Row, 38).Select
Case 5
Cells(ActiveCell.Row, 48).Select
Case 6
Cells(ActiveCell.Row, 58).Select
End Select
ActiveCell.Offset(0, 1).Select
End Sub
--------------------------------------------
Il doit y avoir un noeud qqpart mais je vois pas... si tu peux jeter un coup d'oeil.. merci d'avance !!!
Bonne fin de journée !!