Filtres avec une combobox et une textbox
Bonjour le forum,
j 'essaie de filtrer un tableau de journées de travail de trois engin avec deux critères
mon userform1 comprends un textbox une combobox et un bouton
le premier critère se trouve dans une combobox (liste d'engins)
le deuxième une textbox1 est la date
je voudrais filtrer soit par combobox soit par la date ou les deux en même temps (le plus souvent utilisé comme filtre)
le tableau sur trouve sur la feuil1 ("bd")
lors du filtrage en validant avec le bouton "recherche"
le résultat s affiche dans l'userform2 dans la listview1
je réussi à charger l'
ensemble du tableau dans la listview
mais les filtres en vba je comprends pas encore
j'ai lu beaucoup dans le forum, j'ai fait des adaptations de fichier trouvés mais pas de réussite
je vous joins mon fichier
avec cette userform1
le résultat s 'affiche dans l'userform2
je joins aussi le fichier
j' apprends par moi même le vba mais c est compliqué
cordialement
Bonjour Fanfan38
J'ai regardé ton fichier, ta solution pourrait faire l'affaire il filtre bien
après filtrage, sauf qu'il y a des erreurs dans la filtration j'ai des journées en dehors du 26/10/2023.
et l'idée de 2 userform c est impossible à faire ou pas
cordialement
Bonjour
Le problème vient de date qui n'en sont pas exemple dim 22 janv 23 ligne 2461....
Ca peut être fait avec 2 userform mais c'est des emm... supplementaire non justifiées
A+ François
Bonjour François, et forum
le filtrage dans le même userform est bien,
j'aurais aimé que le filtrage se fasse par le premier userform
et lors de l'ouverture du deuxième, le filtrage s'affiche direct.
dommage, je vais abandonné le projet étant donné que je ne suis pas assez calé en vba
merci de ton aide
je garde ton fichier sous le coude
merci encore
je remets le fichier avec deux userform
cordialement
bonjour fanfan38 et le Forum
reviens vers vous
ta dernière modification est le principe que je recherche.
mais il ouvre bien l'userform2 mais il y a que les intitulés de mon tableau (voir image)
j'ai essayé d adapté le code mais rien y fait ca bogue
je remets le fichier
et merci de votre aide
Bonjour
L'erreur venait de
recherche = Sheets("bd").Range("A2:P" & [A65000].End(xlUp).Row).Value '0n import les données de la journée a partir de la derniére ligne de l'autre feuille...
recherche = Sheets("bd").Range("A2:P" & Sheets("bd").Range("A65000").End(xlUp).Row).Value '0n import les données de la journée a partir de la derniére ligneA+ François
Bonjour le Forum, fanfan38
Dans mon ancienne listview
J'ai un code me permettant de coloriser que des colonnes choisies,
voir ci-dessous
lorsque je valide il me mets une erreur "sub ou fonction non definie"
'Si dans la colonne "ACH" alors
If .ListItems(ligne).ListSubItems(4) = "ACH" Then
Dim h As Byte
'On selectionne les items des colonnes de la ligne et on mets en bleuuniquement en bleu
.ListItems(i).ForeColor = vbBlue
'l'item "ACH" present dans la colonne 4 on mets les items en bleu
.ListItems(i).ListSubItems(4).ForeColor = vbBlue
'On selectionne uniquement l'item de la colonne 5 (Parcours/Acheminement) en bleu
.ListItems(i).ListSubItems(5).ForeColor = vbBlue
'On selectionne uniquement l'item de la colonne 5 (Ligne) en bleu
.ListItems(i).ListSubItems(7).ForeColor = vbBlue
'On selectionne uniquement l'item de la colonne 7 (Voie) en bleu
.ListItems(i).ListSubItems(8).ForeColor = vbBlue
'On selectionne uniquement l'item de la colonne 9 (Pk Départ) en bleu
.ListItems(i).ListSubItems(9).ForeColor = vbBlue
'On selectionne uniquement l'item de la colonne 10 (Pk Arrivée) en bleu
.ListItems(i).ListSubItems(10).ForeColor = vbBlue
For h = 1 To 20
'on mets en bleu chaque ligne, Si "ACH" est present dans la colonne 5
'.ListItems(i).ListSubItems(j).ForeColor = vbBlue
Next h
End Ifcelui qui est dans ton code mets la ligne en bleu
If .ListItems(ligne).ListSubItems(5) = "ACH" Then 'Si dans la colonne "ACH" alors
For h = 1 To 11
'on mets en bleu chaque ligne, Si "ACH" est present dans la colonne 5
ListView1.ListItems(ligne).ListSubItems(h).ForeColor = vbBlue
Next h
End If
End Withje ne comprends pas trop pourquoi?
If .ListItems(ligne).ListSubItems(5) = "ACH" Then 'Si dans la colonne "ACH" alors
For h = 1 To 11'boucle sur les colonnes
'on mets en bleu chaque ligne, Si "ACH" est present dans la colonne 5
ListView1.ListItems(ligne).ListSubItems(h).ForeColor = vbBlue
Next h
End If
End WithToi tu mets: If .ListItems(ligne).ListSubItems(4) = "ACH" 'c'est pas mais 5
ensuite tu mets: .ListItems(i)... au lieu de ListItems(ligne)
A+ François
Bonjour Fanfan38 et le forum
Super donc je peux reproduire le code afin de pourvoir mettre en évidence d'autres infos importantes.
j'ai avancé sur mon projet mais je bloque
j'aimerai pouvoir dans une listbox1 récupérer toutes les valeurs de la colonne E lors de l'initialisation et lorsque qu'on clique sur le sillon, qu'il s afficher avec le webbrowser qui sert déjà avec la recherche RT. tous les sillons sont dans un dossier C:\Loc Ng 23\06-Sillons
et le top ce serait de le trouver par son numéro de sillon et qu'il le trouve avec un partie du numéro
je ne sais pas si c est réalisable d utiliser un webrowser pour deux fonction d affichage recherche RT et sillons
j'ai plein de truc que je n'arrive pas à faire; comme récupérer la date du jour afin de la mettre dans un label par exemple
je sais que je t'en demande beaucoup et j'espère ne pas t'en demander trop
je lis beaucoup dans les forums afin de trouver les solutions dans mon projet assez fou à mes yeux
cordialement
Bonsoir
ça aurai été bien que j'ai la feuille des sillons et le nom du fichier...
A+ François
Bonjour
Pour la date dans le label41
Mettre dans Private Sub UserForm_Initialize()
Me.Label41.Caption = Format(Date, "dd/mm/yyyy")
Quand au WebBrowser je ne savais même pas que ça existé...
Pose la question dans un nouveau post
A+ François
1er Problème:
J'aimerai pouvoir dans une listbox2 récupérer toutes les valeurs des colonnes E, F, G de' l'onglet BD lors de l'initialisation en fonction des critères de la date et Esv de l'userform1
Le top serait qu'il le trouve par son numéro de sillon avec seulement une partie du numéro de sillon
et de pouvoir cliquer sur les résultats qui s afficheront dans la listbox2, pour les ouvrir dans le webbrowser1
Tous les sillons sont dans un dossier C:\Loc Ng 23\06-Sillons au format pdf
Je ne sais pas si ce n'est réalisable d'utiliser un webrowser pour deux fonction d'affichage recherche RT et sillons.
Sinon, si ce n'est pas possible, les afficher dans un autre userform.
2 -ème Problème:
J'aimerai afficher le numéro de tournée dans le label11. qui se trouve dans la colonne D de la feuille BD
Cordialement
Bonjour, le forum
Sur mes deux problématiques, il n'y aurait pas de solution afin de pouvoir finir mon projet
Merci d'avance
Bonjour le forum
personne ne peux m'aider
merci et à bientôt
Bonjour
Comme je t'ai dit dans le post précédent pose la question dans un nouveau sujet en précisant webrowser...
A+ François
Bonjour Cyflo,
Parfait, ça fonctionne très bien.
Petite question:
Est-il possible d'avoir uniquement le N° du sillon (ex"101006" au lieu d'avoir toute chemin d'accès au fichier PDF) dans la listbox2.
Et encore merci de n avoir aidé vis a vis de mes manques de connaissances en VBA.
Cordialement Pelerin65