Discussion :

[hehee]

Est-il possible de faire une recherche dans un Array (Tableau dynamique) et d'enlever toutes les lignes donc la 2e colonne ne contient rien ?

Je pourrais le faire dans le tableau Excel avec la fonction:

Code :

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

Range("B3:B" & Range("A" & derniere_cellule).Row).SpecialCells(xlCellTypeBlanks).EntireRow.Delete

sauf que vu que j'ai plus de 900 000 lignes, c'est long

Merci!

[Invité]

Salut hehee

Essaye ceci

Code :

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

Range("B3:B" & Range("A" & derniere_cellule).Row).SpecialCells(xlCellTypeBlanks).EntireRow.ClearContents

Puis peut-être un tri par la suite

A+

[hehee]

Merci, mais ce type de code est valide pour des range. Moi, je veux faire l'opération dans un tableau VBA. Je prends mes données de la feuille, je les enregistre dans un tableau à 2 dimensions et c'est là que j'aimerais faire le tout. Ceci accélère X1000 le temps d'exécution.

Hehee

[Invité]

Re,

Désolé, je n'avais pas compris

Peux tu nous mettre le code que tu utilises pour mettre les données dans ton tableau ?

A+

[casefayere]

Bonsoir à tou(te)s,

tu peux essayer avec cet exemple à adapter, mais je ne sais pas le temps que ça prendra :

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
Option Base 1
Sub essai()
Dim Tbl, x As Long, tbl2(), y As Long, derlg As Long
derlg = Range("A" & Rows.Count).End(xlUp).Row
Tbl = Range("A3:B" & derlg)
y = 0
For x = 1 To UBound(Tbl)
  If Tbl(x, 2) <> "" Then
    y = y + 1
  End If
Next x
ReDim tbl2(1 To y, 1 To 2)
y = 0
For x = 1 To UBound(Tbl)
  If Tbl(x, 2) <> "" Then
    y = y + 1
    tbl2(y, 1) = Tbl(x, 1)
    tbl2(y, 2) = Tbl(x, 2)
  End If
Next x
Range("A3:B" & derlg).ClearContents
Range("A3:B" & UBound(tbl2, 1)) = tbl2
End Sub