Valentin_Loupe
XLDnaute Occasionnel
Bonjour à tous,
Je voudrais tout d'abord connaître la différence entre Change et Selection Change.
Ensuite je voudrais savoir comment faire lorsque l'on veut insérer plusieurs conditions différentes dans une procédure Change : je m'explique : j'ai :
Sauf que désormais je voudrais ajouter :
Mais aussi :
Et enfin :
Merci de votre aide précieuse !
Valentin
Je voudrais tout d'abord connaître la différence entre Change et Selection Change.
Ensuite je voudrais savoir comment faire lorsque l'on veut insérer plusieurs conditions différentes dans une procédure Change : je m'explique : j'ai :
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Name = Range("C3").Value
If Range("C110") = "Local" Then
Range("C111").Validation.Delete
Range("C111").Validation.Add Type:=xlValidateList, Formula1:="=TextesLocal"
ElseIf Range("C110") = "Sous Sol" Then
Range("C111").Validation.Delete
Range("C111").Validation.Add Type:=xlValidateList, Formula1:="=TextesSousSol"
ElseIf Range("C110") = "Vide Sanitaire" Then
Range("C111").Validation.Delete
Range("C111").Validation.Add Type:=xlValidateList, Formula1:="=TextesVideSanitaire"
ElseIf Range("C110") = "Combles" Then
Range("C111").Validation.Delete
Range("C111").Validation.Add Type:=xlValidateList, Formula1:="=TextesCombles"
ElseIf Range("C110") = "Circulation intérieure, sans paroi extérieure" Then
Range("C111").Validation.Delete
Range("C111").Validation.Add Type:=xlValidateList, Formula1:="=TextesCirculationIntérieure"
End If
End Sub
Sauf que désormais je voudrais ajouter :
Code:
If Target.Address = "$C$141" Then
[$C$142] = "Précisez..."
End If
If Target.Address = "$C$141" Then
[$C$173] = "Précisez..."
End If
If Target.Address = "$C$141" Then
[$C$202] = "Précisez..."
End If
Mais aussi :
Code:
If Range("C172") = "Local" Then
Range("C173").Validation.Delete
Range("C173").Validation.Add Type:=xlValidateList, Formula1:="=TextesLocal"
ElseIf Range("C172") = "Sous Sol" Then
Range("C173").Validation.Delete
Range("C173").Validation.Add Type:=xlValidateList, Formula1:="=TextesSousSol"
ElseIf Range("C172") = "Vide Sanitaire" Then
Range("C173").Validation.Delete
Range("C173").Validation.Add Type:=xlValidateList, Formula1:="=TextesVideSanitaire"
ElseIf Range("C172") = "Combles" Then
Range("C173").Validation.Delete
Range("C173").Validation.Add Type:=xlValidateList, Formula1:="=TextesCombles"
ElseIf Range("C172") = "Circulation intérieure, sans paroi extérieure" Then
Range("C173").Validation.Delete
Range("C173").Validation.Add Type:=xlValidateList, Formula1:="=TextesCirculationIntérieure"
End If
End Sub
Et enfin :
Code:
If Range("C201") = "Local" Then
Range("C202").Validation.Delete
Range("C202").Validation.Add Type:=xlValidateList, Formula1:="=TextesLocal"
ElseIf Range("C201") = "Sous Sol" Then
Range("C202").Validation.Delete
Range("C202").Validation.Add Type:=xlValidateList, Formula1:="=TextesSousSol"
ElseIf Range("C201") = "Vide Sanitaire" Then
Range("C202").Validation.Delete
Range("C202").Validation.Add Type:=xlValidateList, Formula1:="=TextesVideSanitaire"
ElseIf Range("C201") = "Combles" Then
Range("C202").Validation.Delete
Range("C202").Validation.Add Type:=xlValidateList, Formula1:="=TextesCombles"
ElseIf Range("C201") = "Circulation intérieure, sans paroi extérieure" Then
Range("C202").Validation.Delete
Range("C202").Validation.Add Type:=xlValidateList, Formula1:="=TextesCirculationIntérieure"
End If
End Sub
Merci de votre aide précieuse !
Valentin