Discussion :

[Mandrou]

Bonsoir à tous ,
j'ai un problème que je présente ci-dessous je ne sais pas si quelqu'un peut m'aider...

Soit un tableau contenant i ligne et j colonne en Excel.
Avec i=20 et j=30
Avec i, j ϵ N ; des entiers naturels ;
Initialisation
i=20
j=1
Instructions
Début
 Sélectionner les carreaux suivants
(i, j) ; ‘ sur la première colonne dernière ligne
(i-1, j), (i-1, j+1) ;
(i-2, j), (i-2, j+1) , (i-2, j+2) ;
(i-3, j), (i-3, j+1), (i-3, j+2), (i-3, j+3) ;….
 Additionner tous les carreaux sélectionnés
 Enregistrer la valeur obtenue sous le nom cône_value1
Fin
Deuxième opération
Début
 Sélectionner les carreaux suivants
(i, j+1) ; ‘dernière ligne deuxième colonne
(i-1, j), (i-1, j+1), (i-1, j+2) ;
(i-2, j), (i-2, j+1), (i-2, j+2), (i-2, j+3) ;
(i-3, j), (i-3, j+1), (i-3, j+2), (i-3, j+3), (i-3, j+4) ;…
 Additionner toutes les carreaux sélectionnés
 Enregistrer la valeur cône_value2
Fin,
Ainsi de suite, jusqu’à la 30eme colonne dernière ligne (20eme ligne)
Remonter à la 19eme ligne refaire le processus puis comparer toutes les cône_value


cordialement

[wallace1]

Bonsoir,

Sympa ton problème, t'as plus qu'à trouver la solution car pour moi elle est située dedans ! Ne reste plus qu' à traduire en code finalement 😁😁

[clementmarcotte]

Bonjour,

Dans 99,99999 % des cas, la sélection est inutile.
Valeur de la cellule A1 (à adapter pour les autres cellules)

Code :

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

valeur = Range("a1").value

Code :

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

valeur = cells(1,1),value

avec:

Code :

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

valeur = cells(Ligne,Colonne),value

Voir aussi Offset

[Mandrou]

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