Discussion :

[bboy-eazy]

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 :

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

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

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

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

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

[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

[Docmarti]

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 :

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

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

[boisgontierjacques]

Bonsoir,

2 exemples de suppression de lignes dans un Array 2D

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

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

Code :

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

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