Discussion :

[DiamonDonald]

Bonjour à tous.

Je vous expose mon problème :
J'ai un tableau à 2 dimensions, la première colonne me sert d'index et la seconde contient des valeurs calculées. Donc je stocke mes calculs dans ce tableau.
Mais je voudrai faire un tri sur cette 2ième colonne afin de vérifier s'il n'y a pas de valeurs identiques (ce sont des Integer) et que je retourne un message d'erreur si tel est le cas.

Mais voila je ne sais pas comment faire ce tri dans mon tableau...

Il y aurait-il une âme charitable afin de m'éclairer.

Merci d'avance

[Aspic]

Utilise plutot une SortedList ! C'est un tableau bidimentionnel et comme son nom l'indique, il trie automatiquement les valeurs

Génial non ?

[bobby51]

si c'est juste pour verifier que y a pas de valeur identique, ta qu'a compare chaque valeur avec les autres et dès que 2 valeur sont identique tu met ton message d'erreur et tu sort de ta boucle
je te le fait en algo
pour i de 0 à nbligne ( l'index de ta derniere ligne logiquement )
pour j de i+1 à nbligne
si tab(2 'ta colonne valeur, i)=tab(2, j) alors
afficher("erreur")
'on sort de la boucle
fin si
fin pour
fin pour
y a peut-etre des erreurs dans l'algo a verifier!

[bobby51]

finalement la méthode d'aspic est surement plus approprié

[Aspic]

Bah oui puisque la SortedList fait déjà tout le boulot

N'oublie pas le tag

[DiamonDonald]

OK, merci bien, je test et je reviens mettre résolu

[DiamonDonald]

Désolé, j'enlève le résolu pour le moment mais j'ai un petit soucis avec la sortedList.

Voila ce que je veux faire :

Clé | Valeur
"BR" | 1500
"BR" | 1501
"BR" | 1502
"BL" | 4300
"BL" | 4301
"BR" | 1503

C'est pas possible? Puisque chaque clé doit être unique...
J'ai pensé que inverser les clés et les valeurs ci dessus me résoudrait le problème, cela me donne donc ça :

Clé | Valeur
1500 | "BR"
1501 | "BR"
1502 | "BR"
4300 | "BL"
4301 | "BL"
1503 | "BR"

En plus cela me permettait de contrôler s'il n'y a pas de doublon dans mes entiers. mais le problème est que par la suite je voudrai pouvoir afficher la liste des entiers en fonction des "BR" ou des "BL".
Mais je ne peux pas travailler directement sur les valeurs pour afficher les clé. enfin j'ai pas trouvé en tout cas.
Je veux pouvoir stocker une liste de valeur qui seront liées soit à "BR" soit à "BL" et ensuite avoir accès aux éléments de cette liste (ex: afficher tous les BR ou tous les BL) tout en controlant que dans mes valeurs il n'y en ait pas d'identiques...
Je ne sais pas comment je peux faire. Help please !!

[Aspic]

Ah oui la clef doit être unique donc faut repasser à ton tableau normal si tu veux mettre des clefs identiques mais c'est bizarre car par définition, une clef c'est unique !

[DiamonDonald]

Oui.

Donc pour récapituler je veux avoir ça :

Clé | Valeur
"BR" | 1500
"BR" | 1501
"BR" | 1502
"BL" | 4300
"BL" | 4301
"BR" | 1503

Je veux ensuite pouvoir vérifier que les valeurs ne comportent pas de doublons.
c'est à dire que je retourne une erreur si j'ai quelque chose de ce type :

Clé | Valeur
"BR" | 1500
"BR" | 1500

Donc j'en reviens au début... Le mieux pour réaliser ce que je veux faire c'est de rester sur un tableau bidimensionel? et si oui, comment je peux tester ma colonne valeur pour vérifier qu'il n'y ai pas de doublons?

Merci d'avance pour vos conseils.

[Aspic]

En parcourant les éléments ! comment est déclaré ton tableau ?

[DiamonDonald]

Mon tableau est rempli en fonction de mon datagrid.
J'ai une CheckBoxColonne "BR". En fonction que "BR" soit coché ou pas, je rempli mon tableau en faisant un calcul sur chaque ligne.
Je fais :

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
 
'Je redimensionne mon tableau en fonction du nombre de lignes du DGV
Redim resultat (1,Total_LigneDGV)
 
'Je passe chaque ligne de mon DGV
For Each dtgr as DataGridViewRow in MonDGV
 
'je test si la cellule "BR" de la ligne est cochée ou pas et je rempli mon DGV en fonction, le calcul n'est pas le même...
'La colonne 0 de resultat(,) correspond aux "BR" et la 1 aux "BL"
If dtgr.Cells("BR").Value = True Then
idx_row = dtgr.Index
resultat(0,idx_row) = MonCalcul
ElseIf dtgr.Cells("BR").Value = False Then
idx_row = dtgr.Index
resultat(1,idx_row) = MonCalcul2
End If
Next dtgr

Comment-ça en parcourant les éléments?

[DiamonDonald]

Bon j'ai finalement réussi à me débrouiller avec mon tableau, je met le code de ma procédure et j'aimerai vos avis si ça ne vous dérange pas. Merki d'avance

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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
  Sub Charger()
        Dim Obj_Etor_Bloc As New Etor_Bloc
        Dim Obj_Etor As New Etor
        Dim idx_row As Integer
 
        Dim total_ligne = My_Frm_confAPI.DGV_Rgt_Etor.Rows.Count - 1
 
        ReDim resultat(1, total_ligne)
        Try
 
            For Each dtgr As DataGridViewRow In MonDGV.Rows
                'Sort du traitement si c'est la dernière ligne, car elle ne doit pas être traitée.
                If dtgr.Index = MonDGV.Rows.Count - 1 Then
                    Return
                End If
 
                'Calcul pour chaque ligne  en fonction des BR ou des BL 
                ' on stocke les valeurs dans un tableau bidimensionnel, si la valeur existe déjà, retourne un message d'erreur
                If dtgr.Cells("T_BR").Value = True Then
                    idx_row = dtgr.Index
                    resultat(0, idx_row) = MonCalcul
 
                    'On test si la valeur calculée n'est pas déjà contenue dans le tableau.
                    For i As Integer = 0 To resultat.GetUpperBound(0)
 
                        If Not (i = idx_row) Then
                            If resultat(0, i) = resultat(0, idx_row) Then
                                MessageBox.Show("[ERREUR] : le calcul obtient un doublon au rang : " & Obj_Etor.Rang)
                            ElseIf resultat(1, i) = resultat(0, idx_row) Then
                                MessageBox.Show("[ERREUR] : le calcul obtient un doublon au rang : " & Obj_Etor.Rang)
                            End If
                        End If
 
                    Next i
                ElseIf dtgr.Cells("T_BR").Value = False Then
                    idx_row = dtgr.Index
                    resultat(1, idx_row) = MonCalcul2
 
                    For i As Integer = 0 To resultat.GetUpperBound(0)
 
                        If Not (i = idx_row) Then
                            If resultat(0, i) = resultat(0, idx_row) Then
                                MessageBox.Show("[ERREUR] : le calcul obtient un doublon au rang : " & Obj_Etor.Rang)
                            ElseIf resultat(1, i) = resultat(0, idx_row) Then
                                MessageBox.Show("[ERREUR] : le calcul obtient un doublon au rang : " & Obj_Etor.Rang)
                            End If
                        End If
 
                    Next i
 
                End If
 
            Next dtgr
 
        Catch ex As Exception
            MessageBox.Show(ex.Message, ex.Source)
 
        End Try
 
    End Sub