Listes Multiple

Listes en cascade avec noms de champ et Indirect()

Cliquez pour agrandir...

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Column = 6 And Target.Row > 10 Then

Target.Validation.Delete
If Not IsError(Application.Match(Target, [Catégories], 0)) Then
Target.Validation.Add xlValidateList, Formula1:="=" & _
"offset(Choix,1,match(F28,Catégories,0)-1,countA(offset(Choix,,match(F28,Catégories,0)-1))-1)"
SendKeys "%{down}"
Else
Target.Validation.Add xlValidateList, Formula1:="=Catégories"
End If
End If
End Sub

Cliquez pour agrandir...

Private Sub Worksheet_Change(ByVal Target As Range)

Cliquez pour agrandir...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Column = 9 And Target.Row > 9 Then
If Target = "P" Then Target = "" Else Target = "P"
Application.EnableEvents = False
ActiveCell.Offset(1, -8).Select
Application.EnableEvents = True 'surtout ne pas effacer cette ligne !!!!
End If

' Avertissement si manque numèro du chèque.
If Range("AH9") = 1 Then
MsgBox "Il manque le numéro du chèque....", vbInformation, "Message d'avertissement."
Target = ""
End If

End Sub

Cliquez pour agrandir...