Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Address = "$B$3" Then
Application.ScreenUpdating = False
Select Case Target.Value
Case "DESP - Fabrication"
Sheets("Descriptif réparation").Visible = False
Sheets("Descriptif modification").Visible = False
Sheets("Décla Conf DESP").Visible = True
Sheets("SOM Hors DESP").Visible = False
Sheets("PV Hors DESP").Visible = False
Sheets("SOM DESP").Visible = True
Sheets("PV DESP").Visible = True
Sheets("Notice").Visible = True
Sheets("Décla Conf DESP").Visible = True
Case "DESP - Réparation"
Sheets("Descriptif réparation").Visible = True
Sheets("Descriptif modification").Visible = False
Sheets("Décla Conf DESP").Visible = False
Sheets("SOM Hors DESP").Visible = False
Sheets("PV Hors DESP").Visible = False
Sheets("SOM DESP").Visible = True
Sheets("PV DESP").Visible = True
Sheets("Notice").Visible = True
Sheets("Décla Conf DESP").Visible = True
Case "DESP - Modification"
Sheets("Descriptif réparation").Visible = False
Sheets("Descriptif modification").Visible = True
Sheets("Décla Conf DESP").Visible = False
Sheets("SOM Hors DESP").Visible = False
Sheets("PV Hors DESP").Visible = False
Sheets("SOM DESP").Visible = True
Sheets("PV DESP").Visible = True
Sheets("Notice").Visible = True
Sheets("Décla Conf DESP").Visible = True
Case "DESP - Composant"
Sheets("Descriptif réparation").Visible = False
Sheets("Descriptif modification").Visible = False
Sheets("Décla Conf DESP").Visible = True
Sheets("SOM Hors DESP").Visible = False
Sheets("PV Hors DESP").Visible = False
Sheets("SOM DESP").Visible = True
Sheets("PV DESP").Visible = True
Sheets("Notice").Visible = True
Sheets("Décla Conf DESP").Visible = True
Case "Hors DESP - Fabrication"
Sheets("Descriptif réparation").Visible = False
Sheets("Descriptif modification").Visible = False
Sheets("Décla Conf DESP").Visible = True
Sheets("SOM DESP").Visible = False
Sheets("PV DESP").Visible = False
Sheets("SOM Hors DESP").Visible = True
Sheets("PV Hors DESP").Visible = True
Sheets("Analyse").Visible = False
Sheets("Notice").Visible = False
Sheets("Décla Conf DESP").Visible = False
Case "Hors DESP - Réparation"
Sheets("Descriptif réparation").Visible = True
Sheets("Descriptif modification").Visible = False
Sheets("Décla Conf DESP").Visible = False
Sheets("SOM DESP").Visible = False
Sheets("PV DESP").Visible = False
Sheets("SOM Hors DESP").Visible = True
Sheets("PV Hors DESP").Visible = True
Case "Hors DESP - Modification"
Sheets("Descriptif réparation").Visible = False
Sheets("Descriptif modification").Visible = True
Sheets("Décla Conf DESP").Visible = False
Sheets("SOM DESP").Visible = False
Sheets("PV DESP").Visible = False
Sheets("SOM Hors DESP").Visible = True
Sheets("PV Hors DESP").Visible = True
End Select
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("E20:E24")) Is Nothing Then
Range("F20") = Sheets("Adresse").Range("E" & Target.Row)
Else
If Not Intersect(Target, [E3]) Is Nothing And Target.Count = 1 Then Exit Sub
val2 = [E3].Value
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("B3")) Is Nothing Then
If Range("B3") = "Hors DESP - Fabrication" Then
Sheets("SOM Hors DESP").Activate
Sheets("SOM Hors DESP").Rows("20:21").Delete
Sheets("SOM Hors DESP").Range("B20") = "'=>"
Sheets("SOM Hors DESP").Range("B20").HorizontalAlignment = xlRight
End If
If Range("B3") = "DESP - Fabrication" Then
Sheets("SOM DESP").Activate
Sheets("SOM DESP").Rows("20:21").Delete
Sheets("SOM DESP").Range("B20") = "'=>"
Sheets("SOM DESP").Range("B20").HorizontalAlignment = xlRight
End If
End If
Sheets("Questionnaire").Activate
End Sub