Bonjour à tous,
J'ai deux tableaux excel dans deux feuilles séparés, avec une macro je souhaite tout d'abord filtrer dans un premier tableau (D2SN) afin de memoriser la valeur (alphanumérique) d'une cellule, qui me servira de critère pour filtrer dans mon deuxieme tableau.
La valeur que je souhaite charger et qui se trouve en A2 est alphanumérique ex :
EO000123456
Voici mon code je pense que cela vient de la manière que je qualifie l'objet range mais bon ???
Code :
' Filtrage Client
Dim ent As Range
With Sheets("Vision Siren")
'Mise en place de la variable critère
If .Range("O12") = "" Then
Set ent = .Range("O10")
ElseIf .Range("O10") = "Aucun" Then Set ent = .Range("O12")
ElseIf .Range("N12") <> "" Then Set ent = .Range("N12")
Else
Exit Sub
End If
End With
Sheets("D2SN").Select
Selection.AutoFilter Field:=7, Criteria1:=ent.Value
Dim car As Range
With Sheets("Vision Siren")
Set car = .Range("A2")
End With
Sheets("D1ST").Select
Selection.AutoFilter Field:=1, Criteria1:=car.Value
Merci par avance au Forum
J'ai deux tableaux excel dans deux feuilles séparés, avec une macro je souhaite tout d'abord filtrer dans un premier tableau (D2SN) afin de memoriser la valeur (alphanumérique) d'une cellule, qui me servira de critère pour filtrer dans mon deuxieme tableau.
La valeur que je souhaite charger et qui se trouve en A2 est alphanumérique ex :
EO000123456
Voici mon code je pense que cela vient de la manière que je qualifie l'objet range mais bon ???
Code :
' Filtrage Client
Dim ent As Range
With Sheets("Vision Siren")
'Mise en place de la variable critère
If .Range("O12") = "" Then
Set ent = .Range("O10")
ElseIf .Range("O10") = "Aucun" Then Set ent = .Range("O12")
ElseIf .Range("N12") <> "" Then Set ent = .Range("N12")
Else
Exit Sub
End If
End With
Sheets("D2SN").Select
Selection.AutoFilter Field:=7, Criteria1:=ent.Value
Dim car As Range
With Sheets("Vision Siren")
Set car = .Range("A2")
End With
Sheets("D1ST").Select
Selection.AutoFilter Field:=1, Criteria1:=car.Value
Merci par avance au Forum