Discussion :

[oscar.cesar]

bonjour
voila
j'ai une feuille dans laquelle j'ai une serie de chiffres.
une serie par ligne ou chaque ligne commence en colonne B. la premiere ligne en 6.

en partant de B6 , j'ai la serie 5-8-2 (un chiffre par cellule et une serie par ligne)
en partant de B7 , jai la serie 11-2-5

type de Synthese a realisée:
le choix A) ou B) sera par un combobox
a )je voudrai realise la synthese sans classement croissant ou decroissant
soit 5-8-2 + 11-2-5 resultat synthese 5-8-2-11

b)je voudrai realise la synthese sans classement croissant ou decroissant
soit 5-8-2+11-2-5 resultat intermediaire 5(2)-8-2(2)-11 Resultat synthese : 5-2-8-11

je rajoute que le resultat de la synthese doit etre affiche dans la meme feuille que les series , à partir de B2jusqu'en T2

j'ai aucune idee pour aborde le code je pensai utilise un tableau mais......


cordialement

[ouskel'n'or]

b)je voudrai realise la synthese sans classement croissant ou decroissant
soit 5-8-2+11-2-5 resultat intermediaire 5(2)-8-2(2)-11 Resultat synthese : 5-2-8-11

A quoi va te servir ce résultat intermédiaire ? En as-tu vraiment besoin ?
En ignorant ce passage intermédiaire, je te propose une "méthode"... (je n'en suis pas très fier car je pense qu'on peux faire mieux)
Donc juste une idée à 1h34 du matin... et parce que tu n'avais pas encore de réponse

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub AvecCollection()
Dim Collect As New Collection, i As Byte, j As Byte
    For i = 2 To 4 'Où 4 représente la dernière colonne
         Collect.Add (Cells(6, i).Value)
         Collect.Add (Cells(7, i).Value)
    Next
    For i = Collect.Count To 4 Step -1 'Où 4 représente le début de la seconde série
        For j = Collect.Count - 1 To 1 Step -1
            If Collect(i) = Collect(j) Then
                Debug.Print "Efface " & Collect(i)
                Collect.Remove i
                Exit For
            End If
        Next
    Next
    'Lecture sans doublon (à coller ligne 2)
    For i = 1 To Collect.Count
        MsgBox Collect(i)
    Next
End Sub

Tu sauras mettre le résultat là où il faut qu'il soit ?
Bonne nuit

[oscar.cesar]

bonjour ouskel'n'or
pour b) le resultat intermediaire etait pour l'explication.
dans le programme final, ce resultat intermediaire n'existera pas.

pour le reste , l'histoire des collections, Se manipule t'il comme le reste ?
je vais regarder cela


merci

[ouskel'n'or]

Bonjour Oscar,
Pour les collections : A l'inverse des tableaux, tu peux supprimer un item avec remove, et collection.count donne la nouvelle dimension.