Manipuler une variable tableau

Bonjour,

Tout d'abord je adresser un immense merci à Silkyroad pour l'ensemble de ses tuto et particulièrement pour celui relatif aux variables tableaux qui m'a bien aidé.

Il me manque simplement un petit élément. J'utilise une variable tableau basique à deux dimensions. L'utilisateur fait un choix dans une liste établie selon la première colonne de ma variable.

Je voudrais qu'en fonction de ce choix, une macro me supprime la ligne correspondante dans ma variable. J'arrive à mettre toutes les valeurs à vide mais pas à supprimer simplement la ligne.

Auriez vous une idée ?

Merci d'avance à tout le monde et bon week end.

Bonjour,

Tu ne peux pas supprimer une ligne dans une variable tableau, il faut la redéfinir, le redimensionner ce qui revient à en changer.

Donc soit :

• Ta variable = une plage continue, suite à code tu supprimes une ligne de la plage tu réaffectes la nouvelle plage à ta variable.
  
• Tu utilises une collection plutôt selon contexte.
  

cordialement,

Didier

Merci pour ta réponse Ormonth,

Alors tout d'abord 'ai dit une grosse bétise, ma variable tableau n'a qu'une dimension. Elle est définie comme ceci :

Code:

---

1 2 3 4 5 6 7

Public Voitures() As Voiture Type Voiture Nom As String Marque As String Type As String Couleur As String End Type

---

En fait j'ai créée une petite procédure qui trouve la ligne à supprimer, lui donne la valeur de la ligne n+1 puis donne la valeur de n+2 à n+1 etc... Pour finalement réduire la dimension de la variable d'une ligne. Je me suis dit que je pouvais fonctionner comme ça.

Par contre j'ai un plantage sur la ligne en rouge (l'indice n'appartient pas à la sélection) :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Sub SupprimerLigne() Position = 0 For i = 1 To UBound(Voitures()) If Voitures(i).Nom = AncienneValeurCombo Then Position = i Exit For End If Next If Position <> 0 Then For i = Position To UBound(Voitures()) - 1 Voitures(i).Nom = Voitures(i + 1).Nom Voitures(i).Marque = Voitures(i + 1).Marque Voitures(i).Type = Voitures(i + 1).Type Voitures(i).Couleur = Voitures(i + 1).Couleur Next ReDim Preserve Voitures(UBound(Voitures()) - 1) End If End Sub

---

Est ce que ma façon de fonctionner est plausible ou est ce une abération ?

Deuxièmement, j'ai essayé de trouver un tuto sur les collections mais je n'en ai pas trouvé sur Dvp.com (ma référence sur le plan des tutos ^^)

Bonjour.

Perso je trouve que ce que tu as fait est bien. Je pense que tu as simplement une faute de syntaxe sur la ligne qui lève une erreur. Je te propose

Code:

---

ReDim Preserve Voitures(UBound(Voitures - 1))

---

Cordialement,

PGZ

Merci pgz.

C'est vrai que les parenthèses n'étaient pas forcément utiles. Mais même sans ça j'ai toujours la même erreur.

Voilà un petit fichier test pour que vous voyer ce que ça donne.
Il y a systématique l'erreur : "L'indice n'appartient pas à la sélection"

Re,

Tu ne m'as pas bien lu. Ce ne sont pas les parenthèses en trop qui gênent, mais celle qui est mal placée. Ca oui :

Code:

---

ReDim Preserve Voitures(UBound(Voitures - 1))

---

Ca, non:

Code:

---

ReDim Preserve Voitures(UBound(Voitures) - 1)

---

COrdialement,

PGZ

Désolé pour la mauvaise lecture.

J'avais déjà corrigé mon écriture mais rien ne change. Apparemment on ne peut utiliser Preserve qu'en augmentant les dimensions de la variable, pas en les diminuant.

Je vais donc devoir transférer toute ma variable dans une variable de transit puis la recopier...

teste ceci

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub aaa() Dim i As Integer Dim tblo() As Integer   ReDim tblo(10) For i = 1 To 10 tblo(i) = i Next i   Debug.Print UBound(tblo) ReDim Preserve tblo(UBound(tblo) - 1) Debug.Print UBound(tblo) End Sub

---

Merci mercatog mais ça ne fonctionne toujours pas.

Ce que je ne comprends pas, c'est que ta macro fonctionne comme il faut mais une fois transposée à mon cas, ça ne marche plus du tout.

J'ai fais ce test
dans un module public

Code:

---

1 2 3 4 5 6

Type Voiture Nom As String Marque As String End Type   Public Voit() As Voiture

---

et la macro test

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Sub aaa() Dim i As Integer   ReDim Voit(1 To 20) For i = 1 To 20 Voit(i).Nom = "nom_" & i Voit(i).Marque = "marque_" & i Next i   For i = 7 To 19 Voit(i).Nom = Voit(i + 1).Nom Voit(i).Marque = Voit(i + 1).Marque Next i ReDim Preserve Voit(1 To UBound(Voit) - 1)   For i = 1 To 19 Debug.Print Voit(i).Nom & vbTab & Voit(i).Marque Next i End Sub

---