bennisay
XLDnaute Occasionnel
BONJOUR LE FORUM
J aimerai que quel qu un m aide a combiner deux codes .
le premier que j ai eu deja dans ce forum ( merci le forum) . et il fonctionne tres bien
J aimerai que quel qu un m aide a combiner deux codes .
le premier que j ai eu deja dans ce forum ( merci le forum) . et il fonctionne tres bien
Code:
[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]