S
steph 4
Guest
Bonjour le forum,
Ze un ptit problème de codage et de combobox multicolonne .. J'ai 3 combobox que j'alimentais manuellement jusque là par la méthode barbare AddItem,ce qui causait des erreurs car les données étaient tapés en brute.
Pour éviter ca, j'ai crée un classeur à 3 colonnes où figurent les 3 types de données:
Nom / Pays/ Type par exemple AGF France Assurance
Le problème est que je n'arrive pas à coder tout ca.
J'aimerai que le choix de ma combobox1 (nom) entraine directement le choix de mes combobox 2 (pays) et 3 (type)grâce à mon classeur de données .
Voici mon ancien code :
Private Sub UserForm_Initialize()
type_client.AddItem 'Assurances'
type_client.AddItem 'Asset Managers' ' etc ......
pays.AddItem 'Allemagne'
pays.AddItem 'Australie'
pays.AddItem 'Autriche' ' etc ...
' le nom du client était déjà alimenté par un autre classeur ..
Dim i As Integer
For i = 1 To Workbooks('ListeNoms.xls').Sheets('Feuil1').Range('A1').End(xlDown).Row
ListeNoms.AddItem Workbooks('ListeNoms.xls').Sheets('Feuil1').Cells(i, 1)
Next i
Sheets('Tableau').Activate
Dim DerCell As String
DerCell = Range('C6').End(xlDown).Address
Mois.RowSource = 'C6:' & DerCell
End Sub
Voilà merci pour votre aide, je m'améliore certes mais c'est pas encore le top du top.. ;-)
Steph
Ze un ptit problème de codage et de combobox multicolonne .. J'ai 3 combobox que j'alimentais manuellement jusque là par la méthode barbare AddItem,ce qui causait des erreurs car les données étaient tapés en brute.
Pour éviter ca, j'ai crée un classeur à 3 colonnes où figurent les 3 types de données:
Nom / Pays/ Type par exemple AGF France Assurance
Le problème est que je n'arrive pas à coder tout ca.
J'aimerai que le choix de ma combobox1 (nom) entraine directement le choix de mes combobox 2 (pays) et 3 (type)grâce à mon classeur de données .
Voici mon ancien code :
Private Sub UserForm_Initialize()
type_client.AddItem 'Assurances'
type_client.AddItem 'Asset Managers' ' etc ......
pays.AddItem 'Allemagne'
pays.AddItem 'Australie'
pays.AddItem 'Autriche' ' etc ...
' le nom du client était déjà alimenté par un autre classeur ..
Dim i As Integer
For i = 1 To Workbooks('ListeNoms.xls').Sheets('Feuil1').Range('A1').End(xlDown).Row
ListeNoms.AddItem Workbooks('ListeNoms.xls').Sheets('Feuil1').Cells(i, 1)
Next i
Sheets('Tableau').Activate
Dim DerCell As String
DerCell = Range('C6').End(xlDown).Address
Mois.RowSource = 'C6:' & DerCell
End Sub
Voilà merci pour votre aide, je m'améliore certes mais c'est pas encore le top du top.. ;-)
Steph