Recherche par lettre

Paritec

XLDnaute Barbatruc

• 12 Août 2012

• #2

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🙂

 

Vote positif 0 Vote négatif

ERIC S

XLDnaute Barbatruc

• 12 Août 2012

• #3

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 ?)

 

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 12 Août 2012

• #4

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

 

Pièces jointes

• Maval V1.xlsm

  30.1 KB · Affichages: 41
• Maval V1.xlsm

  30.1 KB · Affichages: 38
• Maval V1.xlsm

  30.1 KB · Affichages: 42

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 12 Août 2012

• #5

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

Code:

 For c = 1 To 12

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

@+
Maval

 

Pièces jointes

• Maval V1.xlsm

  27.1 KB · Affichages: 34
• Maval V1.xlsm

  27.1 KB · Affichages: 34
• Maval V1.xlsm

  27.1 KB · Affichages: 33

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 12 Août 2012

• #6

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...

 

Dernière édition: 12 Août 2012

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 12 Août 2012

• #7

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🙂

 

Pièces jointes

• Maval V2.xlsm

  32.5 KB · Affichages: 36
• Maval V2.xlsm

  32.5 KB · Affichages: 38
• Maval V2.xlsm

  32.5 KB · Affichages: 39

Dernière édition: 12 Août 2012

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 13 Août 2012

• #8

Re : Recherche par lettre

Bonjour Papou,

Je te remercie beaucoup Nickel le code

Je te souhaite une bonne journée

Maval

 

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 13 Août 2012

• #9

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🙂

 

Pièces jointes

• Maval V3.xlsm

  30.6 KB · Affichages: 45

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 13 Août 2012

• #10

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 ?

Code:

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

@+
et merci

Maval

 

Dernière édition: 13 Août 2012

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 13 Août 2012

• #11

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🙂

 

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 13 Août 2012

• #12

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

 

Pièces jointes

• Maval V5.xlsm

  30 KB · Affichages: 38

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 13 Août 2012

• #13

Re : Recherche par lettre

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

 

Pièces jointes

• Maval V6.xlsm

  28.4 KB · Affichages: 43

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 14 Août 2012

• #14

Re : Recherche par lettre

Bonjour Papou,

Je te remercie super sympa.

Bonne journée

A bientôt

Maval

 

Vote positif 0 Vote négatif