ComboBox avec données qui changent

[MuscatMimi]

Bonsoir tous

J'aimerais savoir s'il est possible de modifier ce code ,afin que je ne soit pas obligé de noter les noms de compte dans le Code

Private Sub CbxN°Compte_Change()

If CbxN°Compte <> "Christian" Then 'Cbx N° Compte
TextBox5.Visible = False 'TextBox compte1
BtnCpte1.Visible = False
Label1.Visible = False
End If
If CbxN°Compte = "Christian" Then
TextBox5.Visible = True
Label1.Visible = True
Label1 = CbxN°Compte
BtnCpte1.Visible = True
End If
'========
If CbxN°Compte <> "Nicole" Then 'Cbx N° Compte
TextBox6.Visible = False 'TextBox compte2
BtnCpte2.Visible = False
Label2.Visible = False
End If
If CbxN°Compte = "Nicole" Then
TextBox6.Visible = True
Label2.Visible = True
Label2 = CbxN°Compte
BtnCpte2.Visible = True
End If
'=====================
If CbxN°Compte <> "Toto" Then 'Cbx N° Compte
TextBox7.Visible = False 'TextBox compte1
BtnCpte3.Visible = False
Label3.Visible = False
End If
If CbxN°Compte = "Toto" Then
TextBox7.Visible = True
Label3.Visible = True
Label3 = CbxN°Compte
BtnCpte3.Visible = True
End If
'=============
If CbxN°Compte <> "Titi" Then 'Cbx N° Compte
TextBox8.Visible = False 'TextBox compte1
BtnCpte4.Visible = False
Label4.Visible = False
End If
If CbxN°Compte = "Titi" Then
TextBox8.Visible = True
Label4.Visible = True
Label4 = CbxN°Compte
BtnCpte4.Visible = True
End If

End Sub



Bonne soirée a tous
ciaooooo

 

[alex67800]

Re : ComboBox avec données qui changent

Bonjour,
Apparement chaque compte fait appel à un textbox , bouton et label spécifique, donc difficle.
Pourquoi ne pas alimenter une seule textbox en fonction de CbxN°Compte ?
Cette textbox prenant sa source dans une colonne?

Un fichier en exemple serait bien.

 

[MuscatMimi]

Re : ComboBox avec données qui changent

Salut Alex 67800
et le Forum

Je vois pas bien ce que tu veux dire dans ton idée
explique mieux ou passe moi un exemple si tu veux bien
Cordialement

 

[smotty]

Re : ComboBox avec données qui changent

Bonjour Vaucluse Immo, Le Forum


Je préfère utiliser l'index du combobox avec:

me.ComboBox1.ListIndex

à condition que les mêmes prénoms soient toujours aux même niveau dans le combobox

Je te conseille un code du genre:

Select case CbxN°Compte .listindex
case is <> 0, is <> 1, is <> 2 'ou case is >2 tout simplement
TextBox5.Visible = False 'TextBox compte1
BtnCpte1.Visible = False
Label1.Visible = False
case 0 to 2
TextBox5.Visible = True
Label1.Visible = True
Label1 = CbxN°Compte
BtnCpte1.Visible = True

end select

ça évite les répétitions.

En espérant avoir bien compris ton souci...

Cordialement

Smotty

 

[alex67800]

Re : ComboBox avec données qui changent

Bonjour tout le monde,

En parlant de textbox je pensais combo.

Smotty a bien compris l'idée, et je n'aurais pas trouvé mieux loin de là.

Merci smotty.

 

[MuscatMimi]

Re : ComboBox avec données qui changent

Bonsoir smooti et Alex
merci a vous deux

vous avez compris ma mande
je viens d'essayer
c'est bon ça marche,
Merci encore a vos deux
Bonne soirée