Aide sur variable tableau

Version imprimable

Bonjour,

J'essaye de m'habituer aux varaibles tableau et pouvoir faire diverses choses avec:

J'aimerai réussir à supprimer les données d'une plage selon condition.
Facile à faire directement sur la plage mais j'aimerai réussir à la faire en passant par un tableau

imaginons:
col A     col B
a           1
b           0
c           1
d           0
J'aimerai par exemple supprimer les lignes ayant 0, je ne sais pas comment coder le fait de supprimer la ligne du tableau si la colonne B contient 0. Comment faire pour redimensionner la tableau en supprimant cette ligne mais pas les autres?
Code:

1 2 3 4 5 6 7 8 9 10 Sub test() Dim tabl() As Variant tabl() = ThisWorkbook.Sheets(1).Range("A1").CurrentRegion.Value For i = LBound(tabl, 1) To UBound(tabl, 1) If Val(tabl(i, 2)) = 0 Then ' supprimer tabl(i) End If Next i ThisWorkbook.Worksheets(1).Range("A7").Resize(UBound(tabl, 1), UBound(tabl, 2)).Value = tabl End Sub
merci d'avance devotre aide

merci d'avance

25/03/2016, 14h54
cerede2000
Bonjour à toi,

Si tu as parcourus un peu le forum à la recherche de chose similaire... Tu as surement vu que pour supprimer dans un tableau il est primordial de commencer par la fin et non par le début :)
Code:

1 2 3 4 For i = UBound(tabl, 1) To LBound(tabl, 1) Step -1 If Val(tabl(i, 2)) = 0 Then ' supprimer tabl(i) End If
25/03/2016, 15h00
bboy-eazy

je n'ai pas regardé dans le forum j'ai juste regardé le tuto mais je n'ai pas trouvé mon bonheur.

merci pour l'info, mais comme je ne sais pas comment on supprimer toute les données de la dimensions 1, je ne savais pas que ca se comportait comme pour la suppressio nde ligne directemetn dans la feuille

EDIT: je pense que tout est dans le redim preserve pour redimensionner mon tableau mais comment bien l'employé la je sèche

Citation:

Envoyé par bboy-eazy

EDIT: je pense que tout est dans le redim preserve pour redimensionner mon tableau mais comment bien l'employé la je sèche

Bonjour.

Redim Preserve ne peut redimensionner que la dernière dimension.

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
31
Sub test_ReDimPreserve_Transpose()
 
tabl = ThisWorkbook.Sheets(1).Range("A1").CurrentRegion.Value
 
ReDim t(LBound(tabl, 2) To UBound(tabl, 2), LBound(tabl, 1) To 1)
 
ligne = LBound(tabl, 1)
For i = LBound(tabl, 1) To UBound(tabl, 1)
If Val(tabl(i, 2)) = 0 Then
' ne pas ajouter tabl(i)
Else
 ' ajouter tabl(i)
 ReDim Preserve t(LBound(tabl, 2) To UBound(tabl, 2), LBound(tabl, 1) To ligne)
For J = LBound(tabl, 2) To UBound(tabl, 2)
 t(J, ligne) = tabl(i, J)
Next
ligne = ligne + 1
 
End If
Next i
 
Set dest = ThisWorkbook.Worksheets(1).Range("E7").Resize(UBound(tabl, 1), UBound(tabl, 2))
dest.NumberFormat = "General"
dest.Value = tabl
 
Set dest = ThisWorkbook.Worksheets(1).Range("J7").Resize(ligne - 1, UBound(tabl, 2))
dest.NumberFormat = "General"
dest.Value = Application.WorksheetFunction.Transpose(t)
dest.Select
 
End Sub

25/03/2016, 17h22
Invité

Bonjour,
Il faut comptabiliser le nombre de cellules que tu souhaite garder (lignes et colonnes) te ton tableau.

Créer un tableau temporaire avec le fonction redim,

Parcours ton tableau et affecter que les valeurs à garder au tableau temporaire!

3 pièce(s) jointe(s)

Bonsoir,

2 exemples de suppression de lignes dans un Array 2D

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

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

Code:

1
2
3
4
5
6
 
Sub SupLignesColCle()
  a = [A2:D7].Value
  a = SupArrayLignes(a, 3, "Issy")
  [G2].Resize(UBound(a), UBound(a, 2)).Value2 = a
End Sub

Boisgontier

La façon habituelle consiste à utiliser une boucle :

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Sub Supprimer_Des_Elements_Dans_Un_Tableau()
 
tabl = Range("A1:C12")
 
Feuil1.Activate
 
ligne = LBound(tabl, 1)
 
For i = LBound(tabl, 1) To UBound(tabl, 1)
If Val(tabl(i, 2)) = 0 Then
' ne pas garder cette ligne
Else
 'garder cette ligne
 If ligne = i Then
  ' la ligne est deja a la bonne place dans le tableau
 Else
  ' il faut changer la position de cette ligne dans le tableau
  For j = LBound(tabl, 2) To UBound(tabl, 2)
   tabl(ligne, j) = tabl(i, j)
  Next
 End If
 
 ligne = ligne + 1
 
End If
Next i
 
'Supprimer les autres lignes
 
For i = ligne To UBound(tabl, 1)
 
 For j = LBound(tabl, 2) To UBound(tabl, 2)
  tabl(i, j) = ""
 Next
 
Next
 
Set dest = Range("E1").Resize(UBound(tabl, 1), UBound(tabl, 2))
Columns("E:G").Clear
dest.NumberFormat = "General"
dest.FormulaLocal = tabl
 
dest.Select
 
End Sub

29/03/2016, 14h21
bboy-eazy

Merci à tous pour vos réponse j'ai compris le principe maintenant :)