cathodique
XLDnaute Barbatruc
Bonjour
En ce dimanche, j'ai voulu améliorer ma manipulation des tableaux. Mais, je m’emmêle les "pinceaux" comme on dit. Je m'en remets à vous pour me venir en aide.
Je récupère dans un tableau certains colonnes de la feuille. Je voudrai extraire de ce tableau dans un autre tableau certaines lignes remplissant les conditions suivantes:
If Tb(i, 3) <> "A" Or Tb(i, 3) <> "C" Then
Là, je suis perdu.
En vous remerciant par avance.
Bon dimanche.
En ce dimanche, j'ai voulu améliorer ma manipulation des tableaux. Mais, je m’emmêle les "pinceaux" comme on dit. Je m'en remets à vous pour me venir en aide.
Je récupère dans un tableau certains colonnes de la feuille. Je voudrai extraire de ce tableau dans un autre tableau certaines lignes remplissant les conditions suivantes:
If Tb(i, 3) <> "A" Or Tb(i, 3) <> "C" Then
Là, je suis perdu.
VB:
Option Explicit
Sub Tableau()
Dim Tb1(), Tb(), i As Integer, j As Byte, n As Integer, Tb2()
With Feuil1.Range("A2:F" & Cells(Rows.Count, 1).End(xlUp).Row)
Tb = Application.Index(.Value, Evaluate("row(1:" & .Rows.Count & ")"), Array(1, 2, 5, 6))
End With
'à partir d'ici je suis perdu
n = 0
For i = LBound(Tb) To UBound(Tb)
For j = 1 To 4
If Tb(i, 3) <> "A" Or Tb(i, 3) <> "C" Then
n = n + 1
ReDim Preserve Tb1(1 To UBound(Tb), 1 To n)
Tb1(i, n) = Tb(i, j)
End If
Next j
Next i
' Tb2 = Application.Transpose(Tb1)
Stop
End SubBon dimanche.