ziold L'original... | Tu pourrais mettre ça dans un truc genre cboCR_Change() (ou un truc comme ça...)
Code :
- Dim iLine1, iLine2, iNbrLine As Integer
- With Worksheets(1)
- iNbrLine = 1
- 'Nombre de lignes du tableau
- While .Cells(iNbrLine, 2).Value <> ""
- iNbrLine = iNbrLine + 1
- Wend
- iNbrLine = iNbrLine - 1
- 'Recherche valeur que tu as entré
- iLine1 = 1
- While .Cells(iLine1, 1).Value <> cboCR.Text
- iLine1 = iLine1 + 1
- Wend
- iLine2 = iLine1
- 'A partir de la ligne correspondant à ton choix, tu ajoute les éléments à ta deuxième CB
- 'jusqu'à avoir une valeur dans la remière colonne
- While .Cells(iLine2, 1).Value = "" Or .Cells(iLine2, 1).Value <> cboCR.Text
- cbounité.AddItem (.Cells(iLine2, 2).Value)
- iLine2 = iLine2 + 1
- Wend
- End With
|
C à ajuster (au niveau des +1 / -1), C bourrin mais ça devrait marcher... |