Gestion de tableau en VBA

Version imprimable

21/03/2016, 09h20
Méliodas

Gestion de tableau en VBA

Bonjour,

J'aurais une petite question à vous posez concernant la gestion de tableau sous vba.

Voilà, j'ai un tableau comprenant l'ensemble des résultats d'une recherche multi-terme que j'ai codé.

Par exemple:

indice 0: moteur
indice 1: moteur Mec
indice 2: moteur simplifié ...

Je code actuellement une fonction permettant de supprimer des termes spécifiques de mon tableau. Admettons pour cet exemple que je supprime "Moteur Mec".

Comment faire pour retrier mon tableau ou plutôt le réajuster ?

Dans cet exemple:

indice 0: moteur
indice 1:
indice 2: moteur simplifié ...

devient:

indice 0: moteur
indice 1: moteur simplifié ...

Merci pour votre aide.
21/03/2016, 09h23
Philippe Tulliez

Bonjour,

Citation:

Voilà, j'ai un tableau comprenant l'ensemble des résultats d'une recherche multi-terme que j'ai codé.

A moins d'être atteint de cécité, en guise de code je ne vois rien.
21/03/2016, 09h30
Méliodas

Cétait juste une partie introductive, ma question porte sur le fait de supprimer une case de mon tableau contenant des String et de réordonner le tableau par la suite.
21/03/2016, 10h05
Philippe Tulliez

Bonjour,

Citation:

Cétait juste une partie introductive, ma question porte sur le fait de supprimer une case de mon tableau contenant des String et de réordonner le tableau par la suite.

J'ai beau lire et relire cette partie "introductive", j'ai du mal a comprendre mais sûrement qu'un autre intervenant plus subtil que moi aura deviner le sens de ta question.
21/03/2016, 11h57
Marc-L

Bonjour, bonjour !

Au lieu d'un "tableau" (super, quelle précision ! :roll:) utiliser une collection ou un dictionnaire … (cf aide VBA interne !)

Voici toute l'aide que l'on peut apporter sans voir de code posté et balisé ! (cf règles de ce forum)

______________________________________________________________________________________________________
Je suis Paris, Charlie, …

2 pièce(s) jointe(s)

Bonsoir,

Suppression d'une ligne d'un Array() 2D en fonction d'une clé

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub SuppressionLignesCle()
   a = [A2:D7].Value
   Dim tmp(): ReDim tmp(1 To UBound(a))
   For i = LBound(a) To UBound(a)
     If a(i, 3) <> "Issy" Then n = n + 1: tmp(n) = i
   Next
   ReDim Preserve tmp(1 To n)
   a = Application.Index(a, Application.Transpose(tmp), _
      Application.Transpose(Evaluate("Row(1:" & UBound(a, 2) & ")")))
  [g2].Resize(UBound(a), UBound(a, 2)) = a
End Sub

Array 2D encapsulé dans un dictionnaire

La suppression d'une ligne devient très simple.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Sub ArrayEncapsuléDico()
  Set d = CreateObject("Scripting.Dictionary")
  a = [A2:C5]
  For i = LBound(a) To UBound(a)
    d.Item(a(i, 1)) = Array(a(i, 1), a(i, 2), a(i, 3))
  Next i
  '--accès à la ville de Durand
  [k2] = d("Durand")(1)
  '---suppression d'une ligne
  d.Remove ("Espinasse")
  For c = 1 To 3
    [F2].Offset(, c - 1).Resize(d.Count, 1) = Application.Index(d.items, , c)
  Next c
End Sub

Boisgontier