Supprimer lignes vides d'un tableau

**logue_in** · 24/04/2016, 12h04

Bonjour,

Je souhaiterais supprimer les lignes vide du Tableau "Tbl".
Actuellement le Tableau créé ressort bien les données recherchées mais avec de nombreuses lignes vides. Voici la macro:

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
32
33
34
35
36
Sub Calcul()
 
UserForm1.ListBox2.Clear
 
Dim dist As Double
Dim distance As Integer
Dim T As Single, i As Single, 
 
T = UserForm1.ComboBox1.ListIndex + 2
 
LtT = Range("D" & T)
LgT = Range("E" & T)
 
For i = 2 To 200
 
LT = Range("D" & i)
Lg = Range("E" & i)
 
dist = (Sin(LT) * Sin(LtT) + Cos(LT) * Cos(LtT) * Cos(LgT - Lg))
 
If dist <> 1 Then distance = (Atn(-dist / Sqr(-dist * dist + 1)) + 2 * Atn(1)) * 6371 Else distance = "0"
 
  Dim Tbl(1 To 200, 1 To 200)
 
   If distance < UserForm1.ComboBox2.Value Then
 
    Tbl(i, 1) = distance
    Tbl(i, 2) = Range("A" & i)
   End If
 
   UserForm1.ListBox2.ColumnCount = 2
  UserForm1.ListBox2.ColumnWidths = "30,80"
   UserForm1.ListBox2.List = Tbl
 
 Next
End sub

**unparia** · 24/04/2016, 12h09

Bonjour

Il te faut donc ne pas dimensionner le tableau au départ et le redimensionner au fur et à mesure.
Intéresse-toi à Redim Preserve.

EDIT : et si le but est le remplissage d'une listbox, je ne comprends même pas pourquoi passer par un tremplin tableau. Ajoute directement à la listbox et uniquement si condition remplie.

**casefayere** · 24/04/2016, 12h16

Bonjour à tou(te)s

le redimensionner au fur et à mesure.

sauf erreur de ma part, le tableau est à 2 dimensions donc...

mon idee, ajouter une variable

Code :

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

1
2
Dim z As Integer
z = 0

et

Code :

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

1
2
3
4
5
  If distance < UserForm1.ComboBox2.Value Then
    z = z + 1
    Tbl(z, 1) = distance
    Tbl(z, 2) = Range("A" & i)
  End If

à voir....

**Philippe PONS** · 24/04/2016, 12h36

Salut,

autre possibilité à tester: utiliser une ArrayList.
Avantage de l'ArrayList? Elle gère elle même le redimensionnement!
Ca donne ça:

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
 
Sub Calcul()
 
    UserForm1.ListBox2.Clear
 
    Dim dist As Double
    Dim distance As Integer
    Dim T As Single, i As Single
 
    '===Creation de l'ArrayList===
    Dim arrList As Object
    Set arrList = CreateObject("System.Collections.ArrayList")
    Dim varTab As Variant ' pour transformer l'arraylist en tableau
 
    T = UserForm1.ComboBox1.ListIndex + 2
 
    LtT = Range("D" & T)
    LgT = Range("E" & T)
 
    For i = 2 To 200
        LT = Range("D" & i)
        Lg = Range("E" & i)
 
        dist = (Sin(LT) * Sin(LtT) + Cos(LT) * Cos(LtT) * Cos(LgT - Lg))
 
        If dist <> 1 Then distance = (Atn(-dist / Sqr(-dist * dist + 1)) + 2 * Atn(1)) * 6371 Else distance = "0"
 
        Dim Tbl(1 To 200, 1 To 200)
 
        If distance < UserForm1.ComboBox2.Value Then
 
    '    Tbl(i, 1) = distance
    '    Tbl(i, 2) = Range("A" & i)
 
        ' ===insertion dans l'arraylist, à l'index i===
        arrList.Insert i, Array(distance, Range("A" & i))
 
        End If
 
        ' ===NB: ces 3 instructions ne devraient-elles pas être après le next???===
        UserForm1.ListBox2.ColumnCount = 2
        UserForm1.ListBox2.ColumnWidths = "30,80"
 
        ' ===transformer l'ArrayList en tableau
        varTab = arrList.ToArray()
        ' UserForm1.ListBox2.List = Tbl
        UserForm1.ListBox2.List = varTab
    Next
 
End Sub

**casefayere** · 24/04/2016, 13h08

Bonjour Philippe,

Code :

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

arrList.Insert i, Array(distance, Range("A" & i))

on en apprend tous les jours

