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

Résolu

amiro2017 Messages postés 207 Statut Membre -
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

Afficher la suite

3 réponses

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

Activer/Desactiver:
```
TextBox1.Enabled=True/False
```
ou
Visible/Pas Visible:
```
TextBox1.Visible=True/False
```
1
1. amiro2017 Messages postés 207 Statut Membre 1
  
  je vous remercie
  
  0
2. Moi ..
  
  Merci bien !
  
  0

cs_Le Pivert Messages postés 8437 Statut Contributeur 730

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

amiro2017 Messages postés 207 Statut Membre 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

cs_Le Pivert Messages postés 8437 Statut Contributeur 730 > amiro2017 Messages postés 207 Statut Membre
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 207 Statut Membre 1 > cs_Le Pivert Messages postés 8437 Statut Contributeur

ouii cmerci ca marche
0

Réponse 3 / 3
amiro2017 Messages postés 207 Statut Membre 1

je vous remercie !!
0

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

3 réponses

Discussions similaires

Newsletters