Recherche par lettre

[maval]

Bonjour

j'ai un petit souci avec mon code.

J'ai un USF avec combobox pour la recherche par lettre alpha et 10 textbox et une listbox. Mon problème et que si je met plus de 9 textbox à la recherche j'ai message d'erreur "impossible de définir la propriété list. Valeur de propriété non valide"

Je vous remercie de votre aide

Cordialement

Maval

 

[Paritec]

Re : Recherche par lettre

Bonjour Maval le forum
bon alors de vouloir déclarer en variable ListIndex alors que c'est une propriété de la listbox là cela ne va pas faire bon ménage
c'est sur
a+
Papou🙂

 

[ERIC S]

Re : Recherche par lettre

Bonjour

pas le temps, mais en coup de vent :

ListBox1.List(ListBox1.ListCount - 1, c) = Sheets("Feuil1").Cells(cel.Row, c + 1)

quand çà bug ton c vaut 10 (n'y aurait-il pas un pb du style travailler en 1 à 1à alors aque ta listbox est de 0 à 9 ?)

 

[Paritec]

Re : Recherche par lettre

Re Maval le forum
ton fichier en retour
a+
papou🙂

EDIT: Pour Eric S c'est tout à fait cela il n'a pas tenu compte que la listbox commence à la colonne 0

 

[maval]

Re : Recherche par lettre

Bonjour Papou, Eric S,

Merci d'avoir répondu Le code de Papou fonctionne mais des que je rajoute 2 textBox et modifie la ligne

 For c = 1 To 12

J'ai toujours le même message d'erreur ou alors j'ai rien compris?

@+
Maval

 

[Robert]

Re : Recherche par lettre

Bonjour le fil, bonjour le forum,

Voilà ce que dit l'aide VBA :
La définition de la propriété ColumnCount sur 0 affiche zéro colonne et la définition sur -1 affiche toutes les colonnes disponibles. Pour une source de données indépendante, il y a une limite de 10 colonnes (0 à 9).

As-tu vraiment la nécéssité d'afficher tout ? Essaie avec 10 colonnes (de 0 à 9) en suppimant deux éléments pas indispensables à la recherche...

 

[Paritec]

Re : Recherche par lettre

Bonsoir Robert🙂 Maval le forum
bon voilà pour tes 12 colonnes dans la listbox1, maintenant si tu en veux plus pas de soucis, il suffit de demander
a+
Papou🙂

 

[maval]

Re : Recherche par lettre

Bonjour Papou,

Je te remercie beaucoup Nickel le code

Je te souhaite une bonne journée

Maval

 

[Paritec]

Re : Recherche par lettre

Bonjour Maval le forum
voilà maval pour moi une recherche bien plus intelligente
tu tapes dans le combobox "ca" pour faire le test
a+
Papou🙂

 

[maval]

Re : Recherche par lettre

Bonjour Papou,,

C'est une idée génial et comme tu dit, une recherche bien plus intelligente.
Juste une chose pour demarer la recherche a partir de la colonne "A" c'est à dire si la colonne "A" est rempli j'ai ceci pourrai tu me dire si cela est bon ?

    ReDim Preserve aa(12, y)
                For c = 1 To 12
                    aa(c, y) = .Cells(lig, c)
                Next c

@+
et merci

Maval

 

[Paritec]

Re : Recherche par lettre

Re Maval le forum
non tu n'y es pas, là tu es dans la récupération des lignes, si tu veux changer la recherche pour chercher sur la colonne A
il faut changer la condition, le plus simple est de ma repasser le fichier avec les colonnes au complet avec les explications dedans et je te modifierai cela.
a+
Papou🙂

 

[maval]

Re : Recherche par lettre

Bonjour Papou

J'ai du mal m'expliquer et je m'excuse

Si dans la colonne "A" qui en se moment et vide je voudrais l'utiliser?

Je joint un fichier avec explication

Un grand merci d'avance

MAVAL

 

[Paritec]

Re : Recherche par lettre

Bonsoir Maval le forum
ton fichier en retour
a+
Papou🙂

 

[maval]

Re : Recherche par lettre

Bonjour Papou,

Je te remercie super sympa.

Bonne journée

A bientôt

Maval