**boisgontierjacques** · 24/04/2016, 14h15

Bonjour,

exemple de suppression de lignes vides 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
 
Private Sub UserForm_Initialize()
   a = [A2:D7].Value
   Dim tmp(): ReDim tmp(1 To UBound(a))
   For i = LBound(a) To UBound(a)  ' sup lignes vides de a(,)
     If a(i, 1) <> "" Then n = n + 1: tmp(n) = i
   Next
   ReDim Preserve tmp(1 To n)
   Me.ListBox1.List = Application.Index(a, Application.Transpose(tmp), _
      Application.Transpose(Evaluate("Row(1:" & UBound(a, 2) & ")")))
End Sub

Boisgontier
http://boisgontierjacques.free.fr

**Philippe PONS** · 24/04/2016, 14h20

Salut @boisgontierjacques,

A mon humble avis, le premier Dim tmp() est inutile.
Comme vu dans une précédente discussion,
le ReDim fait office de Dim, et déclare aussi la variable.
Cordialement,

**unparia** · 24/04/2016, 14h22

Vous ne croyez vraiment pas qu'il suffirait d'ajouter directement à la listbox (sans aucun tableau tremplin) avec la condition exprimée ?
Le AddItem ne crée, lui, aucune "ligne blanche"

**casefayere** · 24/04/2016, 14h27

Envoyé par unparia

Vous ne croyez vraiment pas qu'il suffirait d'ajouter directement à la listbox (sans aucun tableau tremplin) avec la condition exprimée ?
Le AddItem ne crée, lui, aucune "ligne blanche"

Bonjour unparia,

quand j'ai proposé ma solution, je n'avais pas vu ton "edit" mais pourquoi pas, je pense que maintenant, l'auteur du sujet a le choix
bonne journée

**boisgontierjacques** · 24/04/2016, 14h33

A mon humble avis, le premier Dim tmp() est inutile.

Il faut essayer avant d'affirmer.

Le AddItem ne crée, lui, aucune "ligne blanche"

Oui mais c'est lent et lourd en écriture s'il y a plusieurs colonnes.
La méthode List est la plus rapide

Boisgontier
http://boisgontierjacques.free.fr

**Philippe PONS** · 24/04/2016, 14h51

Il faut essayer avant d'affirmer.

Très juste!
Je viens donc d'essayer, et je confirme.
Pas besoin de Dim tmp().
Si je compile avec Option Explicit, pas de message du compilateur.
Et si je lance le userform, il affiche correctement les lignes, sans blanc.
Mais bon, c'est un peu du détails!
Cordialement,

**unparia** · 24/04/2016, 15h50

Bonjour boisgontierjacques
Plus d'écriture de code, oui
Plus lent, pas vraiment si l'on échappe aux lenteurs de mise à jour de l'affichage pendant le remplissage. Même en utilisant la propriété Visible.

**boisgontierjacques** · 24/04/2016, 20h01

