Discussion :

[abdelkarim_1987]

Bonjour tout le monde , j'aimerai savoir comment rendre des textbox invisibles en fonction de choix sélectionné dans le menu déroulant

[Jean-Philippe André]

Salut,

tu peux influer sur la propriété Visible des controls de ton formulaire.

Exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
If Me.TaListBox.Value = "OK" Then
Me.TaTexteBox.Visible = False
End If

[abdelkarim_1987]

j'ai fait cela mais ça marche pas j'ai aucun effet

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
If Formulaire.ComboBoxCouplage.Text = "non" Then
    Formulaire.ComboBoxBoucle.Visible = False
    End If

[Jean-Philippe André]

Attention, tu testes la valeur .Text et non pas .Value, est-ce normal ?

[parmi]

Il faut faire attention à la casse.
Peut-être est-ce là le problème ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
If LCase(Formulaire.ComboBoxCouplage.Text) = "non" Then
    Formulaire.ComboBoxBoucle.Visible = False
End If

[abdelkarim_1987]

Merci ça fonctionne

[abdelkarim_1987]

Bonjour tout le monde, je suis entrain d'effectuer un calcul dans mon formulaire sauf que aprés avoir cliquer sur enregistrer j'ai cette erreur "division par zéro" alors que je divise pas par zéro

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
TextBoxRC = (Val(TextBoxRM) + Val(TextBoxRNI) - Val(TextBoxRMN)) / 2
'TextBoxC = (Val(TextBoxRM) + Val(TextBoxRNI) - Val(TextBoxRMN)) / (2 * Val(TextBoxRM))

L'erreur est au niveau de la ligne commenté

[parmi]

Bonjour,

Assurément, Val(TextBoxRM) te retourne 0
Prend le temps de regarder l'aide sur Val() et les cas de décimales.
Peut-être devrais-tu te tourner verx CDbl() ?

[abdelkarim_1987]

La j'ai une erreur incompatibilité de type

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

'TextBoxC.Value = CSng(TextBoxRC) / (2 * CDbl(TextBoxRM))

[Philippe Tulliez]

Bonjour,
J'ajouterais concernant la propriété Visible d'un contrôle et d'ailleurs toutes les propriétés utilisant une valeur Booléenne qu'il est parfaitement inutile de passer par une condition IF ou SELECT
Un simple opérateur logique suffit
Exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Formulaire.ComboBoxBoucle.Visible = NOT(LCase(Formulaire.ComboBoxCouplage.Text) = "non")

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Formulaire.ComboBoxBoucle.Visible = LCase(Formulaire.ComboBoxCouplage.Text) = "oui"

[abdelkarim_1987]

Merci Avez vous une idée pourquoi j'ai une erreur de compatibilité de type au niveau de ce code, je suis bloqué dessus depuis hier

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim i  As Double
 TextBoxRC.Value = (Val(TextBoxRM) + Val(TextBoxRNI) - Val(TextBoxRMN)) / 2
  i = Replace(TextBoxRC.Value, ",", ".")
 
 TextBoxC = Val(TextBoxRC) / (2 * Val(i))

[Philippe Tulliez]

Bonjour,
La nouvelle question n'ayant plus rien à voir avec le sujet de ce fil qui de plus est résolu, il serait plus judicieux d'ouvrir un nouveau sujet de discussion.