Condition si combobox contient un mot

ERIC S

XLDnaute Barbatruc

• 24 Février 2017

• #2

Bonjour

sans fichier, c'est la loterie

 

Vote positif 0 Vote négatif

F

Florian53

XLDnaute Impliqué

• 24 Février 2017

• #3

Voici le fichier

 

Pièces jointes

• test.xlsm

  22.2 KB · Affichages: 29

Vote positif 0 Vote négatif

F

Florian53

XLDnaute Impliqué

• 24 Février 2017

• #4

J'ai essayé comme ceci mais pas mieux

Code:

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

 

Vote positif 0 Vote négatif

F

Florian53

XLDnaute Impliqué

• 24 Février 2017

• #5

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

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

 

Vote positif 0 Vote négatif

ERIC S

XLDnaute Barbatruc

• 24 Février 2017

• #6

Re

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

j'arrivais à

Code:

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

 

Vote positif 0 Vote négatif

L

laetitia90

XLDnaute Barbatruc

• 24 Février 2017

• #7

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)

 

Pièces jointes

• test (1).xlsm

  26.5 KB · Affichages: 68

Vote positif 0 Vote négatif

F

Florian53

XLDnaute Impliqué

• 25 Février 2017

• #8

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

 

Vote positif 0 Vote négatif