visible ou invisible

[petchy]

le forum
bon j'explique:
j'ai un combobox avec une liste,et 2 textbox qui sont visible ou non cela dépent,est il possible de choisir soit "divers" ou"Virement Sécu"
pour que 1 des 2 textbox soit visible.
j'espere que c'est assez clair.

Private Sub ComboBox1_Change()
If ComboBox1.Value = "divers" Then
TextBox1.Visible = False
Label1.Visible = False
TextBox2.Visible = True
Label2.Visible = True
Else
TextBox1.Visible = True
Label1.Visible = True
TextBox2.Visible = False
Label2.Visible = False

End If
End Sub
Private Sub UserForm_Initialize()
With ComboBox1
.AddItem "Divers"
.AddItem "Virement Sécu"
.AddItem "Virement Mutuelle"
End With
End Sub

@ plus

 

[sousou]

A part la majuscule de divers qui doit te poser des problèmes, il semble que cela fonctionne, bien qu'une solution select case est peu-etre plus propre

 

[petchy]

salut sousou

OUPS,en fait je me suis mal exprimer,ce que je voudrais; soit:
"divers"ou"Virement Sécu" mais dans le meme textbox

petchy

 

[sousou]

Désolé, mais j'ai du mal à comprendre ton besoin!

Tu as un combox avex trois ite,m,
tu choisis un item,
combien as-tu de textbox?
lesquelles veux-tu afficher?
avec quoi dedans?

A+, je finirai par comprendre...

 

[petchy]

j'ai mis l'exemple

c'est vrai,c'est pas facile de s'exprimer avec des mots

@ plus

 

[sousou]

Voici deux solutions si j'ai bien compris
Un certain nombre d'item doivent faire apparaître débit et d'autres crédits.

La solution 1 tient compte que les items devant faire afficher débits sont dans la premières partie de la liste .

La deuxième solution, tu décide pour chaque item ce que tu va afficher en passant un flag une procédure(état).
Les deux solutions ont des avantages et des inconvéniants

Copie ce code et choisie la solution en modifiant
la ligne 2(Solution2 ou solution1)

Private Sub ComboBox1_Change()
solution2
End Sub
Sub solution1()
If ComboBox1.ListIndex > 7 Then '8 =index de l'item salaire'
TextBox1.Visible = False
Label1.Visible = False
TextBox2.Visible = True
Label2.Visible = True
Else
TextBox1.Visible = True
Label1.Visible = True
TextBox2.Visible = False
Label2.Visible = False

End If
End Sub

Sub solution2()
Select Case ComboBox1.Value
Case Is = "Divers"
etat (0)
Case Is = "Salaire"
etat (1)
' et ainsi de suite pour les autres item
End Select
End Sub


Sub etat(a)
If a = 1 Then
TextBox1.Visible = False
Label1.Visible = False
TextBox2.Visible = True
Label2.Visible = True
Else
TextBox1.Visible = True
Label1.Visible = True
TextBox2.Visible = False
Label2.Visible = False
End If
End Sub

 

[petchy]

merci Sousou

j'ai fait un essai,apparament c'est ce que je voulais,mais j'étudirais ça tout à la l'heure.
un grand merci pour ton aide
@ plus
petchy

 

[petchy]

Sousou.c'est nickel.

@ plus

 

[Vériland]

hi hi hi...qu''est-ce que t'en penses de celui là ?

 

[petchy]

salut Vériland

trés bien,en plus tu me nargue; lol,j'ai essayer par paint shop pro,mais comment fait on pour les mettre sur le net il faut avoir un site?.

@ plus petchy

 

[petchy]

C:\excel gif

 

[Vériland]

Re Petchy...non non je ne te nargue pas...je diffuse...lol...simplement l'image que tu souhaites faire apparaitre sur un post doit être présente sur un site et non sur l'ordi...cela ne marche pas autrement...comme je vois que tu as fait l'essai je confirme...lol...Donc pour y remédier il faut soit trouver l'image sur un site ou bien en avoir un...