Discussion :

[Mandrou]

Bonsoir mon code ici me permet sur un datagridview qui contient 15 colonnes et 8 lignes de parcourir chaque cellules si dans une cellules il y a une valeur positive une opération de décrémentation (-1) et d’incrémentation(+1) des colonnes s'amorce sur chaque ligne qui a leurs tours les lignes sont décrémenter de (-1) jusqu'a la première ligne en me donnant une valeur qui doit être la somme des toutes les cellules concernées dans la variable total.
Mon problème est que je veux retenir la plus grande valeur de toutes les valeurs que prendra la variable somme déjà déclarer...

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
61
62
63
64
65
66
67
68
69
70
71
'la boucle parcourant toutes les lignes
        For i = 0 To ligne - 1
 
            ' la boucle parcourant toutes les colonnes
            For j = 1 To colonne
 
                valeur = Integer.Parse(donneeconeflotant.Rows(i).Cells("C" + j.ToString).Value.ToString)
 
                If valeur > 0 Then
                    vc = j
                    vl = i
                    v = 0
                    total = 0
                    For k = vl To 0 Step -1 ' la boucle qui va parcourir toutes fles lignes concerné
                        limgauche = j - v
                        limdroit = j + v
 
                        For z = limgauche To limdroit
 
                            If z <= 0 Or z > colonne Then
 
 
                            Else
 
                                value = donneeconeflotant.Rows(k).Cells("C" + z.ToString).Value
                                total = total + value
                            End If
                        Next
                        v = v + 1
 
                    Next
 
                    total = total + valeur
                    ' verifier si le total est positif alors on colorier toutes les cellules concernées
 
                    If total > 0 Then
                        somme = somme + total
 
 
 
                        vc = j
                        vl = i
                        v = 0
                        donneeconeflotant.Rows(i).Cells("C" + j.ToString).Style.BackColor = Color.Green
                        For k = vl To 0 Step -1 ' la boucle qui va parcourir toutes fles lignes concerné
                            limgauche = j - v
                            limdroit = j + v
 
                            For z = limgauche To limdroit
                                donneeconeflotant.Rows(i).Cells("C" + j.ToString).Style.BackColor = Color.Green
                                If z <= 0 Or z > colonne Then
 
 
                                Else
                                    donneeconeflotant.Rows(k).Cells("C" + z.ToString).Style.BackColor = Color.Green
 
 
                                End If
                            Next
                            v = v + 1
 
                        Next
 
                    End If
 
                Else
                End If
 
            Next
 
        Next

cordialement!

[Phil Rob]

Comment garder la pus grande des valeurs ? L'algorithme suivant le permet :

1. Déclarer une variable pour la plus grande valeur, dans le type approprié, par exemple avec un réel :
Dim PlusGrandeValeur As Single
2. Lire ta première Valeur avant d'entrer dans les boucles, par exemple, en supposant que tu utilises une itération de N à 0 :
PlusGrandeValeur = donneeconeflotant.Rows(N).Cells .... (ce n'est qu'un exemple que tu dois adapter)
3. Ecrire l'itération en commençant un point plus loin puisque la première valeur est déjà lue :
For K = N - 1 To 0 Step -1
4. Dans cette boucle, lire les valeurs selon tes besoins et à chaque fois, faire suivre de l'alternative comme ceci :
Valeur = = donneeconeflotant.Rows(N).Cells ....
If Valeur > PlusGrandeValeur Then
PlusGrandeValeur = Valeur
End If
5. Quand les itérations s'achèvent, PlusGrandeValeur contient la plus grande valeur effectivement lue.

Récap.
Dim PlusGrandeValeur As Single
PlusGrandeValeur = donneeconeflotant.Rows(N).Cells .... (ce n'est qu'un exemple que tu dois adapter)
For K = N - 1 To 0 Step -1(en supposant que c'est bien l'itération qui est utilisée)
..............
Valeur = = donneeconeflotant.Rows(N).Cells....
If Valeur > PlusGrandeValeur Then
PlusGrandeValeur = Valeur
End If
..............
..............
Next K


:-)