re
Bon j'ai un peu de mal car là le but n'est pas de mettre des données mais d'en retirer
Bon j'ai biaisé et je te donne ceci mais
1 - je n'ai pas testé
2 - je pense qu'on peut mieux faire
Sub ordre2()
Dim MonTableauSource As Variant
Dim MonTableauSource2 As Variant
Dim MonTableauCible()
Dim MaLigne As Integer
Dim x As Integer, y As Integer, z As Byte, i As Byte
Dim verif As Boolean
MaLigne = Worksheets('ordre0').Range('A65536').End(xlUp).Row
MonTableauSource = Worksheets('ordre0').Range(Cells(1, 1), Cells(MaLigne, 12))
MaLigne = Worksheets('ordre1').Range('A65536').End(xlUp).Row
z = 0
MonTableauSource2 = Worksheets('ordre1').Range(Cells(1, 1), Cells(MaLigne, 12))
For x = 1 To UBound(MonTableauSource)
For y = 1 To UBound(MonTableauSource2)
If MonTableauSource(x, 1) = MonTableauSource2(y, 1) And MonTableauSource(x, 4) = MonTableauSource2(y, 4) And MonTableauSource(x, 8) = MonTableauSource2(y, 8) And MonTableauSource(x, 10) = MonTableauSource2(y, 10) And MonTableauSource(x, 12) = MonTableauSource2(y, 12) Then
z = z + 1
ReDim Preserve MonTableauCible(z)
MonTableauCible(z) = y
Next y
Next x
MaLigne = 1
For y = 1 To UBound(MonTableauSource2)
verif = True
For x = 1 To z
If MonTableauCible(x) = y Then
verif = False
Exit For
End If
Next x
If verif = True Then
For i = 1 To 12
Sheets('1').Cells(MaLigne, i) = MonTableauSource2(y, i)
MaLigne=Maligne + 1
Next i
Next y
End Sub
Edition : Peut-on faire un genre removeitem sue un tableau de variable ? Voilà une question dont je ne trouve pas de réponse
Message édité par: Pascal76, à: 30/06/2005 12:24