Problème filtre VBA

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:

---

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 :aie: je pense que je m'y prends mal :

Code:

---

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

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...)

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 !

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 :mouarf:)

Voilà pour vous :

Pièce jointe 187517

Merci pour votre aide

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:

---

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:

---

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

Citation:

---

Envoyé par 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

---

Bonjour Joe, encore une fois merci pour votre aide,

C'est bizarre parce que lorsque je l'exécute moi, rien ne remonte 8O8O ! Mais en remplacant "VRAI" par True, elle fonctionne bien ! Tu es génial Joe :merci:

Par ailleurs pourquoi les variables sont elles mal déclarées ? Y a t-il une limite au nombre de variables que l'on peut déclarer sur la même ligne :question:

Cordialement

Si tu déclares plusieurs variables sur une même ligne, seul l'opérateur "Dim" n'est pas à recopier :

Code:

---

Dim MaChaine as String, MaChaineBis as String, MonLong as Long, MaDate as Date ' etc...

---

:merci:

Bonjour,

Essaie comme ceci :

Code:

---

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 ! :aie: