condition dans univers restreint

Version imprimable

Bonjour,

Je désire ecrire une condition avec restrictions. Cette condition me permettra d'obtenir la dernière date de chaque mois.

Ma macro analyse les cellules de la colone 2 (cette cellule comporte la date)L'analyse est effectuée ligne après ligne en les comparant entre elles: la cellule de la ligne 3 avec la cellule de la ligne 2 puis la cellule de la ligne 4 avec la cellule de la ligne 3 puis la cellule de la ligne 5 avec la cellule de la ligne 4, ect

Les informations traitées dans la date sont l'année et le mois uniquement.

Je désire écrire la condition suivante:

Si le mois de la ligne n+1 est supérieur au mois de la ligne n sachant que l'année est la même, alors copie et colle la ligne n dans la feuille2 et colore la ligne n dans la feuille1

Voici le code que j'ai créé:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 Sub nouveau() Dim Lig As Long, DerLig As Long Dim Y As Integer, YC As Integer Dim M As Byte, MC As Byte Dim i As Long DerLig = 2 Sheets("Sheet2").Cells.ClearContents With Sheets("Sheet1") .Cells.Interior.ColorIndex = xlNone Y = Year(.Cells(2, 2)) M = Month(.Cells(2, 2)) For Lig = 2 To .Range("B65536").End(xlUp).Row YC = Year(.Cells(Lig, 2)) MC = Month(.Cells(Lig, 2)) If MC > M Or (MC = 1 And M = 12) And YC = Y Or (YC = 2000 And Y = 2009) Then .Rows(Lig - 1).Copy Sheets("Sheet2").Rows(DerLig) DerLig = DerLig + 1 .Rows(Lig - 1).Interior.ColorIndex = 3 Y = YC And M = MC End If Next Lig End With End Sub
Mais c'est pas bon du tout et je n'arrive pas à comprendre ce qui ne vas pas et c'est pour cette raison que je sollicite votre aide pour interprêter le code et comprendre ou je dois le modifier...

Merci,

Bonsoir,
je suivais la même discussion dans le post similaire
Ma proposition (à tester)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Dim LastLig As Long, i As Long
 
LastLig = Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To LastLig - 1
    If Year(Range("A" & i + 1).Value) = Year(Range("A" & i).Value) Then
        If Month(Range("A" & i + 1).Value) > Month(Range("A" & i).Value) Then
            Rows(i).Interior.ColorIndex = 3
        End If
    Else
        Rows(i).Interior.ColorIndex = 3
    End If
Next i

Ou avec compactage:

Code:

1
2
3
4
5
6
7
8
Dim LastLig As Long, i As Long
 
LastLig = Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To LastLig - 1
    If (Year(Range("A" & i + 1).Value) = Year(Range("A" & i).Value) And Month(Range("A" & i + 1).Value) > Month(Range("A" & i).Value)) Or (Year(Range("A" & i + 1).Value) > Year(Range("A" & i).Value)) Then
        Rows(i).Interior.ColorIndex = 3
    End If
Next i

20/11/2009, 19h33
ucfoutu
Bonjour, derouleu...
1) Tu as eu tort de séparer ce test de l'autre (dont tu nous as parlé ailleurs)...;)... et c'est bien dommage !
2) explique (pour voir) ce que j'ai mis en rouge et en bleu sur ces lignes de code :
Code:

1 2 3 4 M = Month(.Cells(2, 2)) ..... ..... If MC > M Or (MC = 1 And M = 12) And YC = Y Or (YC = 20000 And M = 2009)
Si tu veux que l'on te prenne au sérieux, il va falloir que tu apprennes à commencer à l'être au moins un peu ...:lol:
26/11/2009, 17h08
derouteu

Merci Mercato,

C'est exactement ce que je cherchais à écrire :ccool: