Fonction split
Bonjour,
Je viens de découvrir la fonction SPLIT...
Afin de créer des filtres par le biais de VBA
J'ai créer un programme terminant par :
If Cells(8, 9).Value <> FAUX Then
A = "MANO"
Filtre = True
End If
If Cells(9, 9).Value <> FAUX Then
B = "RD"
Filtre = True
End If
Sheets("CR").Select
If Filtre = True Then
Critere = Split(A & "," & B, ",")
ActiveSheet.Range("$A$1:$C$4222").AutoFilter Field:=3, Criteria1:=Critere, Operator:=xlFilterValues
Le programme fonctionne, mais je voudrais juste rallonger la liste des critères.
J'aimerais rajouter des lettres de (A jusqu'à H) dans ma fonction SPLIT, j'ai beau tout essayer mais rien ne marche, quelqu'un pourrait m'aider ?
Merci d'avance :)
Je viens de découvrir la fonction SPLIT...
Afin de créer des filtres par le biais de VBA
J'ai créer un programme terminant par :
If Cells(8, 9).Value <> FAUX Then
A = "MANO"
Filtre = True
End If
If Cells(9, 9).Value <> FAUX Then
B = "RD"
Filtre = True
End If
Sheets("CR").Select
If Filtre = True Then
Critere = Split(A & "," & B, ",")
ActiveSheet.Range("$A$1:$C$4222").AutoFilter Field:=3, Criteria1:=Critere, Operator:=xlFilterValues
Le programme fonctionne, mais je voudrais juste rallonger la liste des critères.
J'aimerais rajouter des lettres de (A jusqu'à H) dans ma fonction SPLIT, j'ai beau tout essayer mais rien ne marche, quelqu'un pourrait m'aider ?
Merci d'avance :)
2 réponses
-
Bonjour,
Le programme fonctionne,
Faut voir.
Pige pas ce que vous voulez:
rajouter des lettres de (A jusqu'à H) dans ma fonction SPLIT, -
Je n'ai pas mis l'intégralité du programme, juste la fin…
Je voudrais pouvoir écrire ceci : Critere = Split(A & "," & B, "," & C, ","& D, ","& E, ","& F, ","& G, ","& H, ","). Mais lorsque je l'écrit de cette manière cela ne fonctionne pas...
