Option Explicit
Dim LDouch As Long, CDouch As Long
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column <= 2 Then
LDouch = Target.Row: CDouch = Target.Column
CDouch = 3 - CDouch: If CDouch = 2 Then LDouch = LDouch - 1
MsgBox "Prochaine lecture: " & Target.Address, vbInformation, "Douchette"
Me.[E10].Select: End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub 'Large
If Target.Address = "$E$10" And Target(1, 1) <> "" Then
Application.EnableEvents = False
CDouch = CDouch Mod 2 + 1: If CDouch = 1 Then LDouch = LDouch + 1
Cells(LDouch, CDouch) = Target(1, 1).Value
Target(1, 1).Value = Empty
Application.EnableEvents = True: End If
End Sub