Discussion :

[Dream Master]

Bonjour,
Je dévellope une application ou je dois ajouter les valeurs contenu dans une feuille excel dans une listbox. Le problème c'est que je ne veus pas toute les valeurs. juste quelque une m'intéresse. Je procède donc de la façon suivante:
je met une étoile dans la cellule à gauche de la valeur qui m'interesse.
ex : * | num valeur | valeur chercher

je fais ensuite un recherchev qui cherche l'étoile et renvoie la valeur chercher
et j'aditionne cette valeurs dans la listbox

Code :

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

1
2
 val = Application.WorksheetFunction.VLookup("*", Worksheets("Projets").Range("A:C"), 3)
 ListBox.AddItem val

mon problème c'est que la recherche ne touve qu'une seule valeur.
Il trouve l'étoile, aditionne la valeur dans la listebox et s'arrete alors que d'autre cellule se trouvant dessous contienne des étoiles.

Comment lui dire de continuer sa recherche ?
Quelqu'un pourrait t'il m'aider. Merci

[ilcocodrillo]

A priori c'est dans la 3 eme colonne qui est complète (pas de trous ?) si c'est le cas

cà doit marcher :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
 
I=1
 
do while sheets("Projet").cells(I,3).value<>""
 
val = Application.WorksheetFunction.VLookup("*", Worksheets("Projets").Range("A:C"), 3)
 ListBox.AddItem val
 
I=I+1
 
loop

[Dream Master]

Merci mais meme comme sa la recherche renvoi toujours la dernière ligne ou il a touvé une étoile.
Mais j'ai pu résoudre mon probleme. J'ai fais ma propre fonction:
Voici le code pour ce qui sont intéressé:
Private Function findstar(i) As Integer

Code :

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

1
2
3
4
5
6
7
8
For j = i To 150    
    If Cells(j, 1) = "*" Then
        findstar = j
        Exit Function
    End If
Next j
findstar = -1
End Function

Ensuite je fais appel à la fonction de la sorte

Code :

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

1
2
3
4
5
6
7
8
9
10
j = 1
val2 = 0
While (val2 <> -1)
    val2 = findstar(j)
    If val2 <> -1 Then
    val = Cells(val2, 3)
    ListBox.AddItem val
    j = val2 + 1
    End If
Wend

Et le tour est joué.