Condition si combobox contient un mot

[Florian53]

Bonjour à tous,

Je souhaiterais rendre visible une textbox si la combobox contient un mot,

Private Sub ComboBox_imputation_Change()
Data1 = "Rcp_ABC"
If ComboBox_imputation.ListIndex = UCase(Data1) Then TextBox7.Visible = True
End Sub

J'ai essayé avec ce code mais sa ne fonctionne pas. Pouvez vous me guider svp.

Cordialement

 

[ERIC S]

Bonjour

sans fichier, c'est la loterie

 

[Florian53]

Voici le fichier

 

[Florian53]

J'ai essayé comme ceci mais pas mieux

Private Sub ComboBox1_Change()
If (ComboBox1.Value) = "ABC" Then TextBox7.Visible = True
End sub

 

[Florian53]

ouf j'ai enfin trouvé pour ce à qui sa pourrait intéresser voici le code :

Private Sub ComboBox1_Change()
Data1 = "Rcp_ABC"

If InStr(ComboBox1.Value, "ABC") > 0 Then
Label11.Visible = True
TextBox11.Visible = True
Else
Label11.Visible = False
TextBox11.Visible = False
End If

End Sub

 

[ERIC S]

Re

désolé je répondais à une demande boulot

j'arrivais à

Private Sub ComboBox_imputation_Change()
Dim data
data = "Rcp - ABC"
If ComboBox_imputation.Value = data Then
    Label_1.Visible = True
    Txt_1.Visible = True
Else
    Label_1.Visible = False
    Txt_1.Visible = False
End If
End Sub

 

[laetitia90]

bonjour tous
le plus simple mettre les 2 controls dans un frame le code est plus simple a quoi sert la variable Data ?? dans ton cas

Frame1.Visible = IIf(ComboBox_imputation = "Rcp - ABC", 1, 0)

 

[Florian53]

Merci à vous, effectivement laeti en mettant le tout dans une frame simplifie le code. pour ce qui est de ma variable, c'est un reste de mes précédents essais qui maintenant ne sert plus à rien, je l'ai enlevé.

Encore merci à vous