Souci de code VBA pour trier par mois.

Version imprimable

Bonjour, bonjour. J'ai un petit souci pour mon code VBA, alors voilà, j'ai un tableau, trier par date, et je voudrais une insertion de ligne pour marquer la différence entre chaque mois.

Je vous montre mon code, car il ne fonctionne pas. pourtant je ne vois pas d'erreur :/
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Sub Trier_par_date() Columns("B:B").NumberFormat = "dd/mm/yy" q = 1 For m = 1 To 12 For u = 1 To Sheets("Crée stat").Cells(3, 2) If Month(Cells(u, 2)) = Month(m) Then q = q + 1 Next Rows(q).Insert Shift:=xlDown Cells(q, 2) = Month(m) q = q + 1 Next End Sub
Voilà, si quelqu'un jette un petit coup d’œil, je le remercierai d'avance. :)

Bonjour
Si tes données en colonne B sont tous des dates triées par ordre croissant (ou décroissant), ci-joint proposition

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Dim LastLig As Long, i As Long
 
Application.ScreenUpdating = False
With Worksheets("Feuil1")
    LastLig = .Cells(.Rows.Count, "B").End(xlUp).Row
    For i = LastLig + 1 To 3 Step -1
        If Month(.Range("B" & i)) <> Month(.Range("B" & i - 1)) Then
            .Rows(i).Insert
            .Range("B" & i) = "Total " & Format(.Range("B" & i - 1), "mmmm")
        End If
    Next i
End With

01/07/2011, 15h03
NoobProg

Grand merci encore à toi. T'as solution est beaucoup plus jolie à lire.

Je l'ai essayé ça marche niquel !

Bon me reste plus qu'a bien relire ton code, et tout comprendre :D

Je t’embête encore un peu ;p, je voudrais savoir pour quoi sur la ligne

Code:

i = LastLig + 1 To 3 Step -1

Tu as mis "to 3", on devrait pas plutôt mettre "to 1" ?

Je galère encore sur le vba. On peut pas coder en python sur VBA ? :P
01/07/2011, 16h45
mercatog

Je compare le ligne i avec la ligne i-1
Si le mois de la cellule i-1 est différent du mois de la cellule i, alors on insère une ligne

Je me suis arrêté à 3 pour en fin de boucle je compare la cellule de la ligne 2 par rapport à la ligne 3
J'ai supposé que la ligne 1 est la ligne des titres des colonnes.

Si tu n'as pas de titres de colonnes, tu arrête la boucle à 2 (pour que la dernière comparaison compare la ligne 1 avec la ligne 2)

PS: Si tu mets 1! la dernière comparaison va comparer la ligne 0!!! avec la ligne 1.