Activer et désactiver le textbox en fonction d'un combobox

Résolu
amiro2017 Messages postés 193 Date d'inscription   Statut Membre Dernière intervention   -  
 Moi .. -
Bonsoir le forum,

je m'adresse à vous pour m'aider à surpasser ce problème : en effet , j'ai un combobox qui contient des éléments à séléctionner par l'utilisateur et j'ai plusieurs text box à remplir en fonction de l'élément séléctionné par l'utilisteur dans combobox donc il y aura chaque fois activer des textbox et désactiver les autres textbox


je vous remercie d'avance
A voir également:

3 réponses

Réponse 1 / 3
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour,

Activer/Desactiver: 
TextBox1.Enabled=True/False

ou
Visible/Pas Visible:
TextBox1.Visible=True/False
1
amiro2017 Messages postés 193 Date d'inscription   Statut Membre Dernière intervention   1
 
je vous remercie
0
Moi ..
 
Merci bien !
0
Réponse 2 / 3
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
Bonjour,

un exemple: 

Option Explicit
Private Sub ComboBox1_Change()
'boucle sur les Textbox
Dim Ctrl As Control
For Each Ctrl In Me.Controls
    If TypeOf Ctrl Is MSForms.TextBox Then
     Ctrl.Object.Enabled = False
End If
Next Ctrl
Select Case ComboBox1.Value
Case "TextBox1"
TextBox1.Enabled = True
TextBox1.SetFocus
Case "TextBox2"
TextBox2.Enabled = True
TextBox2.SetFocus
Case "TextBox3"
TextBox3.Enabled = True
TextBox3.SetFocus
Case "TextBox4"
TextBox4.Enabled = True
TextBox4.SetFocus
End Select
End Sub
Private Sub UserForm_Initialize()
ComboBox1.AddItem ("TextBox1")
ComboBox1.AddItem ("TextBox2")
ComboBox1.AddItem ("TextBox3")
ComboBox1.AddItem ("TextBox4")
ComboBox1.ListIndex = 0
End Sub

@+ Le Pivert
1
amiro2017 Messages postés 193 Date d'inscription   Statut Membre Dernière intervention   1
 
je vous remercie encore cependant j' ai essayé à adapter ce programme mais une erreur de select case sans select cas s'affiche , en faite je fait ce programme dans un bouton ajouter est-il possible de ceci se déroula automatiquement sans bouton : c'est à dire une fois j'ai séléctionnée un item de combobox il y aura des text box activé et autres nn

voici mon programme
je vous remrciii 
Private Sub CommandButton5_Click()

Dim Ctrl As Control
For Each Ctrl In Me.Controls
    If TypeOf Ctrl Is MSForms.TextBox Then
     Ctrl.Object.Enabled = False
End If
Next Ctrl
 Select Case ComboBox1.Value
Case "Swaps de taux d'intérêt : Payer"
TextBox7.Enabled = False
TextBox7.SetFocus
Case "Swaps de taux d'intérêt : Recevoir"
TextBox7.Enabled = False
TextBox7.SetFocus
Case "Contrats de taux à terme : Acheter (court)"
TextBox6.Enabled = False
TextBox6.SetFocus
Case "Contrats de taux à terme : Vendre (long)"
TextBox6.Enabled = False
TextBox6.SetFocus
Case "Obligations et billets du gouvernement"
TextBox6.Enabled = False
TextBox7.Enabled = False
TextBox6.SetFocus
TextBox7.SetFocus
Case "Swaps de devises : Recevoir (variable)"
TextBox6.Enabled = False
TextBox4.Enabled = False
TextBox6.SetFocus
TextBox4.SetFocus
End Select
Case "Swaps de devises : Payer (variable)"
TextBox6.Enabled = False
TextBox4.Enabled = False
TextBox6.SetFocus
TextBox4.SetFocus
Case "Swaps de devises : Recevoir (fixe)"
TextBox6.Enabled = False
TextBox7.Enabled = False
TextBox6.SetFocus
TextBox7.SetFocus
Case "Swaps de devises : Payer (fixe)"
TextBox6.Enabled = False
TextBox7.Enabled = False
TextBox6.SetFocus
TextBox7.SetFocus
Case "Contrats à terme sur devise"
TextBox6.Enabled = False
TextBox4.Enabled = False
TextBox6.SetFocus
TextBox4.SetFocus
End Select
End Sub
0
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729 > amiro2017 Messages postés 193 Date d'inscription   Statut Membre Dernière intervention  
 
Dans mon exemple, cela se déclenche au changement du comboBox!!!!!!!!! 

Private Sub ComboBox1_Change()


et en plus tu mets tous les TextBox à False, cela ne risque pas de fonctionner.

Pourtant mon exemple était clair!!!!!!!
0
amiro2017 Messages postés 193 Date d'inscription   Statut Membre Dernière intervention   1 > cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention  
 
ouii cmerci ca marche
0
Réponse 3 / 3
amiro2017 Messages postés 193 Date d'inscription   Statut Membre Dernière intervention   1
 
je vous remercie !!
0

Discussions similaires

Message "Un bloqueur de publicité empêche la lecture..."
pistouri -
pistouri -

0 réponse