Pour 10.000 lignes et 4 colonnes, avec Additem, on obtient 7 secondes contre 0,2 seconde avec la méthode que j'ai proposé.
(les boucles sur les objets des formulaires ralentissent la vitesse d'éxécution)

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
 
Private Sub UserForm_Initialize()
   t = Timer
   a = [A2:D10000].Value
   j = 0
   For i = LBound(a) To UBound(a)
     If a(i, 1) <> "" Then
        Me.ListBox1.AddItem a(i, 1)
        Me.ListBox1.List(j, 1) = a(i, 2)
        Me.ListBox1.List(j, 2) = a(i, 3)
        Me.ListBox1.List(j, 3) = a(i, 4)
        j = j + 1
     End If
   Next i
   MsgBox Timer - t
End Sub

Pour 10.000 lignes, avec ArrayList, on obtient 0,5 s

Code :

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

1
2
3
4
5
6
7
8
9
 
Private Sub UserForm_Initialize()
  Set AL = CreateObject("System.Collections.ArrayList")
  a = [A2:D10000].Value
  For i = LBound(a) To UBound(a)
     If a(i, 1) <> "" Then AL.Add Array(a(i, 1), a(i, 2), a(i, 3), a(i, 4))
  Next i
  Me.ListBox1.List = Application.Transpose(Application.Transpose(AL.toarray))
End Sub

Boisgontier
http://boisgontierjacques.free.fr

**logue_in** · 24/04/2016, 20h02

Un très grand Merci pour vos réponses, on apprend vite avec vous!

Pour le moment j'ai essayé:

La méthode de casefayere mais ça me calcul tout, comme si la condition n'était pas prise en compte.
La méthode de Philippe semble bien fonctionner mais me renvoie l'erreur sur ce code ( impr écran ci dessous), je ne vois pas la cause...
arrList.Insert i, Array(distance, Range("A" & i) surligner en jaune. Pourtant la valeur correspond à i est correcte quand on passe la sourie dessus.
Nom : test.jpg
Affichages : 3595
Taille : 168,3 Ko

Nom : test.jpg
Affichages : 3595
Taille : 168,3 Ko

Ne me reste plus qu'à tester la méthode de jacques!

**Philippe PONS** · 24/04/2016, 20h27

Hello,

Dans l'instruction d'insertion, essai de remplace i par i-2
Il semble qu'il faille démarrer avec index=0!

Code :

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

1
2
3
 
' ===insertion dans l'arraylist, à l'index i===
arrList.Insert i - 2, Array(distance, Range("A" & i))

EDIT
=====
Dans ce cas, la méthode Insert est mal choisie.
Il vaut mieux utiliser la méthode Add:

Code :

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

1
2
3
 
' ===ajout à l'arraylist===
arrList.Add Array(distance, Range("A" & i))

**logue_in** · 24/04/2016, 20h38

C'est exactement ce que je viens d'essayer mais le résultat me renvoie une listbox vide...

Même chose avec la méthode add

**Philippe PONS** · 24/04/2016, 20h46

As tu regardé avec la fenêtre des variables locales(menu Affichage) le contenu du tableau varTab?
Est il bien rempli?

EDIT:
Le tableau est bien rempli, mais il n'a pas le bon format.
Essai une autre solution.

**logue_in** · 24/04/2016, 21h14

Rien ne s'affiche...je n'ai aucune erreur. C'est comme si la listbox se remplissait d'éléments vides

**Philippe PONS** · 24/04/2016, 21h34

Bon, dernier essai avant que j'aille me coucher!!

Essai ça, pour redresser le tableau.
Sur mon test, ça marche!

Code :

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

1
2
3
4
5
 
' ===transformer l'ArrayList en tableau
varTab = arrList.ToArray()
' UserForm1.ListBox2.List = Tbl
UserForm1.ListBox2.List = WorksheetFunction.index(varTab, 0) '<<= modif ici!

Je viens de tester sur ton fichier: c'est ok.

Voici le code:

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
 
Sub Calcul()
 
 
 UserForm1.ListBox2.Clear
 
    Dim dist As Double
    Dim distance As Integer
    Dim T As Single, i As Single
 
    '===Creation de l'ArrayList===
    Dim arrList As Object
    Set arrList = CreateObject("System.Collections.ArrayList")
    Dim varTab As Variant ' pour transformer l'arraylist en tableau
    Dim varTab2 As Variant ' <<==modif
 
 
    T = UserForm1.ComboBox1.ListIndex + 2
 If T > 2 Then
    LtT = Range("D" & T)
    LgT = Range("E" & T)
 End If
    For i = 2 To 200
        LT = Range("D" & i)
        Lg = Range("E" & i)
 
        dist = (Sin(LT) * Sin(LtT) + Cos(LT) * Cos(LtT) * Cos(LgT - Lg))
 
        If dist <> 1 Then distance = (Atn(-dist / Sqr(-dist * dist + 1)) + 2 * Atn(1)) * 6371 Else distance = "0"
 
        Dim Tbl(1 To 200, 1 To 200)
 
        If distance < UserForm1.ComboBox2.Value Then
 
    '    Tbl(i, 1) = distance
    '    Tbl(i, 2) = Range("A" & i)
 
        ' ===insertion dans l'arraylist, à l'index i===
        arrList.Add Array(distance, Range("A" & i).Value) ' <<==modif
 
        End If
 
        ' ===NB: ces 3 instructions ne devraient-elles pas être après le next???===
        UserForm1.ListBox2.ColumnCount = 2
        UserForm1.ListBox2.ColumnWidths = "30,80"
 
        ' ===transformer l'ArrayList en tableau
        varTab = arrList.ToArray()
        ' UserForm1.ListBox2.List = Tbl
        varTab2 = WorksheetFunction.Index(varTab, 0) ' <<==modif
        UserForm1.ListBox2.List = varTab2
    Next
 
 
 
End Sub

**logue_in** · 24/04/2016, 22h01

Extra! Félicitation Philippe et Merci pour tout ce temps consacré! Bonne soirée!

!!

Supprimer lignes vides d'un tableau

Macros et VBA Excel

Discussions similaires

Partager

Partager