Extraction à partir d'un tableau

Bonjour à tous,

Dans un tableau A (trié en décroissant), j'ai 12,11,11,10,9,8,2
ou bien 10,7,6,5,4,3,0

Je souhaite garder garder dans un tableau B : 12,11,10,9,8
ou bien 7,6,5,4,3

Autrement dit, la suite de nombres en décroissant.

Comment le faire rapidement ?

Merci d'avance pour vos réponses

En gros, tu veux retirer les doublons ? ben y a plus ka , faut kon !
Ce n'est pas un problème de VB6 .... mais d'écriture de l'organigramme.

_ Ia ora na.
_ Une fois les doublons éliminés, voici une solution possible :

Code:

---

1 2 3 4 5 6 7

Dim I, K K = 0 If (TabA(0) = (TabA(1) + 1)) Then TabB(0) = TabA(0): K = 1 For I = 1 To UBound(TabA) - 1 If (TabA(I) = (TabA(I + 1) + 1)) Or (TabA(I - 1) = (TabA(I) + 1)) Then TabB(K) = TabA(I): K = K + 1 Next If (TabA(I - 1) = (TabA(I) + 1)) Then TabB(K) = TabA(I)

---

_ Il y a sans doute plus simple, mais le fait que l'un des éléments à retenir puisse être le premier ou le dernier complique les choses.
_ Dernier point : dans vos exemples, il n'y a jamais qu'une série de valeurs consécutives ; si votre tableau A en comporte plusieurs, la boucle ci-dessus les placera toutes dans le tableau B (par exemple : 8, 7, 6, 3, 2, 1) ; il faudrait prévoir une autre boucle pour isoler les sous-tableaux de B.
_ Bon courage pour la suite.

Merci beaucoup XylonAkau
Ca fonctionne