Discussion :

[jackborogar]

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 :

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

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:

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,

[gFZT82]

Bonjour,

Tu peux commencer avec ce code

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