XL 2016 Incrémentation petit souci ; RESOLU

[Don pépé]

Bien le Bonjour

Voila je vien vers vous car j'ai un petit souci avec une incrémentation, sa ne s'incrémente pas

Sub Imprimer()
ActiveWindow.SelectedSheets.PrintOut copies:=2
If Left(Range("I2"), 6) = "Fact" & Format(Now(), "yymm") Then
    Range("I2") = Left(Range("I2"), 6) & Format(CInt(Right(Range("I2"), 2)) + 1, "00")
Else
    Range("I2") = "Fact" & Format(Now(), "yymm") & "01"
End If
End Sub

si quelqu'un peux m'aider sa serais kool
merci pour votre aide

 

[Dranreb]

Bonjour.
Vous comparez les 6 premier caractères de gauche de quelque chose avec une expression String qui en fait 8.
Ça ne peut donc jamais être égal !

Edit: Salut job75.

 

[job75]

Bonjour Don pépé,

Il suffit de savoir compter jusqu'à 8 :

Sub Imprimer()
ActiveWindow.SelectedSheets.PrintOut copies:=2
If Left(Range("I2"), 8) = "Fact" & Format(Now(), "yymm") Then
    Range("I2") = Left(Range("I2"), 8) & Format(Right(Range("I2"), 2) + 1, "00")
Else
    Range("I2") = "Fact" & Format(Now(), "yymm") & "01"
End If
End Sub

Edit : salut Bernard, je ne t'avais pas vu...

A+

 

[Don pépé]

Beh une petite erreur sa arrive

merci a vous

 

[job75]

Re,

On peut écrire plus simplement :

Sub Imprimer()
ActiveWindow.SelectedSheets.PrintOut copies:=2
Range("I2") = "Fact" & Format(Now(), "yymm") & Format(Val(Mid(Range("I2"), 9)) + 1, "00")
End Sub

A+

 

[Dranreb]

job75, il me semble qu'avec ton affectation la numérotation ne repart pas de "01" quand le mois change.

 

[job75]

Re,

Je venais d'y penser :

Sub Imprimer()
ActiveWindow.SelectedSheets.PrintOut copies:=2
[I2] = "Fact" & Format(Now(), "yymm") & Format(IIf(Format(Now(), "yymm") = Mid([I2], 5, 4), Val(Mid([I2], 9)) + 1, 1), "00")
End Sub

A+