Sujet Précédent Sujet Suivant

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

Résolu/Fermé
amiro2017 Messages postés 194 Date d'inscription mardi 28 février 2017 Statut Membre Dernière intervention 31 août 2017 - 14 mars 2017 à 23:41
 Moi .. - 29 nov. 2017 à 21:25
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 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
15 mars 2017 à 07:49
Bonjour,

Activer/Desactiver: 
TextBox1.Enabled=True/False

ou
Visible/Pas Visible:
TextBox1.Visible=True/False
1
amiro2017 Messages postés 194 Date d'inscription mardi 28 février 2017 Statut Membre Dernière intervention 31 août 2017 1
15 mars 2017 à 11:45
je vous remercie
0
Moi ..
29 nov. 2017 à 21:25
Merci bien !
0
Réponse 2 / 3
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
Modifié par cs_Le Pivert le 15/03/2017 à 08:07
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 194 Date d'inscription mardi 28 février 2017 Statut Membre Dernière intervention 31 août 2017 1
15 mars 2017 à 10:37
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 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728 > amiro2017 Messages postés 194 Date d'inscription mardi 28 février 2017 Statut Membre Dernière intervention 31 août 2017
Modifié par cs_Le Pivert le 15/03/2017 à 10:51
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 194 Date d'inscription mardi 28 février 2017 Statut Membre Dernière intervention 31 août 2017 1 > cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024
15 mars 2017 à 11:44
ouii cmerci ca marche
0
Réponse 3 / 3
amiro2017 Messages postés 194 Date d'inscription mardi 28 février 2017 Statut Membre Dernière intervention 31 août 2017 1
15 mars 2017 à 10:05
je vous remercie !!
0

Discussions similaires

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

0 réponse