Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("A1"), Target) Is Nothing Then
If Target.Value = 75000 Then
Application.EnableEvents = False
Target.Offset(1, 0) = "Paris"
Application.EnableEvents = True
End If
End If
Private Sub Worksheet_Change(ByVal Target As Range)
Dim C As Range
If Not Application.Intersect(Target, Range("A1")) Is Nothing Then
Target.Offset(0, 1) = ""
Target.Offset(0, 2) = ""
Target.Offset(0, 3) = ""
If Target <> "" Then
With Sheets("Feuil2")
Set C = .Range("A1:A" & .Range("A65536").End(xlUp).Row).Find(Target.Value, LookAt:=xlWhole)
If Not C Is Nothing Then
Target.Offset(0, 1) = C.Offset(0, 1)
Target.Offset(0, 2) = C.Offset(0, 2)
Target.Offset(0, 3) = C.Offset(0, 3)
Exit Sub
End If
End With
End If
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim C As Range
If Not Application.Intersect(Target, Range("C1")) Is Nothing Then
Target.Offset(2, -1) = ""
Target.Offset(3, -1) = ""
Target.Offset(4, -1) = ""
If Target <> "" Then
With Sheets("Listing")
Set C = .Range("A2:A" & .Range("A65536").End(xlUp).Row).Find(Target.Value, LookAt:=xlWhole)
If Not C Is Nothing Then
Target.Offset(2, -1) = C.Offset(0, 1)
Target.Offset(3, -1) = C.Offset(0, 2)
Target.Offset(4, -1) = C.Offset(0, 3)
Exit Sub
End If
End With
End If
End If
End Sub
End If
End With
End If
If Target.Offset(2, -1) = "" And Target <> "" Then MsgBox "N° de CP " & Target & " non trouvé", vbInformation, "Erreur:"
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cell As Range, x As Long
If Not Application.Intersect(Target, Range("B1")) Is Nothing Then
Range("A4:C" & Range("A65536").End(xlUp).Row + 1) = ""
Range("E1") = ""
x = Range("A65536").End(xlUp).Row
If Target <> "" Then
With Sheets("Listing (2)")
For Each Cell In .Range("A2:A" & .Range("A65536").End(xlUp).Row)
If Cell = Target Then
Range("E1") = Cell.Offset(0, 1)
Range("A" & x + 1) = Cell
Range("B" & x + 1) = Cell.Offset(0, 2)
Range("C" & x + 1) = Cell.Offset(0, 3)
x = x + 1
End If
Next
End With
End If
If Target.Offset(3, -1) = "" And Target <> "" Then MsgBox "N° de CP " & Target & " non trouvé", vbInformation, "Erreur:"
End If
End Sub