Don pépé
XLDnaute Occasionnel
Bien le Bonjour
Voila je vien vers vous car j'ai un petit souci avec une incrémentation, sa ne s'incrémente pas
si quelqu'un peux m'aider sa serais kool
merci pour votre aide
Voila je vien vers vous car j'ai un petit souci avec une incrémentation, sa ne s'incrémente pas
VB:
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