Bonjour à tous,
J'utilise Excel 97 sous Windows NT4 et je n'arrive pas à mettre au point le
scénario suivant dans un UserForm.
Une ComboBox ayant comme RowSource la liste des directions, une autre la
liste des services correspondant à chacune des directions.
La sélection d'une direction dans le 1er ComboBox met à jour la RowSource
du 2ème avec les services correspondants.
J'ai essayé de faire quelque chose avec Select Case qui fait des
copier-coller pour mettre à jour la zone plage correspondant à la RowSource
du 2ème.
1 - Je n'arrive pas à supprimer les données dans la plage avant de coller
une nouvelle liste, la commande ClearContents ne peut pas fonctionner
lorsqu'elle correspond avec la RowSource du Combo.
2 - Le résultat ne s'affiche pas dans le 2ème Combo.
A titre d'exemple, le code donne à peu près ça :
Private Sub ComboBox1_Change()
Dim Model, FCal, Direc As Object
Set Model = ActiveWorkbook
Set FCal = Model.Worksheets(FCalc) 'Feuille "Calculs"
Set Direc = FCal.Cells(1, 9) 'Cellule index des directions (0, 1,2, etc.)
Select Case Direc
Case "0" 'Prem direction
FCal.Range(FCal.Cells(1, 17), FCal.Cells(4, 17)).Copy 'Liste des
services correspondants
FCal.Paste Destination:= FCal.Cells(2, 28) 'Plage correspondant à
la rowSource du 2è Combo
Case "1"
FCal.Range(FCal.Cells(5, 17), FCal.Cells(8, 17)).Copy
FCal.Paste Destination:= FCal.Cells(2, 28)
Case "2"
FCal.Range(FCal.Cells(9, 17), FCal.Cells(15, 17)).Copy
FCal.Paste Destination:= FCal.Cells(2, 28)
