J'ai un peu modifié mon fichier et j'ai obtenu un résultat, mais il me reste encore quelques soucis.
Je viens de voir ta réponse, alors je me précipite de voir ce qu'il con tient :))
Apitos
Re,
Jai fais des testes et ça coince au niveau des dates et la durée.
- Pour les dates, ca déclenche une erreur dincompatibilité de type d ans les lignes suivantes :
'----------------- T = T & CLng(Format(TextBox6.Value, "mm/dd/yy")) '------------------
'---------------- Feuil2.[K3] = ">" & CLng(Format(TextBox2.Value, "mm/dd/yy")) Feuil2.[L3] = "<=" & CLng(Format(TextBox6.Value, "mm/dd/yy")) '------------ - Pour la durée, jai essayé den avoir les arrêts inférieur à 40 mn, et le résultat était nulle, pourtant il y en a bien 8 lignes qui répondent à ce critère
- Peut-on ajouter une case pour les heures à coté des minutes, jen a urais besoin pour extraire les durée plus dune heure ?
Merci.
Re,
Jai fais des testes et ça coince au niveau des dates et la durée.
- Pour les dates, ca déclenche une erreur dincompatibilité de type d ans les lignes suivantes :
'-----------------
T = T & CLng(Format(TextBox6.Value, "mm/dd/yy"))
'------------------
'----------------
Feuil2.[K3] = ">" & CLng(Format(TextBox2.Value, "mm/dd/yy"))
Feuil2.[L3] = "<=" & CLng(Format(TextBox6.Value, "mm/dd/yy"))
'------------
- Pour la durée, jai essayé den avoir les arrêts inférieur à 40 mn, et le résultat était nulle, pourtant il y en a bien 8 lignes qui répondent à ce critère
- Peut-on ajouter une case pour les heures à coté des minutes, jen a urais besoin pour extraire les durée plus dune heure ?
Jai fais des testes et ça coince au niveau des dates et la durée.
- Pour les dates, ca déclenche une erreur dincompatibilité de type d ans les lignes suivantes :
'----------------- T = T & CLng(Format(TextBox6.Value, "mm/dd/yy")) '------------------
'---------------- Feuil2.[K3] = ">" & CLng(Format(TextBox2.Value, "mm/dd/yy")) Feuil2.[L3] = "<=" & CLng(Format(TextBox6.Value, "mm/dd/yy")) '------------ - Pour la durée, jai essayé den avoir les arrêts inférieur à 40 mn, et le résultat était nulle, pourtant il y en a bien 8 lignes qui répondent à ce critère
- Peut-on ajouter une case pour les heures à coté des minutes, jen a urais besoin pour extraire les durée plus dune heure ?
Ca m'a évité le va et vient entre le code et la feuille.
Sans oublier, as-tu une idée pour récrire le titrage du tableau des r ésultats obtenus :
"----- Résultats du Filtre pour les critères suivants : Machine : =M12, Arr êt : >41063, Arrêt : <A090, "----
En cette phrase :
"---- Résultats du Filtre pour les critères suivants : Machine : M12, Date de début : 03/06/2012, Date de fin : 30/06/2012 "----
Merci davance.
Apitos
Le code utilisé est :
'----------------------------------- '--- Récupérer les noms et valeurs des critères actifs j = 1 For i = 1 To 6 If ZoneCriteres(2, i) <> "" Then Msg = Msg & ZoneCriteres(1, i) & " : " & ZoneCriteres(2, i) & ", " j = j + 1 End If Next i '-----------------------------------
Le code utilisé est :
'-----------------------------------
'--- Récupérer les noms et valeurs des critères actifs
j = 1
For i = 1 To 6
If ZoneCriteres(2, i) <> "" Then
Msg = Msg & ZoneCriteres(1, i) & " : " & ZoneCriteres(2, i) & ", "
j = j + 1
End If
Next i
'-----------------------------------
'----------------------------------- '--- Récupérer les noms et valeurs des critères actifs j = 1 For i = 1 To 6 If ZoneCriteres(2, i) <> "" Then Msg = Msg & ZoneCriteres(1, i) & " : " & ZoneCriteres(2, i) & ", " j = j + 1 End If Next i '-----------------------------------