XL 2016 déclenchement sur touche sans modification cellule

chifounou

XLDnaute Occasionnel
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
 

Lone-wolf

XLDnaute Barbatruc
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)
 
Dernière édition:

Discussions similaires

Statistiques des forums

Discussions
312 947
Messages
2 093 840
Membres
105 851
dernier inscrit
aviato