Boucle sur colonne

bonjour,

j'ai la macro suivante qui comporte une boucle Horizontal, je voudrais qu'elle s'execute verticalelement pour les 14 jours à venir

si on est le 22-04-2014 qu'elle s'execute jusqu'au 05-05-2014.

Est il possible d'avoir "" si la valeur est = à 0

Si joint le fichier pour mieux comprendre

merci d'avance pour votre aide

philippe

Sub test()

Dim i As Integer
'recherche de la ligne active
On Error Resume Next
i = Application.WorksheetFunction.Match(CLng(Date), Rows(3), 0)
If i = 0 Then i = 4
Cells(4, i).Activate

Dim ligne As String, ligne1 As String

ligne = 4

Do While Cells(ligne, 3) <> "plateau agglo"

With Cells(ligne, i)
   .Formula = "=VLOOKUP(R3C[],'suivi des stocks'!R7C2:R10000C250,R[]C4,FALSE)"
   .Value = .Value
   End With
ligne = ligne + 1
Loop

ligne = 4
Cells(ligne + 49, i).Value = Cells(ligne + 8, i).Value
Cells(ligne + 50, i).Value = Cells(ligne + 16, i).Value + Cells(ligne + 17, i).Value
Cells(ligne + 51, i).Value = Cells(ligne + 18, i).Value + Cells(ligne + 19, i).Value
Cells(ligne + 52, i).Value = Cells(ligne + 23, i).Value + Cells(ligne + 24, i).Value

End Sub

Sub test()

Dim i As Integer

'recherche de la ligne active

On Error Resume Next

i = Application.WorksheetFunction.Match(CLng(Date), Rows(3), 0)

If i = 0 Then i = 4

Cells(4, i).Activate

Dim ligne As String, ligne1 As String

ligne = 4

Do While Cells(ligne, 3) <> "plateau agglo"

With Cells(ligne, i)

.Formula = "=VLOOKUP(R3C[],'suivi des stocks'!R7C2:R10000C250,R[]C4,FALSE)"

If .Value = 0 Then

.Value = ""

End If

End With

ligne = ligne + 1

Loop

ligne = 4

Cells(ligne + 49, i).Value = Cells(ligne + 8, i).Value

Cells(ligne + 50, i).Value = Cells(ligne + 16, i).Value + Cells(ligne + 17, i).Value

Cells(ligne + 51, i).Value = Cells(ligne + 18, i).Value + Cells(ligne + 19, i).Value

Cells(ligne + 52, i).Value = Cells(ligne + 23, i).Value + Cells(ligne + 24, i).Value

End Sub

Bonjour EngueEngue,

merci pour ta réponse, par contre aurais tu une solution pour la boucle sur les colonnes

cordialement

philippe