J'ai un mega probleme et je ne m'en sors pas... Si quelqu'un peu m'aider j'achéte je m'explique. Je voudrai passer de ca :
Public Sub UPDATE_NEW_ENTRY(DATA_FORM As Form, DIRC_FORM As Form, NB_FIELDS As Integer, Optional TXT_TEST0 As String, Optional TXT_TEST1 As String, Optional TXT_TEST2 As String, Optional TXT_TEST3 As String, Optional TXT_TEST4 As String, Optional TXT_TEST5 As String, Optional TXT_TEST6 As String, Optional TXT_TEST7 As String, Optional TXT_TEST8 As String)

à ca :
Public Sub UPDATE_NEW_ENTRY(DATA_FORM As Form, DIRC_FORM As Form, NB_FIELDS As Integer, Optional TXT_TEST() As String)

Le probleme c'est que quand je rappel cette fonction UPDATE_NEW_ENTRY, il ne m'ouvre qu'une seule Variable TXT_TEST() et rien d'autre Alors que moi j'en veux 9.

Si quelqu'un me trouve une solution je serai heureux. J'en ai marre de me prendre la tete lol Merci d'avance a tout le monde.

PROTEUS

Public Sub UPDATE_NEW_ENTRY(DATA_FORM As Form, DIRC_FORM As Form, NB_FIELDS As Integer, Optional TXT_TEST As Object)
    - - - - - - - - - - - - - - - - - - 
    MsgBox TXT_TEST(0).Text
    MsgBox TXT_TEST(1).Text
    - - - - - - - - - - - - - - - - - - 
End Sub


Daniel

j'ai dû mal comprendre alors, je croyais que tu voulais passer un groupe de contrôle
parceque pour un Tableau de String, ta fonction était bonne:

Private Sub Command1_Click()
    Dim txt() As String
    ReDim txt(2)
    txt(0) = "aaa"
    txt(1) = "bbb"
    txt(2) = "ccc"
    UPDATE_NEW_ENTRY txt
End Sub

Private Sub UPDATE_NEW_ENTRY(T() As String)
    Dim i As Integer
    For i = 0 To UBound(T)
        MsgBox T(i)
        Next
End Sub


Daniel

Excuse pour le optional en trop mais j'ai pondu cela de mémoire, sans VB sous la main pour tester

Christophe R