[XL-2010] Mauvaise gestion du changement de mois [Résolu]

[adidu44]

Bonjour,

J'ai fait une macro afin d'afficher en automatique une série incrémentée lorsqu'une colonne précédente est saisie.
Mais je viens de rencontrer le problème suite au changement de mois qui est intervenu.

Code :

1
2
3
4
5
6
7
8
9
10
 
Private Sub Worksheet_Change(ByVal Target As Range)
 
If Not Intersect(Target, Range("A2:A65535")) Is Nothing Then
Cells(Target.Row, 3).Value = Date
Cells(Target.Row, 4).Value = "CO " & Format(Date, "yymm ") & Format(IIf(Range("D" & Target.Row - 1).Value Like "CO " & Format(Date, "yymm") & "*", CLng(Replace(Range("D" & Target.Row - 1).Value, "CO " & Format(Date, "yymm"), "")) + 1, 1), "000")
 
End If
 
End Sub

La macro récupère bien la valeur finale du dessus pour l'incrémentée mais elle ne fonctionne pas suite au changement de mois.

Est-il possible que la macro se calque sur la date plutôt que sur la ligne du dessus pour le mois ? Et tant qu'à faire, est-il possible qu'au changement de mois, le compteur final se réinitialise à 1 ?

Cordialement,

Adidu44

[mercatog]

Bonsoir
A part le Clng, je ne vois pas où est le prblème. Le compteur s'incrémente et redevient CO xxyy 001 à chaque changement du mois.

Code :

1
2
3
4
5
6
7
8
9
10
11
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Long, S As Long
Dim Code As String
 
If Target.Column = 1 And Target.Row > 1 Then
    i = Target.Row
    Code = "CO " & Format(Date, "yymm")
    S = IIf(Range("D" & i - 1) Like Code & "*", Val(Mid(Range("D" & i - 1), 8)) + 1, 1)
    Range("C" & i & ":D" & i) = Array(Date, Code & Format(S, "000"))
End If
End Sub

[adidu44]

Merci beaucoup, cela marche parfaitement.

Cordialement,

Adidu44