boucle pour récupérer des valeurs dans une listbox

[daniel]

Bonjour le forum,

J'ai un petit souci avec une boucle, je ne comprends pas...

Dans un USF, j'ai une listbox (appellée lbxChoix) à deux colonnes, qui affiche un certain nombre de codes en fonction d'un filtre effectué sur la feuille. Pas de pb jusque là.

J'ai défini sur une feuille une zone nommée (appellée LIBELLE), qui contient un libellé pour chacun de ces codes. Je voudrais que lorsque la listbox se charge, les libellés des codes apparaissent dans la seconde colonne.

J'ai écrit le code suivant :

With userform1
For i = 0 To .lbxChoix.ListCount
For Each Code In [LIBELLE]
If Code = .lbxChoix.List(i, 0) Then
.lbxChoix.List(i, 1) = Code.Offset(0, 1)
End If
Next Code
i = i + 1
Next i
End With

Le code fonctionne bien...mais seulement pour un code sur deux ! Je récupère bien le libellé du 1er, 3e, 5e etc codes, mais pas ceux du 2e, 4e, 6e etc

Quelqu'un peut il me dire l'erreur que j'ai faite :S ?

Merci et bon après midi à tous et toutes

Daniel

 

[PascalXLD]

Re:boucle pour récupérer des valeurs dans une list

Bonjour

C'est normal car tu fais

i =i +1

donc quand il arrive au next i soit au prochain i il rajoute encore 1 soit 2 au total

donc retire ta ligne i = i+1

Bon courage

Message édité par: Pascal76, à: 02/09/2005 13:31

 

[daniel]

Re:boucle pour récupérer des valeurs dans une list

pffff...suis vraiment trop bête moi ,alors :whistle:

Merci pour ton aide ! Je vais essayer de faire attention la prochaine fois...

Bon après midi,

Daniel

 

[PascalXLD]

Re:boucle pour récupérer des valeurs dans une list

Re

Juste pour un petit truc

quand tu boucles sur

For Each Code In [LIBELLE]

quand il a trouvé la solution tu peux sortir de la boucle cela ne sert à rien de faire toutes les cellules

du genre

With userform1
For i = 0 To .lbxChoix.ListCount
For Each Code In [LIBELLE]
If Code = .lbxChoix.List(i, 0) Then
.lbxChoix.List(i, 1) = Code.Offset(0, 1)
Exit For '<<<<< Tu peux ajouter cela
End If
Next Code