Ajouter 1 dans cellule dans une macro

[CVL]

Bonjour,
Comment faire pour ajouter 1 dans une macro sur une cellule particulière ?
Cette cellule est une semaine de l'année.
exemple= ajouter 1 à "45S2015" pour arriver à "46S2015"

Merci ...

 

[job75]

Re : modifié les rests

Bonjour CVL,

Dim c As Range, n As Byte
'----
If c Like "#S*" Or c Like "##S*" Then
  n = InStr(c, "S")
  c = Format(Val(c) + 1, String(n - 1, "0")) & Mid(c, n)
End If

A+

 

[CVL]

Re : modifié les rests

GRAND MERCI ....
Cordialement,

CVL