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