Bonjour,
Je souhaite diviser les données se trouvant dans des combobox en deux morceaux, lorsque dans le CBB on sélectionne une personne physique, alimenter le Combobox1 par :
Alimentation
Assurance banque (Crédit du Nord)
Assurance habitation (Macif)
Autre
Salaire
Carburant
Electricité
Etc etc (En conclusion les dépenses personnelles)
lorsqu'on sélectionne une personne morale, alimenter le Combobox1 par :
STE ETIB
STE ATA
STE FAB
STE IBO
STE BAT MAT
STE SAT BIE
STE KAPE
STE IMPETE
J'ai essayé de coder cela mais ne fonctionne pas parfaitement :
Me.CBBMembre.AddItem "Leduc Pierre"
Me.CBBMembre.AddItem "STE LPBAR"
If Me.CBBMembre.ListIndex <> 0 Then
Me.ComboBox1.List = Array("", "Alimentation", _
"Assurance banque (Cr?dit du Nord)", _
"Assurance habitation (Macif)", _
"Autre", _
"Salaire", _
"Carburant", _
"Electricit? Total Direct Energie", _
"Free (Abonnement Internet)", _
"Initiative Sud", _
"Loyer du mois d" & IIf(InStr(1, "ao", Left(MonthName(Month(Date)), 1), vbTextCompare), "'", "e ") & MonthName(Month(Date)) & " " & Year(Date) & " (Locataire)", _
"Loyer du mois d" & IIf(InStr(1, "ao", Left(MonthName(Month(Date)), 1), vbTextCompare), "'", "e ") & MonthName(Month(Date)) & " " & Year(Date), _
"Mutuelle Apreva", _
"Plan d'?pargne entreprise", _
"Syndicat des Copropri?taires")
Else
Me.ComboBox1.List = Array("", "STE ETIB", _
"STE ATA", _
"STE FAB", _
"STE IBO", _
"STE BAT MAT", _
"STE SAT BIE", _
"STE KAPE", _
"STE IMPETE", _
"STE LELI")
End If
Avez-vous une solution?
Merci d'avance.