Combobox multicolonne

[steph 4]

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

 

[Creepy]

Bonjour le Forum, Steph4,

Peux tu mettres en PJ un exemple de ton appli STP ?

Ca evitera de tout refaire à la mano

Merci

@+

Creepy

 

[steph 4]

j'ai bien essayé d'extraire le module concernée mais ca met hors service toute la macro .. qui fait 3 Mo ..
et l'userform ne répond plus ..

peux tu qd meme m'aider ?