COMBINER DEUX CODES VBA

[bennisay]

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

[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]

 

[Paf]

Bonjour,

Pas sûr d'avoir tout saisi.
A tester:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "H4" Then Range("C7").Select
End Sub

A+

 

[bennisay]

BONJOUR Paf
je met en piece joint mon fichier pour eclairssir ma demande