Exit Sub
Fin:
MsgBox " Locataire inexistant."
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("B1:B100")) Is Nothing And Target <> "" Then ' Adapter 100 sur la longueur de la liste Recap
Sheets(Mid(Target, 3, 1)).Activate ' extraction N° feuilles, 1 car après le point.
ActiveSheet.Range("$B$4:$G$100").AutoFilter Field:=1, Criteria1:=Target ' Adapter 100 sur la longueur de la liste des apparts
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("B1:B100")) Is Nothing And Target <> "" Then ' Adapter 100 sur la longueur de la liste Recap
Longueur = Len(Target)
If Longueur = 6 Then
Sheets(Mid(Target, 3, 1)).Activate ' extraction N° feuilles, 1 car après le point.
Else
Sheets(Mid(Target, 3, 2)).Activate ' extraction N° feuilles, 2 car après le point.
End If
ActiveSheet.Range("$B$4:$G$100").AutoFilter Field:=1, Criteria1:=Target ' Adapter 100 sur la longueur de la liste des apparts
End If
End Sub