Discussion :

[Troudz]

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.

[Didier Gonard]

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

[Troudz]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

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
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 ^^)

[pgz]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

ReDim Preserve Voitures(UBound(Voitures - 1))

Cordialement,

PGZ

[Troudz]

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"

[pgz]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

ReDim Preserve Voitures(UBound(Voitures - 1))

Ca, non:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ReDim Preserve Voitures(UBound(Voitures) - 1)

COrdialement,

PGZ