Simplification code VBA

Bonjours à tous, et à toutes,

On est tous passé par là, et mon semblant de code ci dessous vous montre le niveau actuel que j'ai sur VBA, j'aimerais donc avoir ce code en réel langage VBA:

Code:

---

1 2 3 4 5 6 7

Dim Day As Integer = 35 R= Range ("D"&Day) While(R = aUneValeur) = True aUneValeur = somme( "D & Day-13" : "D&Day-2") Day = Day+21 R= Range ("D"&Day) Wend

---

En réponse à la lecture de ce semblant de code, j'aimerai avoir comme résultat:

Citation:

---

Day=35
R=D35
Tant que (D35 est une Valeur de 0 à Infini) est vrai
Valeur = Somme (D22: D33)
Day= 56
R= D56
Fin du Tant que et on recommence jusqu'a que mon D"..." est vide

---

Bien Cordialement,

Bonjour,

Tu peux commencer avec ce code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Option Explicit Sub Test() Dim MyDay As Long, aUneValeur As Long Dim Ws As Worksheet Dim R As Range MyDay = 35 Set Ws = ThisWorkbook.Worksheets("Feuil1") 'Nom de feuille à adapter Set R = Ws.Range("D" & MyDay) While R > 0 aUneValeur = WorksheetFunction.Sum(Ws.Range("D" & MyDay - 13 & ":" & "D" & MyDay - 2)) MsgBox "MyDay = " & MyDay & Chr(10) & _ "Somme de la plage " & "D" & MyDay - 13 & ":" & "D" & MyDay - 2 & " : " & aUneValeur MyDay = MyDay + 21 Set R = Range("D" & MyDay) Wend Set R = Nothing Set Ws = Nothing End Sub

---

Cordialement.