RE Suite de compter le nombre de saisie a la date du jour
Bonsoir, me revoilà j'ai voulue modifier la macro pour rajouter la colonne BH mais je ne comprend pas le code j'ai chaque fois des erreur de code bref help.
Sur la page "MA" j'ai deux outils 1 à 800 et 1 à 500
Sur la page "MLx" j'ai deux outils 1 à 1000 et 1 à 50
Donc je devrais trouver 4 entrées à la date du 24/09/2013 et une entrées < ou = à 50
J’aimerai avoir aussi le total de la colonne BH pour la même date, donc 3
------- code -------------------------
Sub CompteTotal() ' un commentaire svp pour savoir se que ça fait
Dim Plage As Range ' un commentaire svp pour savoir se que ça fait
Dim Ws As Worksheet ' un commentaire svp pour savoir se que ça fait
Dim Nblg As Long ' un commentaire svp pour savoir se que ça fait
Dim Nb1 As Long, Nb2 As Long ' un commentaire svp pour savoir se que ça fait
' Vérification si une date existe dans la cellule K19
If Not IsDate(Range("K19")) Then
' Si pas de date on informe l'utilsateur et on quitte
MsgBox " Veuillez inscrire une date dans la cellule K19 "
Exit Sub
End If
' Pour chaque page
For Each Ws In Sheets(Array("MA", "MLx"))
' Calcule du nombre de ligne dans le tableau
Nblg = Ws.Range("G" & Rows.Count).End(xlUp).Row
' Formule Sommeprod avec comme nombre de ligne = 66
' Pour la page MA : sumproduct(N('MA'!G10:G66= K19)*('MA'!I10:I66<=50))
' Pour la page MLx : sumproduct(N('MLx'!G10:G66= K19)*('MLx'!I10:I66<=50))
Nb1 = Nb1 + Evaluate("sumproduct(N('" & Ws.Name & "'!G10:G" & Nblg & "= K19)*('" & Ws.Name & "'!I10:I" & Nblg & "<=50))")
Nb2 = Nb2 + Application.CountIf(Ws.Range("G10:G" & Nblg), Range("K19"))
Next Ws
' Affiche le résultat
' un commentaire svp pour savoir se que ça fait les caractères "&" : "& vbCr &_
MsgBox "Nombre d'outils qui n'ont pas atteint la charnière à la date du " & Range("K19") & " : " & vbCr & _
"Total : " & Nb2 & vbCr & _
"Total inférieur ou égal à 50 pièces : " & Nb1
End Sub
Bonjour Banzai64 merci c'est exactement cela, je n’aurait pas trouver tous seul trop complexe a+