Rechercher en vba

[Florian53]

Bonjour à tous j'aimerais effectuer une recherche en vba c'est a dire que je rentre les date dans lesquelles je veux que ma recherche soit effectué. Et que cela m'affiche les résultat des 4 colonnes voulus dans une listview mais je bloque depuis un petit moment si quelqu'un aurait une petite idée merci à vous

 

[phlaurent55]

Re : Rechercher en vba

bonjour florian,

déjà un premier problème ci-dessous, tu as oublié le "3"

Private Sub UserForm[COLOR="Blue"][B]3[/B][/COLOR]_Initialize()

 

[jp14]

Re : Rechercher en vba

Bonjour

Ci joint le fichier avec les procédures modifiées pour faire la recherche.


A tester

JP

 

[Florian53]

Re : Rechercher en vba

Merci à toi mais pourquoi les cases fournisseurs, état ne sont pas renseigné pourtant d'après le code elle devrait être remplies:

.ListItems(.ListItems.Count).ListSubItems.Add , , cellule.Offset(0, 1).Value
.ListItems(.ListItems.Count).ListSubItems.Add , , cellule.Offset(0, 2).Value
.ListItems(.ListItems.Count).ListSubItems.Add , , cellule.Offset(0, 4).Value

Encore merci

 

[Florian53]

Re : Rechercher en vba

C'est bon j'ai réussi a résoudre mon problème

Merci à vous

 

[Florian53]

Re : Rechercher en vba

j'aurais voulu savoir a quoi correspondais cette ligne la :

' Remplir la première colonne
ListView1.ListItems.Add , "k" & cellule.Row, cellule.Offset(0, 0).Value

car je ne dispose pas de colonne k

 

[jp14]

Re : Rechercher en vba

Bonjour

j'aurais voulu savoir a quoi correspondais cette ligne la :

' Remplir la première colonne
ListView1.ListItems.Add , "k" & cellule.Row, cellule.Offset(0, 0).Value

car je ne dispose pas de colonne k

Une "Key" doit être du type String, ajouter un caractère alpha transforme un nombre en type string.
Il existe d'autre méthode par exemple "Cstr".

Cette clé permet de retrouver facilement la ligne dans la base de données pour une mise à jour, c'est une information cachée qui évite de faire des recherches.
Pour trouver la ligne il suffit d'éliminer le premier caractère (mid, replace, ...).


JP