décompte de lignes

Bonjour,

J'essaie de compter le nombre de lignes entre date +1 et date - 30. Pourriez-vous m'aider SVP

Merci

Code:

---

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

Sub compte_NotInstalled() Dim P, NbLigneDecompte As Long Dim plage, plage2 As Range Dim NP As Integer   NbLigneDecompte = Sheets("Decompte").Cells(65536, 1).End(xlUp).Row   Set plage = Range("E4:E" & Range("A4").End(xlDown).Row) For P = plage.Cells.Count To 1 Step -1 If (plage.Cells(P).Value < Date + 1) And (plage.Cells(P).Value > Date - 30) Then plage.Cells(P).Count = NP   End If Next P   Sheets("Decompte").Cells(NbLigneDecompte + 1, 6) = NP End Sub

---

Bonjour,

Pour ajouter 1 jour a une date utilises plutôt l'instruction DateAdd (F1 pour l'aide)

Code:

---

DateAdd("d", 1, Now)

---

Bonjour

Pour éviter les itérations, tu peux utiliser Evaluate qui te permet d'évaluer une chaine de caractères. Il "suffit" alors de recomposer dans celle-ci la formule (en anglais) qui te donnerait la solution en Excel.

Pour test sur la plage A1:A10, cela donnerait

Code:

---

evaluate("SUMPRODUCT((A1:A10<=TODAY()+1)*(A1:A10>=TODAY()-30))")

---

Salut Neptune64 et le forum
Tu déclares NP comme integer, alors qu'il a trait à un nombre de lignes ?

Code:

---

Set plage = Range("E4:E" & Range("A4").End(xlDown).Row)

---

Tu utilises xlDown : la plage s'arrête donc à la première ligne vide en A, en partant de A4 (ou à la première non vide si A4 est vide)

Code:

---

plage.Cells(P).Count = NP

---

NP = nombre de cellules de la cellule P de la plage => NP=1

Code:

---

Range(Plage.cells(1),Page.Cells(P)).Count=NP

---

Serais peut-être plus juste, mais j'ai pas testé. De plus, si tu as une limite haute et une limite basse, il me semble que pour savoir le nombre de cellules (même si les dates sont triées), il faut calculer les deux limites (si une est connue, pourquoi l'introduire dans le test ?).

Tu demandes de l'aide, mais tu ne dis pas réellement quel est ton problème. Évidemment, on peut faire la macro de A à Z avec les données, mais toutes les données, pas seulement ta macro (surtout si elle ne fonctionne pas) et sans idée de l'organisation de tes données.

Tout ce qui est évident (et donc non précisé) est source de problèmes : ce que pense quelqu'un qui dépanne les macros et quelqu'un qui fait une macro qui plante est forcément différent, sinon il n'y aurait pas de problème!
A+

Bonjour à tous et merci pour vos réponse

Je vais utiliser cette solution qui fonctionne très bien

Code:

---

1 2 3

Sub evaluer_Date() Range("F395") = Evaluate("SUMPRODUCT((E377:E391<=TODAY()+1)*(E377:E391>=TODAY()-30))") End Sub

---

Mais j'aurais encore une question, le code suivant me donne toujours une valeur à 0 ? cette formule est possible ou pas ?

Code:

---

1 2 3

Sub evaluer_installed() Range("F395") = Evaluate("SUMPRODUCT(K377:K391 = ""Not installed"")") End Sub

---

Merci :-))

Citation:

---

Envoyé par Neptune64

...
Mais j'aurais encore une question, le code suivant me donne toujours une valeur à 0 ? cette formule est possible ou pas ?

Code:

---

1 2 3

Sub evaluer_installed() Range("F395") = Evaluate("SUMPRODUCT(K377:K391 = ""Not installed"")") End Sub

---

...

---

SUMPRODUCT, comme son nom l'indique, réalise la somme des produits. Il faut donc qu'il y ait au moins un produit entre les parenthèses. Or, chez toi, il n'y a qu'une condition à remplir = > pas de produits => 0.
Tu devrais donc utiliser

Code:

---

Range("F395") = evaluate("sumproduct((K377:K391=""Not Installed"")*1)")

---

Mais comme tu n'as qu'une condition, tu peux aussi utiliser

Code:

---

range("f395")=evaluate("countif(K377:K391,""Not Installed"")")

---

Garde à l'esprit que EVALUATE ne fait que...évaluer. Si tu lui demandes d'évaluer une formule, il faut que cette formule fonctionne dans Excel. Tu peux tester cela en créant la fonction dans Excel, puis en regardant en VBA comment elle construite. Saisis la formule dans une cellule excel puis, dans la fenêtre d'exécution du VBE, en ayant la cellule de la formule active, tu saisis

Code:

---

? activecell.formula

---

puis ENTER. Tu verras alors la construction "anglaise" de la formule.

Bonjour Pierre

Merci beaucoup, ça fonctionne comme je le désirais :ccool: et je te remercie aussi pour tes explication, j'apprécie, cela me permet de progresser.

Par contre, je suis désolé mais malheureusement je n'ai pas bien compris ceci !!

Citation:

---

Tu peux tester cela en créant la fonction dans Excel, puis en regardant en VBA comment elle construite. Saisis la formule dans une cellule excel puis, dans la fenêtre d'exécution du VBE, en ayant la cellule de la formule active, tu saisis

Code:

---

? activecell.formula

---

puis ENTER. Tu verras alors la construction "anglaise" de la formule.

---

ça a quelque chose à voir avec l'enregistrement d'une macro ?

Non non, rien à voir avec l'enregistrement d'une macro...mais bien par rapport à la façon de construire une ligne EVALUATE ou à l'utilisation d'une fonction Excel en VBA...

Lorsque tu es dans la fenêtre de l'éditeur VBA, tu peux disposer d'une fenêtre d'excécution (via le menu Affichage ou Ctrl+G) qui te permet de lancer certaines instructions VBA. L'exemple que je te donnais te permet de voir comment une formule qui fonctionne en Excel doit être reconstruite en VBA. C'est un exemple d'une technique de débogage intéressante...

Ravi de t'avoir aidé, et bonne continuation sur nos forums.

Hello Pierre

Ok merci, trop cool, j'avais bien vu cette fenêtre d'excécution mais je ne savais pas à quoi elle servait. Maintenant je comprend mieux !!

A+