D
daniel
Guest
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
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