OVH Cloud OVH Cloud

Tableau

1 réponse
Avatar
Jean-Michel
Bonjour,

Comment suprimer une ligne d'un tableau,

ex :

| 1 | 125 | 125454
| 2 | 65546 | 1555
| 3 | 1212 | 54415

On supprime la ligne 2

| 1 | 125 | 125454
| 2 | 1212 | 54415

Les numero 1 2 3 ne sont pas dans le tableau, c'est seulement les numero i
de tablo(i)

Et je voudrais que ca se remette en forme comme dans l'exemple !

Merci bcp !

1 réponse

Avatar
Hervé
Salut Jean Michel,
Une façon comme une autre mais qui n'est probablement pas la plus rapide.
Dans l'exemple ci dessous, la ligne contenant le lettre "E" a disparue.
Adapte :

Sub Tableau()
Dim Tbl() As String
Dim I As Integer
Dim LigneASupprimer As Integer

ReDim Tbl(1 To 2, 1 To 10)

For I = 1 To UBound(Tbl, 2)
Tbl(1, I) = Chr(64 + I)
Tbl(2, I) = I
Next I

LigneASupprimer = 5
'déplace les valeurs
For I = LigneASupprimer To UBound(Tbl, 2) - 1
Tbl(1, I) = Tbl(1, I + 1)
Tbl(2, I) = Tbl(2, I + 1)
Next I
'réduit le tableau d'une ligne
ReDim Preserve Tbl(1 To 2, 1 To UBound(Tbl, 2) - 1)

For I = 1 To UBound(Tbl, 2)
Debug.Print "ligne " & I
Debug.Print "colonne 1 """ & Tbl(1, I) & _
"""" & " colonne 2 """ & Tbl(2, I) & """"
Next

Erase Tbl
End Sub

Hervé.

"Jean-Michel" a écrit dans le
message news:
Bonjour,

Comment suprimer une ligne d'un tableau,

ex :

| 1 | 125 | 125454
| 2 | 65546 | 1555
| 3 | 1212 | 54415

On supprime la ligne 2

| 1 | 125 | 125454
| 2 | 1212 | 54415

Les numero 1 2 3 ne sont pas dans le tableau, c'est seulement les numero i
de tablo(i)

Et je voudrais que ca se remette en forme comme dans l'exemple !

Merci bcp !