Bonjour,

Je n'arrive pas a modifier la visibilité d'une textbox dans une fonction, la textbox dans la fonction étant une variable.

En fait il n'arrive pas à detecter la textbox, il renvoie utilisation incorrecte de null.
Ma fonction est :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Function Add_line(Case_précédente As Integer, case_1_ligne As Integer, case_2_ligne As Integer, case_3_ligne As Integer, case_4_ligne As Integer)
 
 
If Not IsNull(Case_précédente) And Case_précédente.Visible = True Then
 
case_1_ligne.Visible = True
case_2_ligne.Visible = True
case_3_ligne.Visible = True
case_4_ligne.Visible = True
 
Else
 
case_1_ligne.Visible = False
case_2_ligne.Visible = False
case_3_ligne.Visible = False
case_4_ligne.Visible = False
 
End If
 
 
End Function
Et son appel dans le code

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
 
'######################################################DECLARATION DES VARIABLES######################################################################
 
Dim Case_précédente As Integer
Dim case_1_ligne As Integer
Dim case_2_ligne As Integer
Dim case_3_ligne As Integer
Dim case_4_ligne As Integer
 
 
'######################################################AJOUT DE LIGNE######################################################################
 
'######################################################Ligne 2#############################################################################
 
Case_précédente = Txt_à_diam_1
case_1_ligne = Txt_De_diam_2
case_2_ligne = Txt_à_diam_2
case_3_ligne = Txt_diam_mm_diam_2
case_4_ligne = Txt_diam_pouces_diam_2
 
Call Add_line(Case_précédente, case_1_ligne, case_2_ligne, case_3_ligne, case_4_ligne)
Sachant que textbox.value fonctionne très bien dans une autre fonction, il prend bien la valeur de la textbox défini comme variable, c'est juste pour afficher ou masquer la textbox qu'il n'y arrive pas.

Merci d'avance.