Discussion :

[Clo72]

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

[DAUDET78]

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.

[XylonAkau]

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

Code :

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

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.

[Clo72]

Merci beaucoup XylonAkau
Ca fonctionne