Bonjour,
Je suis en train de faire un projet VBA et dans ce cadre je cherche a parametrer un variable qui me permettra de filtrer sur différentes colonnes suivant certaines conditions
Voici mon code :
Dim d As Long
With Sheets("Vision Siren")
If .Range("D13") = "Aucun" And .Range("D11") <> "Aucun" Then
Set d = 10
ElseIf .Range("D13") = "Aucun" And .Range("D11") Then Set d = 9
ElseIf .Range("D13") <> "Aucun" Then Set d = 11
Else
Exit Sub
End If
Sheets("D1ST").AutoFilter field:=d.Value, Criteria1:=c.Value
Le problème est que VBA ne comprends pas d = 10 (qui est une des valeurs que je veux faire prendre a mon field). Je sais pas si c'est ma synthaxe qui n'est pas bonne ou autre ...
Si quelqu'un peu me donner des conseilles merci par avance
Bonne journée a tous.
Je suis en train de faire un projet VBA et dans ce cadre je cherche a parametrer un variable qui me permettra de filtrer sur différentes colonnes suivant certaines conditions
Voici mon code :
Dim d As Long
With Sheets("Vision Siren")
If .Range("D13") = "Aucun" And .Range("D11") <> "Aucun" Then
Set d = 10
ElseIf .Range("D13") = "Aucun" And .Range("D11") Then Set d = 9
ElseIf .Range("D13") <> "Aucun" Then Set d = 11
Else
Exit Sub
End If
Sheets("D1ST").AutoFilter field:=d.Value, Criteria1:=c.Value
Le problème est que VBA ne comprends pas d = 10 (qui est une des valeurs que je veux faire prendre a mon field). Je sais pas si c'est ma synthaxe qui n'est pas bonne ou autre ...
Si quelqu'un peu me donner des conseilles merci par avance
Bonne journée a tous.