Test sur combo box vb6

adelani -  
 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
A voir également:

6 réponses

Réponse 1 / 6
nicdev Messages postés 233 Date d'inscription   Statut Membre Dernière intervention   87
 
If Val(Combo7.Text) = "Oui" Then
Hw.Enabled = True
End If

ou

If Val(Combo7.Text) = "Oui" Then Hw.Enabled = True
0
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
0
Vb HELP > adelani
 
Tu as du mal placé ton end if
0
Réponse 2 / 6
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
0
Réponse 3 / 6
nicdev Messages postés 233 Date d'inscription   Statut Membre Dernière intervention   87
 
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
0
Réponse 4 / 6
dev_rabat Messages postés 2 Date d'inscription   Statut Membre Dernière intervention  
 
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
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 6
adelani
 
ca marche, j ai compris l'erreur mnt
merci bcp
0
Réponse 6 / 6
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
0