UserForm : Activer/Désactiver ComboBox (cbo) + CommandButton (cmd) en fonction dRésolu

Question

Bonjour, 

Je souhaiterais que :
- Si la txtCODE est vide : Désactiver le clique sur la cboCOMMENTAIRE et le cmdVALIDER
- Si la txtCODE contient une valeur : Activer le clique sur la cboCOMMENTAIRE et le cmdVALIDER 

Lignes 27 à 35 : J'ai codé (à ma façon : ce qui me paraissait logique) mais ça ne fonctionne pas...
Est ce que quelqu'un peut m'aider et également m'expliquer pourquoi ce que j'ai fait ne fonctionne pas ?

Option Explicit
    Dim NumLigne As Integer

Private Sub cboCOMMENTAIRE_Enter() 
    cboCOMMENTAIRE.List = Array("", "Accepté(e)", "En attente", "Refusé(e)")
End Sub

Private Sub cmdVALIDER_Click()
    Sheets("Fichier Aide").Cells(NumLigne + 2, 7) = cboCOMMENTAIRE.Value
    If Me.lstRESULTATS.ListIndex = Me.lstRESULTATS.ListCount - 1 Then
        MsgBox "Vous avez atteint le dernier enregistrement !", vbInformation, "Dernier enregistrement atteint"
    Else: Me.lstRESULTATS.ListIndex = Me.lstRESULTATS.ListIndex + 1
    End If
End Sub

Private Sub lstRESULTATS_Click()
    NumLigne = Me.lstRESULTATS.ListIndex
    Me.txtCODE.Value = Me.lstRESULTATS.Column(0, NumLigne)
    Me.txtNOM.Value = Me.lstRESULTATS.Column(1, NumLigne)
    Me.txtPRENOM.Value = Me.lstRESULTATS.Column(2, NumLigne)
    Me.txtADRESSE.Value = Me.lstRESULTATS.Column(3, NumLigne)
    Me.txtCP.Value = Me.lstRESULTATS.Column(4, NumLigne)
    Me.txtVILLE.Value = Me.lstRESULTATS.Column(5, NumLigne)
    Me.cboCOMMENTAIRE.Value = Me.lstRESULTATS.Column(6, NumLigne)
End Sub

Private Sub UserForm_Initialize()
    If txtCODE.Value = "" Then
        cboCOMMENTAIRE.Enabled = False
        cmdVALIDER.Enabled = False
    Else
        cboCOMMENTAIRE.Enabled = True
        cmdVALIDER.Enabled = True
    End If
End Sub

Merci d'avance pour votre aide et vos explications !
Alexis

jordane45 · Answer

Bonjour,

Tu as placé ton test à l'initialisation de la userform..... mais à quel moment rempli tu ton champ ?
Car c'est après son remplissage (modification) que tu dois faire ton if....

UserForm : Activer/Désactiver ComboBox (cbo) + CommandButton (cmd) en fonction d

1 réponse

Votre réponse

Discussions similaires