Private Sub Worksheet_Change(ByVal Target As Range)
'
Dim oZoneSaisie As Range
Dim Isect As Range
Static IsOn As Boolean
'
If IsOn Then
IsOn = False
Exit Sub
End If
Set oZoneSaisie = Union(Range('Saisie1'), Range('Saisie2'), Range('Saisie3'))
Set Isect = Application.Intersect(Target, oZoneSaisie)
If Isect Is Nothing Then Exit Sub
With Target
If .Count > 1 Then Exit Sub
If .Value = '' Then Exit Sub
Range('A1').Value = .Value
With .Validation
.Modify Formula1:='=ListeNom'
End With
End With
SendKeys '%{DOWN}', False
IsOn = True
End Sub
' *******************
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'
Dim oZoneSaisie As Range
Dim Isect As Range
'
Set oZoneSaisie = Union(Range('Saisie1'), Range('Saisie2'), Range('Saisie3'))
Set Isect = Application.Intersect(Target, oZoneSaisie)
If Isect Is Nothing Then Exit Sub
With Target
If .Count > 1 Then Exit Sub
With .Validation
.Modify Formula1:='=ListeAlpha'
End With
End With
SendKeys '%{DOWN}', False
End Sub