Bonsoir à tous
Je n’arrive pas à découvrir l'erreur dans macro Vba
Je souhaite à filtrée et extraire les noms dans le tableau selon les critères indiquer
Voila le Code:
[Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("c28")) Is Nothing Then
On Error Resume Next
ActiveSheet.ShowAllData
On Error GoTo 0
Range("a3:g" & [a2000].End(xlUp).Row).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
Range("c27:c28"), CopyToRange:=Range("a32:g32"), Unique:=False
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Clients As Object
Dim Cel As Range
If Target.Count > 1 Then Exit Sub
If Target.Address = "$C$28" Then
Set Clients = CreateObject("Scripting.Dictionary")
For Each Cel In Range("B14:B" & Cells(Rows.Count, "B").End(xlUp).Row)
If Cel <> "" And Cel.Offset(, 3).Value = "Non Payé" Then
Clients(Cel.Value) = Cel.Value
End If
Next Cel
With Target.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:=Join(Clients.Keys, ",")
End With
End If
End Sub
Je vous remercie d'avance de l'aide que vous pourrez m'apporter!
et Voila un exemple de mon fichier
Amicalement et Cordialement