Test sur combo box vb6

adelani -  
Bonjour,
je suis entrain de faire un petit programme sur vb6, dans une partie du programme j'ai un combobox avec les valeur "oui" et "non", essaye de faire une condition dans le cas ou je selectionne "oui" d'activer un text box,
et si je selectionne "non" le text box doit rester désactiver (enable)

j'ai ecrit ce code mais ca marche pas :

Private Sub Combo7_Validate(Cancel As Boolean)

If Val(Combo7.Text) = "Oui" Then Hw.Enabled = True
End If
End Sub

le probleme ce que ca marche pas et j'ai le msg d'erreur suivant: "compile error End If without block If".

merci de m'aider, et de me répondre a cette question

slts
Configuration: Windows XP
Internet Explorer 6.0

6 réponses

  1. adelani
    là j'ai une autre de question
    apres avoir changer des valeur sur mon fichier excel à l aide des zone de saisie sur mon interface vb, je souhaite imprimer le résultat qui se trouve sur mon fichier excel.
    je veux imprimer en ".pdf" , et enregistere automatiquement le fichier puis l'ouvrir.

    MonXl.Sheets(1).PrintOut , ActivePrinter:="PdfCreator", Collate:=True

    qu est ce que je dois rajouter a ce code pour pouvoir réaliser cette impression.

    merci
    2. dev_rabat
      bonjour
      voila le code
      j'espaire que vous indique ce code

      If Val(ComboBox1.Text = "oui") Then
      TextBox1.Enabled = True
      Else
      TextBox1.Enabled = False
      End If

      testt ce code
      1. nicdev
        Justement si tu mets du code apres le Then (sur la meme ligne) il ne faut pas de End If (ma 2 eme ecriture)

        Si tu veux mettre un end if IL NE FAUT PAS METTRE DE CODE APRES LE THEN (ma premiere ecriture) mais le mettre à la ligne
        2. adelani
          voici excatement le code que j'ai ecrit

          Private Sub Combo7_Validate(Cancel As Boolean)
          If Val(Combo7.Text) = "Oui" Then Hw.Enabled = True
          End If
          End Sub

          et ca me donne le msg d'erreur, je comprend pas pourquoi
          1. nicdev
            If Val(Combo7.Text) = "Oui" Then
            Hw.Enabled = True
            End If

            ou

            If Val(Combo7.Text) = "Oui" Then Hw.Enabled = True
            1. adelani
              merci pour votre réactivité

              mais ca marche pas, j'ai toujours le meme message d'erreur "compile error : End If without block If