XL 2016 déclenchement sur touche sans modification cellule

[chifounou]

Bonsoir,

J'utilise ce code qui s'enclenche suite à 2 conditions : modification de la cellule puis validation par la touche ENTREE notamment

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Target.Worksheet.Range("O15")) Is Nothing Then
If Not IsEmpty(Target) And IsNumeric(Target) Then
Target.Offset(3, 0).Select
End If
End If

j'aimerais savoir si je peux avoir un déclenchement alternatif subsidiaire (en plus) se déclenchant toujours sur la touche ENTREE mais sans avoir modifié la cellule avant... (actuellement ça ne réagit pas)

alors celà déclencherait cette variante : Target.Offset(5, 0).Select

Merci d'avance

 

[bof]

Bonjour,
Regarde du coté de Onkey...
A=

 

[Lone-wolf]

Re chifounou , bof

Je n'ai pas très bien saisi mais, modifie déjà
If Not Intersect(Target, Target.Worksheet.Range("O15")) Is Nothing Then
Target.Offset(3, 0).Select

par

If Not Intersect(Target, Range("O15")) Is Nothing Then
oubien If [O15] <> "" And IsNumeric([O15]) Then

Target.Offset(3, 0).Activate ou Application.GoTo Target.Offset(3, 0)

 

[chifounou]

Merci Lone-Wolf, je m'exécute ...comme un petit singe, puisque c'est mon signe chinojs

Et sinon je vais regarder du côté de chez Swa... euh Onkey merci bof

bonne nuit !