Aidez moi s'il vous plait, j'ai fait 2 jours entrain de chercher les erreurs logiques et de compilations au niveau de la procédure ci dessous.

La procédure permet seulement de faire entrer des valeurs dans une structure sommet lorsque l'utilisateur clique sur le bouton OK.

Voici ma logique. J'ai crée une structure nommée sommet, en voici sa définition
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Structure Sommet
        Dim nom As String
        Dim nbrePred As Integer
        Dim valEtiq As Integer
        Dim etiq As Integer
        Dim tabPred() As String
        Dim tabPond() As Integer  
End Structure
J'ai crée ensuite un tableau de cette structure
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Dim tabSommet() As Sommet
J'ai déclaré une variable qui va lire la longueur de ce tableau de structure sommet
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Dim nbreSommet as integer
J'ai déclarée deux variables pour parcourir le tableau de structure et les deux tableaux tabPred et tabPond
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
Dim compteur as integer
Dim i as integer
Les voici mes codes
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
23
24
25
26
27
28
29
Private Sub Button1_Click(...) Handles Button1.Click
        Dim i As Integer
        Dim compteur as integer
        Dim tabSommet() As Sommet
        Dim nbreSommet as integer
 
        If nbreSommet = 0 Then
            nbreSommet = TextBox1.Text
            ReDim tabSommet(nbreSommet - 1)
            compteur = 0
        End If
 
        tabSommet(compteur).nom = TextBox2.Text
        tabSommet(compteur).nbrePred = TextBox3.Text
        tabSommet(compteur).valEtiq = 0
        tabSommet(compteur).etiq = compteur + 1
 
        For i = 0 To TextBox3.Text - 1
            tabSommet(compteur) = New Sommet
            tabSommet(compteur).tabPred(i) = InputBox("Introduire les Predecesseurs")        
    	    tabSommet(compteur).tabPond(i) = InputBox("Introduire les ponderations")
	Next i 
 
	compteur = compteur + 1
	TextBox2.Text = vbNullString
        TextBox3.Text = vbNullString   
        TextBox2.Focus()
        compteur = compteur + 1       
End sub
Mais lorsque je l'execute, ce message apparait: "La référence d'objet n'est pas définie à une instance d'un objet."

Comment faire ?

Merci d'avance pour votre aide.