Total entre deux dates par statuts et liste
Bonjour à toutes et à tous.
Je vais avoir besoin de vos aptitudes et votre aide car mes connaissances et mes tests étant catastrophiques concernant les calculs de dates....
Dans mon tableau en exemple, je voudrais pouvoir en F3 avoir le nombre total des dossiers ayant le statut "incomplet" compris entre le 01/01/2019 et le 31/12/2019.
Peut être plus difficile, en G3, pouvoir avoir la liste de ces dossiers.
Si vous avez un début d idée, je suis preneur.
Merci pour votre aide
Bonjour Amo, bonjour le forum,
Peut-être comme ça :
Sub Macro1()
Dim DD As Date 'déclare la variable DD (Date de Début)
Dim DF As Date 'déclare la variable DF (Date de Fin)
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim TV As Variant 'déclare la variable TV (Tableau des Valeurs)
Dim I As Integer 'déclare la variable I (Incrément)
Dim K As Integer 'déclare la variable K (incrément)
Dim D As Date 'déclare la variable D (Date)
Dim TDI() As Variant 'déclare la variable TDI (Tableau des Dossiers Incomplets)
DD = "1/1/2019" 'définit la date de début DD
DF = "31/12/2019" 'définit la date de fin DF
Set O = Worksheets("Feuil1") 'définit l'onglet O
TV = O.Range("A3").CurrentRegion 'définit le tableau des valeurs TV
O.Range("F2").CurrentRegion.Offset(1, 0).ClearContents 'supprime d'éventuelles anciennes données
K = 1 'initialise la variable K
For I = 1 To UBound(TV, 1) 'boucle sur toutes les lignes I du tableau des valeurs TV
D = DateSerial(Year(TV(I, 2)), Month(TV(I, 2)), Day(TV(I, 2))) 'définit la date D de la donnée en colonne 2 de la boucle
If D >= DD And D <= DF And TV(I, 3) = "Incomplet" Then 'condition si D est comprise entre DD et DF et que la donnée en colonne 3 est égale à "Incomplet"
ReDim Preserve TDI(1 To K) 'redimensionne le tableau TDI (K colonnes)
TDI(K) = TV(I, 1) 'récupère le numéro du dossier dans la colonne K
K = K + 1 'incrémente K (ajoute une colonne au tableau TDI)
End If 'fin de la condition
Next I 'prochaine ligne de la boucle
If K > 1 Then 'si K est supérieure à 1
O.Cells(3, "F").Value = K - 1 'renvoie le nombre de dossier en F3
O.Cells(3, "G").Resize(K - 1, 1) = Application.Transpose(TDI) 'renvoie en G3 redimensionnée le tableau TDI transposé
Else 'sinon
MsgBox "Aucun dossier incomplet !" 'message
End If 'fin de la condition
End SubBonjour Arno, le Forum,
Ci-joint ton fichier modifié avec formules et adaptabilité de la recherche.
Voir notes sur première feuille.
Bons tests, bonne continuation.
Bonjour à tous,
En Sql ça donne (avec l'année en F1) :
Sub Go()
Dim T As Variant
With Sheets("Feuil1")
Req = "SELECT `N° de dossier` FROM [Feuil1$A:C]" & _
" WHERE YEAR(`Date`)=" & .Range("F1").Value & _
" AND `Statut`='Incomplet'"
Connect_xls ThisWorkbook.Path & "\" & ThisWorkbook.Name
T = Select_Db(Req, 0)
Close_Cnx
.Range("F3:G2000").ClearContents
.Range("F3") = UBound(T, 1)
.Range("G3").Resize(UBound(T, 1), UBound(T, 2)) = T
End With
End SubPierre
Un tres grand merci à tous.
Merci pour vos exemples. Je vais tous les regarder car jusqu à maintenant je ne n imaginais que les fonctions standards d excel et pas "le reste". Cela à le mérite de me pousser à comprendre !
Encore merci et une tres bonne soirée à tous
Vraiment génial
J ai du travail pour tout comprendre, encore merci pour vos partages !!!
Bonjour à tous,
un test également.
Cordialement.
Bonjour Bigdaddy154
Pouvez vous me dire où je me trompe. J ajouté un critère en H5.
Dans le nouveau fichier joint (alertes2), j ai toujours un message d erreur #valeur, quand je tente de rentrer cette formule en J3
=NB.SI.ENS($D$3:$D$10;">="&$H$2;$D$3:$D$10;"<="&$H$3;$E$3:$E$10;$H$4;"<="&$H$3;$F3:$F$10;$H$5)
Et pouvez vous me dire si l ajout d un critère modifie les formules en colonne A et B ?
Merci pour vos remarques et votre aide
Bonjour,
comme ceci :
=NB.SI.ENS($D$3:$D$10;">="&$H$2;$D$3:$D$10;"<="&$H$3;$E$3:$E$10;$H$4;$F$3:$F$10;$H$5)Et ton fichier en retour.
Cordialement.
Bonjour et merci !
Ok je vois mon erreur... Je vais avancer à nouveau.
Encore merci !