Compter doublons dans colonne datagridview

Version imprimable

Voir 40 message(s) de cette discussion en une page

09/08/2012, 16h09
IL-MAFIOSO

Compter doublons dans colonne datagridview

Bonjour à tous,

Une fois de plus je viens vers vous. J'ai dans mon application un Table1datagridview. Je souhaiterais pouvoir compter les doublons de deux colonnes en particulier (par exemple la colonne 7 et 9).

Exemple :

Colonne 7 // Colonne 9
7 // 8
12 // 10
14 // 20
7 // 8
12 // 13
25 // 11
30 // 11

J'aimerais récupérer ce résultat dans 2 variables (var7 pour colonne 7 et var9 pour colonne 9)
Le hic aussi est que je dois jouer sur les deux colonnes.
Dans l'exemple ci-dessus, j'ai 2 doublons dans la colonne 7 et 2 doublons dans la colonne 9.
La difficulté vient aussi du fait que lorsqu'un doublon est détecté dans la colonne 7, je vérifie si dans la colonne 9, les valeurs sont aussi les mêmes pour les lignes considérés. Si elles sont identiques, je ne veut pas incrémenter ma var7. Même principe pour la var9 mais dans l'autre sens

Dans cet exemple, le résultat sera var7 = 1 et var9 = 1

J'ai pas réussi à mettre la main sur un bout de code qui permette de faire cela. Je pense qu'il faut faire une boucle sur le datagridview mais je ne sais pas comment faire.

Encore une fois, merci pour votre future aide.

Votre DataGridView est-il alimenté via une requête sur une base de donnée ?

Si oui, vous pouvez facilement obtenir votre résultat via une simple requête sql.

Exemple (sql server 2005) :
Code:

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 --création d'une table temporaire et insertion des données pour l'exemple CREATE TABLE #T_TMP ( COL INT ) INSERT INTO #T_TMP VALUES (7) INSERT INTO #T_TMP VALUES (12) INSERT INTO #T_TMP VALUES (14) INSERT INTO #T_TMP VALUES (7) INSERT INTO #T_TMP VALUES (7) INSERT INTO #T_TMP VALUES (12) INSERT INTO #T_TMP VALUES (17) INSERT INTO #T_TMP VALUES (14) --requête permettant d'obtenir ce que vous voulez SELECT A.NBR, COUNT(*) as 'QUANTITY' FROM ( SELECT COL, COUNT(*) AS 'NBR' FROM #T_TMP GROUP BY COL ) A GROUP BY NBR --supression de la table temporaire DROP TABLE #T_TMP
Sinon, il vous faut écrire un algoritme qui parcours les lignes de votre contrôle en comptant les occurances de chaque valeur. Ce sera plus facile si votre table est triée.

Bon code.

09/08/2012, 16h32
IL-MAFIOSO
Salut et merci pour ta réponse tardive. Entre-temps j'ai du éditer mon premier post car la méthode que je cherche est un peu particulière. J'alimente mon Table1datagridview via une base access que je filtre ensuite de cette manière :
Code:

1 2 3 Table1bindingSource.Filter = "Type='Mission'" Me.Table1DataGridView.DataSource = Table1bindingSource Me.Table1DataGridView.Visible = True
Désolé d'avoir du éditer mon premier post

Rebonjour à tous,

Toujours à la chasse des doublons. Faire un algorithme est hors compétences pour moi .... Je pensais aussi à faire un truc de ce genre :

La recherche s'effectue sur deux colonnes 7 et 9 du Table1datagridview. Je pensais pouvoir faire des boucles du style :

1)La première boucle part de la première ligne de la colonne 7 jusqu'à l'avant dernière ligne (for A = .....)
pour récupérer à chaque fois la valeur de ma colonne 7.
2)J'intègre dans cette première boucle une deuxième boucle (for B=....) qui part de A + 1 jusqu'à la dernière ligne pour récupérer la nouvelle valeur de ma colonne 7.
3)Je compare les deux valeur et si égale, je vérifie que pour ma ligne A la valeur de la colonne 9 est différente de la valeur de la colonne 9 de la ligne B. Si tel est le cas, j'incrémente mon doublon =doublon + 1.

En code barbare, cela donnerait :
Code:

1 2 3 4 5 6 7 8 9 10 11 dim doublon as integer = 0 for a = première ligne Table1datagridview to avantdernière ligne Table1datagridview for b = a + 1 to dernièreligne Table1datagridview if Table1DataGridView.Item(7, a).Value = Table1DataGridView.Item(7, b).Value then if Table1DataGridView.Item(9, a).Value <> Table1DataGridView.Item(9, b).Value then doublon = doublon + 1 end if end if next b next a
Pensez vous que cela suffirait pour balayer ? Si oui , pouvez-vous m'aider pour la syntaxe des boucles ?

Merci beaucoup pour votre future aide.

Hello,

Petite question complémentaire : que faire si une colonne (disons la colonne 7) contient plus de 2 fois la même valeur alors que l'autre (la colonne 9) contient des valeurs différentes ?
Par exemple :
Code:

1 2 3 4 5 6 7 8 9 Colonne 7 // Colonne 9 7 // 8 12 // 10 14 // 20 7 // 10 8 // 13 25 // 11 7 // 11
On a 7//8, 7//10 et 7//11, cela fait 1 ou ???
Et si on a :
Code:

1 2 3 4 5 6 7 8 9 Colonne 7 // Colonne 9 7 // 8 12 // 10 14 // 20 7 // 8 12 // 13 25 // 11 7 // 11
Soit 7//8, 7//8 et 7//11, quelle doit être la valeur dans ce cas ? 1, 0, ??

12/08/2012, 09h46
IL-MAFIOSO

Salut plume13,

En fait pour imager je cherche à compter le nombre d'interventions sur une journée.... Je pensais compter les doublons ,triplons, etc pour ensuite déduire le nombre de mes interventions mais cela ne va pas trop.
Imaginons que la colonne 7 sont les arrivées et la colonne 9 les départs. Si dans mon tableau j'ai deux références identiques à l'arrivée et plus au départ, cela veut dire qu'ils ne sont pas repartis ensemble. Donc une intervention.
Cela donnerait :

On a 7//8, 7//10 et 7//11 et 7/25 : 3 interventions
On a 7//8, 7//11 et 7//8 et 7/10 : 2 interventions
On a 7//8, 7//10 et 7//8 et 7/10 : 1 intervention
On a 7//8, 7//8 et 7//8 et 7/8 : 0 intervention
On a 7//8, 7//10 et 7//11 : 2 interventions
On a 7//8, 7//8 et 7//11 : 1 intervention
On a 7//8, 7//8 et 7//8 : 0 intervention

A écrire cela je prends conscience que ma suggestion du post précédent ne tient plus la route en cas de triplons ....
J'ai mis + haut un exemple avec 4 valeurs identiques dans la colonne 7 juste pour te montrer même si dans mon projet, au maximum on aurait des triplons.

Merci pour ta future aide.
12/08/2012, 10h27
plume13

Hello,
Je suis désolée mais je n'arrive vraiment pas à comprendre ce que tu veux faire, j'ai beau relire tes exemples, c'est de moins en moins clair :calim2:
Les arrivées, les départs... quel est le contexte en fait ?
Et pourquoi la première ligne, 4 couples différents, et pourtant 3 interventions ?
La troisième ligne, 2 fois 2 doublons = 1 intervention ?

Mais du coup, ce qui t'intéresse ce sont les doublons, ou les valeurs dédoublonnées ? C'est-à-dire dans ton premier exemple : 7 // 8, 12 // 10, 14 // 20, 12 // 13, 25 // 11, 30 // 11.
12/08/2012, 11h33
IL-MAFIOSO

Re,

Citation:

Les arrivées, les départs... quel est le contexte en fait ?

C'était pour imager .... Je vais essayer de te l'imager avec des trains....

Mon Table1datagridview est un tableau filtré par jour. Dans une colonne j'ai un wagon connu sous une référence. Cette référence est la clé primaire (donc pas deux fois la même référence possible)
Ma colonne 7 donne le train arrivée.
Ma colonne 9 donne le train départ.

Si dans mon tableau, j'ai 2 wagons différents arrivés avec le même train (colonne 7), cela donne :

Wagon X - Train arrivée A
Wagon Y - Train arrivée A

Là je dois vérifier alors mes colonnes 9 correspondantes :

Wagon X - Train arrivée A - Train départ B
Wagon Y - Train arrivée A - Train départ B

Dans cette exemple, les deux wagons repartent certes avec un autre train mais c'est le même au départ. Donc on n'a pas besoin de déplacer un Wagon, donc je ne compte pas une intervention.

