Discussion :

[windsor]

Bonjour,

il y a peu de temps, j'ai pris connaissance de la possibilité d'utiliser des tableaux de variables qui permettent entre autre, une rapdité d'exécution des programme.

Par contre, j'ai beaucoup de mal à les manipuler, notamment, dans le cas de la mise en place d'une condition dans le but de supprimer une ligne de mon tableau de variables.

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

Dim NomTableau(2)

'Alimente les éléments du tableau
NomTableau(0) = "H11000"
NomTableau(1) = "H12000"
NomTableau(2) = "H13000"



'Boucle sur les éléments du tableau
    For j = 0 To UBound(NomTableau)
        If NomTableau(j) = "H12000" Then
            'Suppression de cette ligne ?
        
        End If
        
    Next j

Est-ce que quelqu'un à une idée lumineuse pour me sortir de se pétrain ?

Merci d'avance
windsor

[fring]

Bonjour,

Je pense que pour ce genre d'accrobatie il est plus facile d'utiliser une Collection au lieu d'un Tableau. Petit exemple ci-dessous :

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
30
Sub test()
Dim Col As New Collection, j As Integer, Result As String
 
'Alimente la collection
Col.Add "H11000"
Col.Add "H12000"
Col.Add "H13000"
 
'verif du contenu initial pour le test
For j = 1 To Col.Count
    Result = Result & Chr(10) & Col(j)
Next
MsgBox "Vérification initiale :" & Chr(10) & Result
 
'suppression de la ligne si H12000
For j = 1 To Col.Count
    If Col(j) = "H12000" Then
        Col.Remove j
        Exit For
    End If
Next j
 
'verif du contenu final pour le test
Result = ""
For j = 1 To Col.Count
    Result = Result & Chr(10) & Col(j)
Next
MsgBox "Vérification finale :" & Chr(10) & Result
 
End Sub