Manipulation Tableau Variables

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:

---

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

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:

---

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

---

Merci pour vos réponses.

ouskel'n'or -> l'idée m'a apparue vraiment séduisante puisqu'elle ressemble à ce que je voudrais faire, cependant, à l'exécution, il ne se passe rien du tout.

fring -> J'ai testé ton prg, ça semble être une piste à exploiter, mais jusqu'à maintenant, je n'ai jamais utilisé les Collections (il va falloir que je comprenne bien leurs fonctionnements avant de pouvoir les exploiter). Par contre est-il possible d'avoir plusieurs colonnes dans une collection ?

si quelqu'un à une autre idée qui résoudrait mon pb simplement, ce serait sympa.

Alors je n'ai pas compris ta question : Si ton NomTableau(j) = "H12000", mon code supprime la ligne 12000. Ce n'est pas ce que tu voulais ? :aie:
Bon, je relis la question. :mouarf:

Edit
J'ai relu :oops:
Autant pour moi, Fring te donne la solution. Il te donnera bien des explications ;)
(Hello Fring)

(Hello Ousk ;))

Concernant la Collection, à ma connaissance elle n'accepte qu'une seule colonne mais tu peux utiliser plusieurs collections.

Concernant le Tableau (toujours selon mes connaissances) il n'est pas possible de supprimer une ligne, tu peux seulement supprimer le contenu de la ligne ce qui aura comme résultat

Code:

---

1 2 3

NomTableau(0) = "H11000" NomTableau(1) = "" '<-- ligne vide NomTableau(2) = "H13000"

---

Une autre solution éventuelle que je vois, serait de transposer le premier tableau dans un second

Code:

---

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

Sub test2() Dim Tablo1(2), Tablo2(), Compt As Integer, j As Integer   Tablo1(0) = "H11000" Tablo1(1) = "H12000" Tablo1(2) = "H13000"   For j = 0 To UBound(Tablo1) If Tablo1(j) <> "H12000" Then Compt = Compt + 1 ReDim Preserve Tablo2(Compt - 1) Tablo2(Compt - 1) = Tablo1(j) End If Next j   For j = 0 To UBound(Tablo2) MsgBox Tablo2(j) Next End Sub

---

Question subsidiaire, pourquoi mettre 10L d'eau dans le sceau pour en vider 1L par la suite ? Ne serait-il pas possible de directement remplir le sceau à 9L ?

Pour te montrer le fonctionnement d'une collection, je te mets un exemple avec "l'item" et la "key"

Code:

---

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

Sub Collection_Créer() Dim MaColect As New Collection ' Rempli la collection MaColect.Add "Et alors ? ", "Un" MaColect.Add "C'est ", "Deux" MaColect.Add "quoi ", "trois" MaColect.Add "ton problème ?", "Quatre" 'Affichage MsgBox MaColect("Un") & MaColect("Deux") & MaColect("trois") & MaColect("Quatre") 'pour supprimer "Deux", c'est comme te le mets fring, sauf que l'index est la clé MaColect.Remove "Deux" 'et pour vérifier si ça a bien supprimé "Deux", tu remets MsgBox MaColect("Un") & MaColect("Deux") & MaColect("trois") & MaColect("Quatre") 'qui provoquera une erreur, "Deux" n'existant plus

---

Et on peut jouer comme ça à l'infini :aie:
Maintenant, si tu ne mets pas de clé, la solution de Fring est beaucoup plus simple :mouarf:
Bonne journée

ouskel'n'or -> Non effectivement, je pense que tu as probablement mal compris ma question, en réalité, je ne voulais pas supprimer la ligne 12000 mais dans un tableau de variables, la ligne qui contient la value H12000 unquement.

Est-ce que ça te semble plus clair ?

en tout cas merci de t'intéresser un mon soucis.

As-tu jeté un oeil à ma dernière réponse ?
Il serait bien que tu nous dises exactement ce que tu veux faire.
A quoi te sert ton tableau ? Que contient-il ? Dans quelle conditions veux-tu supprimer un index ? t'sais, tes rats !
A+

Merci à tout le monde et particulièrement à "Fring" car ça correspond exactement au résultat que je voulais.

Je vais donc considérer mon problème comme résolu.

toutes mes amitiés