incrementation graduelle en excel

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

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 😁😁

Bonjour,

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

Code:

---

valeur = Range("a1").value

---

Code:

---

valeur = cells(1,1),value

---

avec:

Code:

---

valeur = cells(Ligne,Colonne),value

---

Voir aussi Offset

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 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

---