Boucle For & If Imbriqués

Boucle For & If Imbriqués - VB/VBA/VBS - Programmation

Marsh Posté le 14-05-2009 à 20:40:53    

Bonsoir à tous,
 
Petit soucis sur la macro suivante :
 
For i = 3 To duree + 2
For j = 3 To duree + 2
    If Month(Worksheets("VLM" ).Cells(i, 1)) = Month(Worksheets("VL" ).Cells(j + 1, 1)) Then
     Next j
    Else
    Worksheets("VLM" ).Cells(i + 1, 1) = Worksheets("VL" ).Cells(j, 1)
Next i
 
En fait, dans la première colonne de la feuille VL se trouvent des series temporelles hebdomadaires que j'aimerais convertir en series mensuelles, et récupérer à chaque fois la première date du moi ...  
 

Reply

Marsh Posté le 14-05-2009 à 20:40:53   

Reply

Marsh Posté le 18-05-2009 à 09:22:31    

Et c'est quoi ton soucis ?

Reply

Marsh Posté le 18-05-2009 à 13:59:16    

Il marche ce code ?

Reply

Marsh Posté le 18-05-2009 à 15:24:31    

ca marche mieux avec ca non ?
For i = 3 To duree + 2
    For j = 3 To duree + 2
        If Month(Worksheets("VLM" ).Cells(i, 1)) = Month(Worksheets("VL" ).Cells(j + 1, 1)) Then
        Else
        Worksheets("VLM" ).Cells(i + 1, 1) = Worksheets("VL" ).Cells(j, 1)
        End If
    Next j
Next i

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed