Filtre VB

Re : Filtre VB

Svp!!!
il n'y a personne por m'aider 🙁

Re : Filtre VB

Bonjour,
Pour le filtre, tu peux laisser le filtre en place, et ensuite, tu fais :


Et pour défiltrer, tu fais :


Au lieu de supprimer le filtre

Re : Filtre VB

Merci bcp pour ta réponse.

Mais ceci ne change rien..
Il arrive à sélectionner la ligne 4, a poser le filtre mais il n'arrive pas à l'appliquer (pourtant mes variables "conditions" sont bien renseignées).

Merci encore pour votre aide.
Chafcha

Re : Filtre VB

Est ce quelqu'un connaîtrait un moyen de forcer un filtre à s'exécuter?
ou une condition qui permet de vérifier si le filtre s'est effectué?.
genre on compte le nombre de ligne avant et apres filtre et on vérifie que ça a changé?

Encore merci pour les personnes qui me consacreront un peu de leur temps et de leur connaissance.

Re : Filtre VB

j'ai vraiment besoin de votre aide.
Alors svp si quelqu'un a une idée je suis preneuse!
Je vous remercie encore infiniment.

Re : Filtre VB

Bonjour,

Peux tu joindre un fichier ?
As tu des cellules vides dans ton tableau à trier ?


Bonne journée,

Ninbihan

Re : Filtre VB

Salut,

non mes cellules ne sont pas vides.
en fait comme je disais le filtre marche une fois sur deux..
qd ça marche pas il arrive à mettre le filtre mais il ne l'applique pas. càd il ne prend pas mes conditions de filtre.
j'ai pourtant vérifié et mes arguments "conditions" sont bien renseignés..
je me demandais alors s'il n'est pas possible de faire une boucle sur le filtre tant qu'il réduit pas ma base?
Merci encore

Re : Filtre VB

Re,

Alors vraissemblalment, si la macro active le mode filtre mais ne filtre pas c'est qu'il y'a un pb avec condition(1) et condition (2). Peux tu nous joindre un fichier épuré permettant de reproduire ton souci ?

Bon aprés midi,

Ninbihan

Re : Filtre VB

voilà mon fichier!
et encore merci pour ton aide.

Sub fonction()


Dim Condition As Integer
Dim cond As Long
Dim conditions()

Dim recupconditions As Range
Dim j
Dim fleche As String
Dim recup



Condition = MsgBox("Avez vous une condition supplÈmentaire ‡ filtrer", vbYesNo, "contraintes")
j = 0
While Condition = vbYes
j = j + 1
ReDim Preserve conditions(1 To 3, 1 To j)
Set recupconditions = Application.InputBox(Title:="SÈlectionner la cellule de la condition", prompt:="condition", Type:=8)
fleche = InStr(recupconditions.Value, "->")
conditions(1, j) = -Left$(recupconditions.Value, fleche)
conditions(2, j) = 1 * Right(recupconditions.Value, fleche + 2)
conditions(3, j) = recupconditions.Column
Condition = MsgBox("Avez vous une condition supplÈmentaire ‡ filtrer", vbYesNo, "contraintes")
Wend

cond = j

If cond <> 0 Then
ActiveWorkbook.Worksheets("feui").Rows("4:4").Select
For i = 1 To cond
ActiveWorkbook.Worksheets("feui").Activate
Selection.AutoFilter Field:=CInt(conditions(3, i) - 5), Criteria1:="<=" & conditions(2, i), Operator:=xlAnd, _
Criteria2:=">=" & conditions(1, i)
End If

End Sub

Re : Filtre VB

Bonsoir Chafcha,

Peux tu joindre le fichier ou une partie de celui ci pour simuler ton souci , pour l'heure je ne vois que le code de ta macro ?
Si je comprend bien tu empiles au maxi trois conditions et de temps en temps le filtre ne s'applique pas bien que paramétré, c'est cela ? Est ce que le fait d'afficher le critére et de valider résoud le pb ? si c'est cela c'est un pb de variable...

Bonne soirée,


Ninbihan