Discussion :

[logue_in]

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]

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]

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]

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

[boisgontierjacques]

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]

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,

[casefayere]

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

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

[casefayere]

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]

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]

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,