Discussion :

[jpenja]

Bonjour,
je voudrais savoir s'il est possible dans une feuille Excel contenant plusieurs données d'extraire et de remplir une listbox suivant un critère précis avec toutes les valeurs contenant au minimum ce critère.
Pour + de clarté :
critère = AMICALE base = AMICALE DE POMPIERS
AMICALE BOULE
ANPE
BASKET BALL
ASSOCIATION AMICALE D'ENTRAIDE

résultat dans listbox=>AMICALE DE POMPIERS
AMICALE BOULE
ASSOCIATION AMICALE D'ENTRAIDE
Merci.

[wilfried_42]

bonjour,

sans autre precision, on va definir des criteres, en colonne A, la liste des association, En textbox1 = Le mot à decouvrir, lst = nom de la listbox

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
sub traitement()
dim i as long
with userform1
       .lst.clear
       for i = 1 to sheets("Feuil1").range("A65536").end(xlup).row
           if instr(sheets("Feuil1").range("A" & i),.textbox1)>0 then
              .lst.additem sheets("Feuil1").range("A" & i)
           end if
       next i
end with
end sub

bonne journée

[Jean-Pierre49]

Si La Range("A1") est l'entete de colonne
for i = 1 to sheets("Feuil1").Range("A1").End(xlDown).Row)
Pour eviter de boucler sur 65536 lignes

[wilfried_42]

re:

regarde bien jean-pierre, .end(xlup).row ---> Remonte à la derniere ligne saisie, pour eviter de boucler sur les 65536 lignes

et en passant par en dessous, cela evite, s'il y a une cellule vide dans la colonne, de s'y arreter et de rater les lignes suivantes

Salutations

[jpenja]

Merci a vous deux,je ne connaissais pas l'instructuion Instr.
Je la teste sur un simple fichier, mais j'ai une erreur13 Type incompatible.
Ne vois pas pourquoi?
Ci joint le fichier test.
Merci
P.S : ai essayer aussi avec LIKE sans plus de résultat, si vous connaissez.

[wilfried_42]

re:

il n'y a que 3 criteres maxi dans un instr

1 chaine de caractere
2 caractere (ou chaine) recherchée dans la chaine
3 position de départ (si omis, commence à 1 )

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If InStr(Feuil1.Range("a" & x), crit) > 0 Then

dans ta demande seuls 2 criteres suffisent

[Jean-Pierre49]

merci Wilfried,

J'ai cherché cette fonction que je ne connaissais pas mais je n'avais rien trouvé
Merci de m'avoir éclairé

[jpenja]

Je vais essayer celà de suite.Je pensais que la position de départ représentait la premiére cellule à partir de laquelle la comparaison s'effectuait.
Effectivement en regardant l'aide VBA pour instr, le 1er critere correspond a "start"et il doit être de type numérique pour signifier à partir d'où commence la recherche.
C'est comme la fonction Mid().
En tout cas merci bcp Wilfried...et JP.