Discussion :

[Méliodas]

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.

[Philippe Tulliez]

Bonjour,

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.

[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.

[Philippe Tulliez]

Bonjour,

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.

[Marc-L]

Bonjour, bonjour !

Au lieu d'un "tableau" (super, quelle précision ! ) 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, …

[boisgontierjacques]

Bonsoir,

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

Code :

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

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 :

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

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