[VBA-E] Comptage de cellules contenant des dates

Alors utilise ça (j'avais oublié ok = ok and... :oops: ) mais si tu avais essayé de comprendre, tu aurais corrigé :langue: et je n'aurais mouru idiot...

Code:

---

1 2 3 4

Ok = InStr("win", Sheets("sheet1").Range("C" & n).Value) > 0 'trouvé ! Ok = ok and Sheets("sheet1").Range("B" & n).Value) > 0 'trouvé aussi... Ok = ok and Sheets("sheet1").Range("B" & n).Value) < 6 'trouvé aussi... If Ok Then Compteur = Compteur + 1

---

A+

J'ai du mal à le croire mais ça marche !!!!!!!!!!

En utilisant ce code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Sub compteligne()   Dim Compteur As Integer Dim ok As Boolean Dim n As Integer   For n = 2 To 50     ok = InStr("win", Sheets("sheet1").Range("C" & n).Value) > 0 ok = ok And InStr(Sheets("sheet1").Range("B" & n).Value, 1) <> 0   If ok Then Compteur = Compteur + 1   Next n   MsgBox (Compteur)   End Sub

---

Voila maintenant c'est une bonne chose de faite, normaleemnt si ça marche avec ça je vais essayer avec les dates et ça ira j'en suis sûr !!!

Merci à tous...

Citation:

---

Envoyé par ouskel'n'or

Alors utilise ça (j'avais oublié ok = ok and... :oops: ) mais si tu avais essayé de comprendre, tu aurais corrigé :langue: et je n'aurais mouru idiot...

Code:

---

1 2 3 4

Ok = InStr("win", Sheets("sheet1").Range("C" & n).Value) > 0 'trouvé ! Ok = ok and Sheets("sheet1").Range("B" & n).Value) > 0 'trouvé aussi... Ok = ok and Sheets("sheet1").Range("B" & n).Value) < 6 'trouvé aussi... If Ok Then Compteur = Compteur + 1

---

A+

---

Bha la preuve que j'ai essayé de comprendre puisque j'ai réussi à le faire marcher ce code !! :yaisse2:

Et si tu pense que tu va mourrir idiot moi je suis mort depuis longtemps déjà ... :mouarf:

Merci @++

Pour les dates, tu peux t'inspirer de cette réponse ;)

Merci mille fois,

je vias faire de mon mieux pour faire fonctionner cette macro avec des dates, déjà elle fonctionne avec le reste ...

Bon Week End !:king:

Que faire quand une macro fait l'inverse de ce qu'on cherche ??

C'est assez bizarre mais c'est ce qui m'arrive, en adaptant ma macro qui fonctionne bien maintenant.. (Merci encore ! :king: )

Ma variable test les lignes 2 à 50, au lieu de me donner le nombre de ligne qui correspond au nombre de ligne VRAI, ça me donne le nombre de ligne vide !

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 compte_avecdate()   Dim Compteur As Integer Dim ok As Boolean Dim n As Integer   For n = 2 To 50   ok = InStr("win", Sheets("sheet1").Range("C" & n).Value) > 0   'ok = ok And IsDate(Range("D" & n).Value)   If ok Then ok = ok And IsDate(Sheets("Sheet1").Range("D" & n).Value) >= IsDate(4 / 1 / 2007) ok = ok And IsDate(Sheets("Sheet1").Range("D" & n).Value) <= IsDate(6 / 31 / 2007) End If     If ok Then Compteur = Compteur + 1     Next n   Sheets("sheet1").Range("E21").Value = Compteur       End Sub

---

J'ai essayé aussi avec la fonction Cdate mais avec elle j'obtient toujours 0 !!

Merci et bonne aprem !

@++

Arnaud

Ben oui, tu dis

Citation:

---

If ok Then
ok = ok And IsDate(Sheets("Sheet1").Range("D" & n).Value) >= IsDate(4 / 1 / 2007)
ok = ok And IsDate(Sheets("Sheet1").Range("D" & n).Value) <= IsDate(6 / 31 / 2007)
End If

---

IsDate(Sheets("Sheet1").Range("D" & n).Value) = True ou false soit -1 ou 0
Puis
True ou false = IsDate(6 / 31 / 2007)
Or IsDate(6 / 31 / 2007) = False puisque isdate s'applique à 6 divisé par 31 divisé par 2007
cépas'ketuve !
Bref, tu ne peux pas faire ça. Tu dois d'abord vérifier si c'est une date, puis vérifier si cette date est dans ta fourchette
Tu sauras faire tout seul ?

Code:

---

1 2	ok = ok And IsDate(Sheets("Sheet1").Range("D" & n).Value) if ok then ok = ok and cdate(Range("D" & n).Value)) >= cdate("6/31/2007")

---

etc

Andouille ! Le 31 juin tu l'as vu où ? En juillet ?
Et moi qui ne comprends pas pourquoi VBA ne reconnaît pas cette date :evilred:
Ça fait une demi heure que je teste :evil:

LOL,

Non je ne vois pas juin en juillet mais je bosse en Anglais, mon PC est anglais, mes documents sont anglais et mon VBA l'est aussi donc forcement j'ai l'habitude d'écrire mm/jj/aaaa et non pas jj/mm/aaaa...

Enfin ça n'a encore rapport ce que je suis en train d'écrire puisque je viens juste de me rendre compte alors que j'écrivais qu'il y a effectivement 30 jours en juin ... maintenant que j'ai vérifié sur mes phalanges ! :oops:

Merci @+

Et ça te fait rire ? J'ai vérifié toutes mes références ! :bug:
Bon si ton pb est réglé, un petit clic sur Résolu, en bas de la fenêtre, me soulagera d'un grand poid !
A+

He oui evidemment que dès que j'ai compris qu'il y avais 30 jours en Juin j'ai fait marché cette macro !!!! :yaisse2:

Au cas où et quelques secondes avant de cliquer sur Résolu, voici mon Code si quelqu'un un jours souhaite une macro pour compter des lignes conditionellement ...

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 29 30 31

Sub compte_avecdate()   Dim Compteur As Integer Dim ok, ok1 As Boolean Dim n As Integer   For n = 2 To 50     ok = IsDate(Sheets("Sheet1").Range("D" & n).Value) <> 0   If ok Then   ok = ok And CDate(Sheets("Sheet1").Range("D" & n).Value) >= CDate("04/01/2007") ok = ok And CDate(Sheets("Sheet1").Range("D" & n).Value) <= CDate("06/30/2007")   End If   ok = ok And InStr("win", Sheets("sheet1").Range("C" & n).Value) <> 0     If ok Then Compteur = Compteur + 1       Next n   MsgBox ("The number of Funnels with the status Win in Q2 is : ") & Compteur     End Sub

---

Un très très très grand merci Ouskeln'or et tous ceux qui ont contribué à cette résolution, encore une fois désolé pour cette imbécilité de date qui a pris beaucoup de temps pour rien ...

Comme quoi toujours commencer par regarder les bases avant de passer au détail !!

@+

Tu peux supprimer ton ok1 dans tes déclaration si c'est là toute ta macro ;)