Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

visible ou invisible

  • Initiateur de la discussion petchy
  • Date de début
P

petchy

Guest
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
 
S

sousou

Guest
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
 
S

sousou

Guest
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...
 
P

petchy

Guest
j'ai mis l'exemple

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

@ plus
 

Pièces jointes

  • Visible.xls
    27.5 KB · Affichages: 66
  • Visible.xls
    27.5 KB · Affichages: 70
  • Visible.xls
    27.5 KB · Affichages: 72
S

sousou

Guest
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
 
P

petchy

Guest
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
 
P

petchy

Guest
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
 
V

Vériland

Guest
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...
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…