Si maintenant :

Wagon X - Train arrivée A - Train départ A
Wagon Y - Train arrivée A - Train départ C

Là les deux wagons sont arrivées en même temps mais ils ne repartent pas ensemble, donc il y a eu une intervention pour placer un wagon sur une autre voie. le X repart avec le train A (pas besoin de le déplacer quel que soit son train départ) mais je dois mettre le wagon Y sur une autre voie car le train de départ n'est pas le même que le wagon X

Avec 3 Wagons :

Wagon X - Train arrivée A - Train départ C
Wagon Y - Train arrivée A - Train départ D
Wagon Z - Train arrivée A - Train départ E

Ils sont arrivés ensemble mais chacun repart avec un train différent :

Wagon X reste sur la même voie : je ne compte pas l'intervention
Wagon Y change de voie car autre train départ que X : 1 intervention
Wagon Z sera aussi sur une autre voie car autre train départ que X et Y : 1 intervention
--> Total 2 interventions.

Toujours avec 3 Wagons :

Wagon X - Train arrivée A - Train départ B
Wagon Y - Train arrivée A - Train départ A
Wagon Z - Train arrivée A - Train départ B

Là seul le wagon Y repart avec un autre train (même si c'est le même dans cet exemple). Donc je dois le changer de voie car ce n'est pas le même train que X et Z. Donc au total une seule intervention.
Si je préfère changer de voie X et Z, cela reste aussi une intervention car le train départ est le même pour les deux

Dans tous les cas le maximum possible de wagons pour un même train arrivé est 3.

Est-ce un peu plus clair ?

Enfin un truc marrant à faire !!!

J'ai fait le petit algorithme suivant :
1- regrouper les lignes par train d'arrivée (je reprends ton analogie) ;
2- pour chaque élément de regroupement, regrouper par train d'arrivée ;
3- sommer le nombre de (deuxième regroupement - 1).

Soit en linq, quelque chose comme cela :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
           List<LigneTableau> collec = new List<LigneTableau>();
            collec.Add(new LigneTableau(1, "8", "10"));
            collec.Add(new LigneTableau(2, "8", "15"));
            collec.Add(new LigneTableau(3, "7", "10"));
            collec.Add(new LigneTableau(4, "8", "2"));
            collec.Add(new LigneTableau(5, "11", "1"));
            collec.Add(new LigneTableau(6, "13", "5"));
            collec.Add(new LigneTableau(7, "12", "7"));
 
            int nbInterventions = 0;
            // regroupement par train d'arrivée
            IEnumerable<IGrouping<string, LigneTableau>> groupByArrivee = collec.GroupBy(x => x.TrainArrivee);
            // on parcourt chaque train d'arrivée associé à une collection de LigneTableau
            foreach (IGrouping<string, LigneTableau> eltArrivee in groupByArrivee)
            {
                // regroupement par train de départ (pour un train d'arrivée donné)
                IEnumerable<IGrouping<string, LigneTableau>> groupByDepart = eltArrivee.GroupBy(x => x.TrainDepart);
                // l'important c'est de savoir combien on a de groupes arrivée/départ
                // 1 groupe = 0 intervention, 2 groupes = 1 intervention, 3 groupes = 2 interventions, etc. (pas de limite dans l'algorithme)
                nbInterventions += groupByDepart.Count() - 1;
            }
 
            Console.Write(string.Format("{0} intervention(s) à réaliser", nbInterventions));

avec la classe de modèle suivant :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
        private class LigneTableau
        {
            private int _indexWagon;
            private string _trainArrivee; // colonne 7
            private string _trainDepart; // colonne 9
 
            public LigneTableau(int index, string arrivee, string depart)
            {
                this._indexWagon = index;
                this._trainArrivee = arrivee;
                this._trainDepart = depart;
            }
 
            public int IndexWagon { get { return this._indexWagon; } }
            public string TrainArrivee { get { return this._trainArrivee; } }
            public string TrainDepart { get { return this._trainDepart; } }
        }

Bon le code est un peu pourri, mais c'est pour avoir une idée.

12/08/2012, 18h01
IL-MAFIOSO

Re plume13

Merci pour le temps que tu accordes à cet algorithme :ccool:

Sinon etant un bleu en propgrammation VBNet, Comment je fais pour intégrer celà :calim2:

Tu me parles de "Link" etc ...
Puis-je mettre tout cela dans un module puis l'appeler quand je le souhaite ?

Ensuite je suppose que je dois l'adapter à mon Table1datagridview car toutes mes données se trouvent dans ce tableau ....

Re-hello,

En fait après mure réflexion, le code que j'ai posté ne fait pas ce que tu veux : il ne tient pas compte du départ, en d'autres terme si tu as la combinaison 7//8 et 5//8, il ne compte pas d'intervention, alors que (j'imagine) il en faut une (pour déplacer l'un des deux wagons vers l'autre).

J'ai donc fait un autre code, un peu plus empirique (empirique parce que ça a l'air de marcher, mais je ne peux pas garantir qu'il fournir le meilleur nombre) :

Code:

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
List<LigneTableau> collec = new List<LigneTableau>();
int i = 1;
collec.Add(new LigneTableau(i++, "11", "10"));
collec.Add(new LigneTableau(i++, "10", "15"));
collec.Add(new LigneTableau(i++, "8", "10"));
collec.Add(new LigneTableau(i++, "13", "10"));
collec.Add(new LigneTableau(i++, "13", "7"));
collec.Add(new LigneTableau(i++, "10", "15"));
collec.Add(new LigneTableau(i++, "11", "2"));
collec.Add(new LigneTableau(i++, "12", "15"));
 
// regroupement par arrivée/départ
var groups = from elt in collec
                group elt by new { elt.TrainArrivee, elt.TrainDepart } into wagonsGroup
                select new Mouvement(wagonsGroup, collec.Count(x => x.TrainArrivee == wagonsGroup.Key.TrainArrivee), collec.Count(x => x.TrainDepart == wagonsGroup.Key.TrainDepart));
 
// tri des groupes
groups = groups.OrderBy(x => x).ToList();
 
// et on parcourt chaque élément pour savoir si on le déplace ou pas
foreach (Mouvement elt in groups)
{
    // on ne sait pas encore si on le déplace ou pas ? => on ne le déplace pas alors
    if (!elt.Deplaces.HasValue)
    {
        elt.Deplaces = false;
        // par contre tous les autres (même arrivée ou même départ), on les déplacera
        var aDeplacer = from g in groups
                        where !g.Deplaces.HasValue
                            && (g.TrainDepart == elt.TrainDepart
                            || g.TrainArrivee == elt.TrainArrivee)
                        select g;
        foreach (var eltADeplacer in aDeplacer)
        {
            eltADeplacer.Deplaces = true;
        }
    }
}
 
// on totalise le nombre d'interventions
int nbInterventions = groups.Where(x => x.Deplaces.HasValue && x.Deplaces.Value).Sum(x => x.NbDoublons);
Console.Write(string.Format("{0} intervention(s) à réaliser", nbInterventions));

Toujours avec la classe pour représenter une ligne de tableau :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
private class LigneTableau
{
    private int _indexWagon;
    private string _trainArrivee; // colonne 7
    private string _trainDepart; // colonne 9
 
    public LigneTableau(int index, string arrivee, string depart)
    {
        this._indexWagon = index;
        this._trainArrivee = arrivee;
        this._trainDepart = depart;
    }
 
    public int IndexWagon { get { return this._indexWagon; } }
    public string TrainArrivee { get { return this._trainArrivee; } }
    public string TrainDepart { get { return this._trainDepart; } }
}

mais avec en plus la classe Mouvement qui permet de savoir si des wagons ayant une arrivée et un départ communs vont être déplacés

Code:

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
61
62
63
64
65
66
67
 
private class Mouvement : IComparable<Mouvement>
{
    private IEnumerable<LigneTableau> _lignes;
    private int _nbDoublons;
    private string _trainArrivee; // colonne 7
    private string _trainDepart; // colonne 9
    private int _nbMemeTrainArrivee;
    private int _nbMemeTrainDepart;
 
    public Mouvement(IEnumerable<LigneTableau> lignes, int nbMemeTrainArrivee, int nbMemeTrainDepart)
    {
        this._lignes = lignes;
        this._nbDoublons = lignes.Count();
        this._trainArrivee = lignes.First().TrainArrivee;
        this._trainDepart = lignes.First().TrainDepart;
        this._nbMemeTrainArrivee = nbMemeTrainArrivee;
        this._nbMemeTrainDepart = nbMemeTrainDepart;
 
    }
 
    public IEnumerable<LigneTableau> Lignes { get { return this._lignes; } }
    public int NbDoublons { get { return this._nbDoublons; } }
    public string TrainArrivee { get { return this._trainArrivee; } }
    public string TrainDepart { get { return this._trainDepart; } }
 
    /// <summary>
    /// Wagons déplacés ?
    /// </summary>
    public bool? Deplaces { get; set; }
 
    /// <summary>
    /// Le tri s'éffectue de cette manière :
    /// - d'abord les combinaissons possédants le plus de wagons
    /// - ensuite les lignes possédant le moins d'éléments
    /// - enfin les autres...
    /// </summary>
    /// <param name="other"></param>
    /// <returns></returns>
    public int CompareTo(Mouvement other)
    {
        if (other == null)
        {
            return 1;
        }
        else if (this.NbDoublons != other.NbDoublons)
        {
            return -this.NbDoublons.CompareTo(other.NbDoublons);
        }
        else if (this._nbMemeTrainArrivee != other._nbMemeTrainArrivee)
        {
            return this._nbMemeTrainArrivee.CompareTo(other._nbMemeTrainArrivee);
        }
        else if (this._nbMemeTrainDepart != other._nbMemeTrainDepart)
        {
            return this._nbMemeTrainDepart.CompareTo(other._nbMemeTrainDepart);
        }
        else if (this._trainArrivee != other._trainArrivee)
        {
            return this._trainArrivee.CompareTo(other._trainArrivee);
        }
        else
        {
            return this._trainDepart.CompareTo(other._trainDepart);
        }
    }
}

J'utilise toujours Linq (avec un q) pour faire des regroupements et je le programme toujours en C# (désolé mais je crois que je préférerais encore faire du java plutôt que du VB.Net :mouarf: )
Linq est disponible en vb.net aussi (il faut ajouter le namespace "System.Linq")

Bon courage !!!:aie:

Par contre si j'étais toi, j'essaierais de travailler sur les données "brutes" et non celles affichées dans le DataGridView

13/08/2012, 08h54
IL-MAFIOSO

Salut,

Citation:

Par contre si j'étais toi, j'essaierais de travailler sur les données "brutes" et non celles affichées dans le DataGridView

En fait celles affichées dans mon Table1datagridview ont déjà subit un filtrage de ma base access. Quand tu parles de données "brutq", tu parles du binding, datatable ou directement depuis la base access ?
13/08/2012, 09h14
plume13

Citation:

Envoyé par IL-MAFIOSO

Salut,
En fait celles affichées dans mon Table1datagridview ont déjà subit un filtrage de ma base access. Quand tu parles de données "brutq", tu parles du binding, datatable ou directement depuis la base access ?

Si tu n'as pas mieux (représentation fortement typée), le DataTable.
13/08/2012, 09h45
Jean-Marie Grave

Bonjour à tous les participants de cette discussion.

J'ai longuement hésité avant d'intervenir. Ce n'est jamais agréable de jeter un pavé dans la mare.

Avant de songer à un algorithme, il faut rédiger un cahier des charges dépourvu de toute ambiguïté. Les métaphores, les images mentales, les exemples illustratifs, sont nécessaires pour établir ledit cahier. Mais au final, il est indispensable de pondre un texte clair, net, et précis.

Bon courage.

Bonjour à tous.

Je complète mon intervention précédente par un passage à la pratique. Soit DGV un contrôle DataGridView dont les contenus des cellules sont de type Integer. La documentation indique que la valeur v de la cellule de rang j dans la colonne de rang i est DGV.Item(i, j).Value

Citation:

Il existe donc entre les variables v, i, et j une relation de la forme v = f(i, j)

Cette écriture condensée facilitera la rédaction du cahier des charges. Dans une colonne i (raccourci commode pour "colonne de rang i"), il est question de doublons, puis à la réflexion de triplons, peut-être même de quadrons, et ainsi de suite. Alors généralisons tout de suite et parlons de polyons, dont la définition rigoureuse serait

Citation:

Dans une colonne i un terme x est un polyon si et seulement s'il existe plusiers valeurs de j telles que x = f(i, j)

Mais cela serait insuffisant pour votre cahier des charges, puisque la recherche des polyons dans une colonne est tributaire d'une autre colonne qui lui est associée. Il faut donc considérer une colonne principale p et une colonne associée a, et distinguer entre deux sortes de polyons,

Citation:

– Les "polyons absolus" relevés dans la colonne principale sans tenir compte de la colonne associée,
– Les "polyons relatifs" déterminés dans la colonne principale en tenant compte de la colonne associée.

Le point délicat de votre cahier des charges est évidemment la façon dont on doit tenir compte de la colonne associée. Mais nous disposons maintenant d'un vocabulaire qui nous y aidera. Je vais vous dire comment j'ai cru comprendre votre cahier des charges. Tant pis si je me trompe, il vous sera toujours loisible de le modifier. Voici donc mon interprétation, pour laquelle j'ai construit un algorithme que je vous communiquerai :

Citation:

Pour une colonne principale p et une colonne associée a, un polyons relatif x est par définition un polyon absolu relevé dans la colonne p, pour lequel on peut trouver une ligne j telle que x = f(p, j) et x <> f(a, j).

En résumé,

Citation:

Soit DGV un contrôle DataGridView dont les contenus des cellules sont de type Integer. Comme la valeur v de la cellule de rang j dans la colonne de rang i est DGV.Item(i, j).Value, il existe entre les variables v, i, et j une relation de la forme v = f(i, j). On est amené à considérer une colonne principale p et une colonne associée a. Dans la colonne p, on appelle polyon absolu tout terme x pour lequel on peut trouver plusieurs lignes j telles que x = f(i, j). Dans cette même colonne p, on appelle polyon relatif tout polyon absolu pour lequel on peut trouver une ligne j telle que x = f(p, j) et x <> f(a, j). Il s'agit de trouver le nombre de polyons relatifs contenus dans la colonne principale p.

Passons maintenant au code

Nous commençons par une fonction PolyonAbsoluExistant(v, i) qui renvoie un booléen indiquant si le nombre v est polyon absolu dans la colonne i.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Private Function PolyonAbsoluExistant(ByVal v As Integer, ByVal i As Integer) As Boolean Dim Ok As Boolean, j As Integer, n As Integer Ok = False : n = 0 With DGV For j = 0 To .RowCount - 1 If .Item(i, j).Value = v Then n = n + 1 If n = 2 Then Ok = True : Exit For End If Next j End With Return Ok End Function
Nous cherchons alors à créer une fonction PolyonsAbsolus(i) renvoyant la liste des polyons absolus contenus dans la colonne i. En première analyse, nous envisageons de parcourir la colonne i, de repérer ceux d'entre eux qui sont des polyons absolus, et d'empiler ces derniers dans la liste cherchée. Mais cela ne convient pas, car il ne faut empiler qu'une fois un même polyon
absolu. C'est pourquoi le code de la fonction PolyonsAbsolus(i)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Private Function PolyonsAbsolus(ByVal i As Integer) As Integer() Dim Lst() As Integer, j As Integer, n As Integer, v As Integer ReDim Lst(0) With DGV For j = 0 To .RowCount - 1 v = .Item(i, j).Value If PolyonAbsoluExistant(v, i) Then If OkAjoutPolyon(v, Lst) Then n = Lst.Count : ReDim Preserve Lst(n) Lst(n) = v End If End If Next j End With Return Lst End Function
exploite une fonction OkAjoutPolyon(v, Lst), qui renvoie un booléen autorisant l'empilage du polyon absolu v dans la liste Lst
Code:

1 2 3 4 5 6 7 8 9 10 11 Private Function OkAjoutPolyon(ByVal v As Integer, ByVal Lst() As Integer) As Boolean Dim Ok As Boolean Dim k As Integer, n As Integer n = Lst.Count - 1 : Ok = True If n > 0 Then For k = 1 To n If Lst(k) = v Then Ok = False : Exit For Next k End If Return Ok End Function
Le lecteur, ce petit fûté, a déjà subodoré que nous allons maintenant nous attaquer aux polyons relatifs, pour une colonne principale p et une colonne associée a. Cela se fait par une fonction PolyonsRelatifs(p, a), qui renvoie effectivement la liste des polyons relatifs. Pour ce faire, elle récupère la liste des polyons absolus, parcourt celle-ci, et empile ses termes dans la liste des polyons relatifs, pourvu que le cahier des charges le permette. C'est pourquoi le code de la fonction PolyonsRelatifs(p, a)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Private Function PolyonsRelatifs(ByVal p As Integer, ByVal a As Integer) As Integer() Dim LstR() As Integer, LstA() As Integer Dim j As Integer, n As Integer, v As Integer ReDim LstR(0) LstA = PolyonsAbsolus(p) For j = 1 To LstA.Count - 1 v = LstA(j) If OkMaintenirPolyon(v, p, a) Then n = LstR.Count : ReDim Preserve LstR(n) LstR(n) = v End If Next j Return LstR End Function
exploite une fonction OkMaintenirPolyon(v, p, a), qui renvoie un booléen autorisant l'empilage du polyon absolu v dans la liste LstR
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Private Function OkMaintenirPolyon(ByVal v As Integer, ByVal p As Integer, ByVal a As Integer) As Boolean Dim Ok As Boolean Dim j As Integer Ok = False With DGV For j = 0 To .RowCount - 1 If .Item(p, j).Value = v Then If .Item(a, j).Value <> v Then Ok = True : Exit For End If Next j End With Return Ok End Function
Il est à noter que cette fonction est essentielle, car elle traite la partie la plus délicate du cahier des charges. Les procédures précédentes sont toutes privés. Mais nous arrivons à la fonction qui délivre le nombre de polyons relatifs. Elle est publique. C'est une fonction-chef. D'ailleurs ça ce voit au fait qu'elle ne fait pas grand'chose.
Code:

1 2 3 4 5 Public Function NombrePolyonsRelatifs(ByVal p As Integer, ByVal a As Integer) As Integer Dim Nbr As Integer Nbr = PolyonsRelatifs(p, a).Count - 1 Return Nbr End Function
Dans l'espoir que cela pourra vous aider.

14/08/2012, 15h42
IL-MAFIOSO

Bonjour Jean Marie Grave,

Merci de ta participation sur ce Topic. Effectivement j'ai beaucoup imagé pour essayer de dire ce que j'ai besoin . Pour moi je sais ce que je veux exactement. Mais c'est pas toujours évident de le restituer en brut. Je viens de lire ton dernier Topic et je t'avoue que je ne comprends pas tout du fait de mon faible niveau de connaissance.

La colonne i serait ma colonne 7 (la fameuse arrivée ....)
Par contre quelle serait ma colonne 9 (départ) :

Citation:

...colonne principale p et une colonne associée a...

Et à quoi correspondrait chez moi ta troisième colonne ?
J'ai aussi glissé pour l'instant ton code dans un module. j'ai remplacé DGV par mon tableau. J'ai juste des erreurs concernant les count ou il me dit "count n'est pas un membre de System.array "

Enfin comment je pourrais par la suite appeler ce module ?
Pour info je précise que je fais tout en framework 2.

plume13 : J'ai essayé de retranscrire ton code pour l'adapter mais je rame sec ....
14/08/2012, 16h46
Jean-Marie Grave

Bonjour.

Vous avez p = 7 et a = 9. Quant à i, c'est une variable muette.
Pour un tableau Tab(), vous pouvez peut-être remplacer Tab.Count par UBound(Tab). En tout cas c'était comme ça en Vb6.
Je pourrais peut-être vous envoyer en zip l'intégralité du programme que j'ai fait pour vous apporter cette aide. Dites-moi si vous êtes intéressé(s) et je verrai ce que je peux faire.

Cordialement.
15/08/2012, 09h07
IL-MAFIOSO
Re,

En fait l'erreur est la même et sur toutes les lignes ou il y a le mot count :
Code:

1 2 3 n = Lst.Count : ReDim Preserve Lst(n) For j = 1 To LstA.Count - 1 Nbr = PolyonsRelatifs(p, a).Count - 1
Citation:

count n'est pas un membre de System.array

Et je suppose que la variable Nbr me donnera le résultat ?
15/08/2012, 10h15
Jean-Marie Grave

Très juste.

Alerte !

Un peu plus haut, j'ai dit une sottise. Pour un tableau Tab(), Tab.Count donne le nombre de termes, alors que UBound(Tab) donne le rang du dernier terme. Ne vous prenez donc pas les pieds dans le tapis en corrigeant.

Avec mes excuses.
18/08/2012, 07h13
IL-MAFIOSO

Re,

J'ai essayé de changer mais cela ne marche pas.
Au départ j'ai mis partout des Ubound et je n'avais plus d'erreurs de compilation. Puis j'ai fait un test et je n'obtenais rien dans Nbr
En fait il y a plusieurs .count dans les différentes fonctions et comme tu l'as dit, j'ai les pieds à moitié dans le tapis ....

Voir 40 message(s) de cette discussion en une page