Activer et désactiver le textbox en fonction d'un combobox
Résolu
amiro2017
Messages postés
207
Statut
Membre
-
Moi .. -
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
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:
- Activer et désactiver le textbox en fonction d'un combobox
- Desactiver rond bleu whatsapp - Guide
- Fonction si et - Guide
- Activer chromecast - Guide
- Comment activer le pavé tactile sans souris - Guide
- Activer office gratuitement - Accueil - Bureautique
3 réponses
Bonjour,
Activer/Desactiver:
ou
Visible/Pas Visible:
Activer/Desactiver:
TextBox1.Enabled=True/False
ou
Visible/Pas Visible:
TextBox1.Visible=True/False
amiro2017
Messages postés
207
Statut
Membre
1
je vous remercie
Moi ..
Merci bien !
Bonjour,
un exemple:
@+ Le Pivert
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
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
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
