Discussion :

[aziz1015]

Bonjour,

Je n'arrive pas à faire des filtres automatiques en VBA sur une colonne qui contient "VRAI" ou "FAUX" ! Est ce normal ?
Il est bien marqué "est égal à VRAI" mais rien ne s'affiche ! Sauriez vous pourquoi ? Je procède comme suit pour faire le filtre !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Set WsSource = ThisWorkbook.Worksheets("total réseau hors CR " & Year(Fin))
Set WsCible = ThisWorkbook.Sheets("Données")
 
Nbl = WsSource.Range("A1").CurrentRegion.Rows.Count
 
Set myRange = WsSource.Range("A2:A" & Nbl)
 
 With WsSource
        Set d = Nothing
        Set d = .Rows(1).Find("Date_1ereTarification", , xlValues, xlWhole)
        If Not d Is Nothing Then .Range("A1").AutoFilter d.Column, DateMD, xlAnd, DateMF
 
        Set e = Nothing
        Set e = .Rows(1).Find("IsKaliviaSante", , xlValues, xlWhole)
        If Not e Is Nothing Then .Range("A1").AutoFilter e.Column, "VRAI"
 
'        WsCible.Range("D9").Value = Application.WorksheetFunction.Subtotal(3, myRange)

Aussi, j'ai testé une solution, c'est à dire compter le nombre de lignes pour lesquelles les cellules correspondent à ce que je veux mais elle ne fonctionne pas je pense que je m'y prends mal :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
'Deb et Fin correspondent à des dates
 
With WsSource
    For i = 1 To Nbl
        If (.Cells(i, d.Column) > Deb And .Cells(i, d.Column) < Fin) And .Cells(i, e.Column) = "VRAI" Then Cpt = Cpt + 1
    Next i
End With

Merci d'avance pour votre aide

[joe.levrai]

Bonjour,

au premier filtre (sur les dates), tu remontes bien des lignes ?


concernant te second code, c'est normal que VRAI ne soit pas encadré d'apostrophes ?
tu as vérifié que ton test sur les dates ne pose pas de problème ? (inversion mois et jours par exemple ... format de cellule etc...)

[aziz1015]

Merci Joe pour ton intérêt,

Oui je remonte bien les lignes parce que lorsque je ne fais pas de filtre en prenant en compte la colonne avec les cellules VRAI ou FAUX, j'ai toutes les lignes qui apparaissent.

Pour le deuxième, Même avec des parenthèses, lorsque j'affiche le compteur après, le msgbox est vide !

[joe.levrai]

en l'état je ne vois pas ce qui bloque

un petit fichier exemple reproduisant le comportement indésirable ?
sinon je sèche et passe la main aux plus doués que moi (c'est à dire presque tout le monde )

[aziz1015]

Voilà pour vous :

ClasseurTEST.xlsm

Merci pour votre aide

[joe.levrai]

Ta procédure lignesC qui filtre sous deux critères (1ere tarification et IsKaliviaSante) fonctionne très bien, je remonte les lignes contenant VRAI

Ta procédure lignes (la boucle pour compter les vrai) ne peux pas fonctionner pour 3 raisons :

- ta variable Nbl n'est pas calculée
- tu compares des dates (valeur de tes cellules) avec des String (tes variables Deb et Fin) ==> il faut convertir le String en Date (en utilisant CDate(Deb) par exemple)
- concernant les cellules contenant "VRAI", tu as deux solutions différentes (là tu as mélangé les deux) :
* si tu ne renseigne pas la propriété voulue de ta cellule, par défaut VBA prendra .Value ==>tu dois utiliser l'opérateur Booléen TRUE pour comparer
* si tu veux utiliser "VRAI", il faut renseigner la propriété .Text de ta cellule

ce qui donne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Sub lignes()
Dim Cpt
Dim d As Range
Dim e As Range
Dim i As Long
Dim WsSource As Worksheet
Dim Nbl As Long
 
Call DateRec
Set WsSource = ThisWorkbook.Worksheets("Feuil1")
 
With WsSource
    Nbl = .Range("A1").CurrentRegion.Rows.Count
    Set d = Nothing: Set d = .Rows(1).Find("Date_1ereTarification", , xlValues, xlWhole)
    Set e = Nothing: Set e = .Rows(1).Find("IsKaliviaSante", , xlValues, xlWhole)
 
    For i = 2 To Nbl
        If .Cells(i, d.Column) > CDate(Deb) _
        And .Cells(i, d.Column) < CDate(Fin) _
        And .Cells(i, e.Column).Text = "VRAI" Then   ' ou  .Cells(i, e.Column) = True
            Cpt = Cpt + 1
        End If
    Next i
End With
 
MsgBox Cpt
 
End Sub

Ps : tes variables déclarées en début de module sont mal déclarées :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim Deb, Fin, Deb_M, Fin_M As Date
Dim DateD, DateF, DateMD, DateMF As String

seuls Fin_M et DateMF ont un type .. les autres sont considérés comme des Variant

[Zelnist]

Bonjour,

Essaie comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Not e Is Nothing Then .Range("A1").AutoFilter e.Column, True

Edit : Arf je n'avais pas vu que la solution a déjà été donnée plus haut !