[Private Sub Worksheet_SelectionChange(ByVal target As Range)
If Not Intersect([H7:H35], target) Is Nothing Then
Application.OnKey Key:="~", procedure:="retour_colonneC"
End If[code]
le deusieme que j ai ps reussis
la meme procedure que le premier code mais dans ce cas la . Je veux apres saisir une valeur dans la cellule "H4" je click sur "entrer" je veux que le curseur se met dans la cellule "C7" ( celection)
j ai du meme dans un module ce code
[code]Sub retour_colonneC()
ActiveCell.Offset(1, -5).Select
Application.OnKey Key:="~"
End Sub[code]